Lines Matching +defs:font +defs:lock
42 ;; * tcl-typeword-list is similar, but uses font-lock-type-face.
45 ;; * tcl-builtin-list lists commands to be given font-lock-builtin-face.
69 ;; font-lock which will mark the # chars accordingly or enclose offending
72 ;; between them, while braces do not. If you don't use font-lock, the
123 :link '(custom-group-link :tag "Font Lock Faces group" font-lock-faces)
210 (defface tcl-escaped-newline '((t :inherit font-lock-string-face))
371 Call `tcl-set-proc-regexp' and `tcl-set-font-lock-keywords'
381 Call `tcl-set-font-lock-keywords' after changing this list.")
392 Call `tcl-set-font-lock-keywords' after changing this list.")
405 Call `tcl-set-font-lock-keywords' after changing this list.
409 (defvar tcl-font-lock-keywords nil
410 "Keywords to highlight for Tcl. See variable `font-lock-keywords'.
413 `tcl-set-font-lock-keywords'.")
415 (defvar tcl-font-lock-syntactic-keywords
491 (defun tcl-set-font-lock-keywords ()
492 "Set `tcl-font-lock-keywords'.
494 (setq tcl-font-lock-keywords
498 2 'font-lock-function-name-face)
504 2 'font-lock-type-face)
507 1 'font-lock-builtin-face)
514 '("\\${\\([^}]+\\)}" 1 font-lock-variable-name-face)
516 1 font-lock-variable-name-face)
518 1 font-lock-variable-name-face keep)
521 1 font-lock-variable-name-face keep)
535 (if tcl-font-lock-keywords
537 (tcl-set-font-lock-keywords))
599 (set (make-local-variable 'font-lock-defaults)
600 '(tcl-font-lock-keywords nil nil nil beginning-of-defun
601 (font-lock-syntactic-keywords . tcl-font-lock-syntactic-keywords)