Lines Matching defs:table
120 (defvar perl-mode-abbrev-table nil
121 "Abbrev table in use in perl-mode buffers.")
122 (define-abbrev-table 'perl-mode-abbrev-table ())
144 (defvar perl-mode-syntax-table
145 (let ((st (make-syntax-table (standard-syntax-table))))
166 "Syntax table in use in `perl-mode' buffers.")
284 (defvar perl-empty-syntax-table
285 (let ((st (copy-syntax-table)))
290 "Syntax table used internally for processing quote-like operators.")
292 (defun perl-quote-syntax-table (char)
294 (st (copy-syntax-table perl-empty-syntax-table)))
306 ;; font-lock-syntactically-fontified). That meant that some syntax-table
323 (put-text-property (point) (1+ (point)) 'syntax-table '(7)))))
337 (st (perl-quote-syntax-table char)))
340 (with-syntax-table st
342 nil nil state 'syntax-table)
345 nil nil state 'syntax-table)))
350 (with-syntax-table st
362 (with-syntax-table
363 (perl-quote-syntax-table (char-after))
369 'syntax-table
377 (put-text-property pos (1- (point)) 'syntax-table nil)
380 'syntax-table '(1)))
382 'syntax-table (if close '(15) '(7)))))))
385 'syntax-table))))
515 (setq local-abbrev-table perl-mode-abbrev-table)
516 (set-syntax-table perl-mode-syntax-table)