Lines Matching +defs:font +defs:size
45 ;; If you use font-lock feature of this mode, it is advisable to use
51 ;; definitions. If you do not see all these faces, your font-lock does
54 ;; This mode supports font-lock, imenu and mode-compile. In the
55 ;; hairy version font-lock is on, but you should activate imenu
83 (defvar cperl-can-font-lock
88 (if cperl-can-font-lock
89 (require 'font-lock))
92 (defvar font-lock-background-mode) ; not in Emacs
93 (defvar font-lock-display-type) ; ditto
157 (defvar cperl-can-font-lock
196 :link '(custom-group-link :tag "Font Lock Faces group" font-lock-faces)
312 (defcustom cperl-font-lock nil
313 "*Non-nil (and non-null) means CPerl buffers will use `font-lock-mode'.
377 Affects: `cperl-font-lock', `cperl-electric-lbrace-space',
440 (defcustom cperl-pod-face 'font-lock-comment-face
445 (defcustom cperl-pod-head-face 'font-lock-variable-name-face
451 (defcustom cperl-here-face 'font-lock-string-face
456 ;;; Some double-evaluation happened with font-locks... Needed with 21.2...
465 (defcustom cperl-pod-here-fontify '(featurep 'font-lock)
479 the variable `cperl-font-lock-keywords-2', so changing it after you've
509 (defcustom cperl-max-help-size 66
608 (defcustom cperl-syntaxify-by-font-lock
609 (and cperl-can-font-lock
611 "*Non-nil means that CPerl uses `font-lock's routines for syntaxification."
630 '((font-lock-keyword-face nil nil bold shadow)
631 (font-lock-variable-name-face nil nil bold)
632 (font-lock-function-name-face nil nil bold italic box)
633 (font-lock-constant-face nil "LightGray" bold)
636 (font-lock-comment-face nil "LightGray" italic)
637 (font-lock-string-face nil nil italic underline)
639 (font-lock-type-face nil nil underline)
640 (font-lock-warning-face nil "LightGray" bold italic box)
710 Get support packages choose-color.el (or font-lock-extra.el before
713 later you should use choose-color.el *instead* of font-lock-extra.el
779 of interaction of `font-lock' and syntaxification may be not cleaned
853 comparing to font-lock - basically, different
956 `font-lock-comment-face' Comments, PODs and whatever is considered
958 `font-lock-constant-face' HERE-doc delimiters, labels, delimiters of
960 `font-lock-warning-face' Special-cased m// and s//foo/,
961 `font-lock-function-name-face' _ as a target of a file tests, file tests,
965 `font-lock-keyword-face' Control flow switch constructs, declarators
967 `font-lock-string-face' Strings, qw() constructs, RExen, POD sections,
971 `font-lock-type-face' Overridable keywords
972 `font-lock-variable-name-face' Variable declarations, indirect array and
985 `font-lock-string-face' \"Normal\" stuff and non-0-length constructs
986 `font-lock-constant-face': Delimiters
987 `font-lock-warning-face' Special-cased m// and s//foo/,
992 `font-lock-type-face' POSIX classes inside charclasses,
995 `font-lock-keyword-face' Capturing parens, and |
996 `font-lock-function-name-face' Special symbols: $ ^ . [ ] [^ ] (?{ }) (??{ })
997 `font-lock-builtin-face' \"Remaining\" 0-length constructs, executable
999 `font-lock-variable-name-face' Interpolated constructs, embedded code
1000 `font-lock-comment-face' Embedded comments
1035 (defsubst cperl-enable-font-lock ()
1036 cperl-can-font-lock)
1058 (if (and post cperl-syntaxify-by-font-lock)
1120 ;; Calling `cperl-enable-font-lock' below doesn't compile on XEmacs,
1505 (defvar cperl-font-lock-multiline-start nil)
1506 (defvar cperl-font-lock-multiline nil)
1508 (defvar cperl-font-locking nil)
1579 Setting the variable `cperl-font-lock' to t switches on font-lock-mode
1728 (make-local-variable 'cperl-font-lock-multiline-start)
1729 (make-local-variable 'cperl-font-locking)
1808 (make-local-variable 'font-lock-defaults)
1809 (setq font-lock-defaults
1812 '(cperl-font-lock-keywords-2 nil nil ((?_ . "w"))))
1814 '((cperl-font-lock-keywords
1815 cperl-font-lock-keywords-1
1816 cperl-font-lock-keywords-2) nil nil ((?_ . "w"))))
1818 '((cperl-load-font-lock-keywords
1819 cperl-load-font-lock-keywords-1
1820 cperl-load-font-lock-keywords-2) nil nil ((?_ . "w"))))))
1828 ;; Fix broken font-lock:
1829 (or (boundp 'font-lock-unfontify-region-function)
1830 (set 'font-lock-unfontify-region-function
1831 'font-lock-default-unfontify-region))
1832 (unless cperl-xemacs-p ; Our: just a plug for wrong font-lock
1833 (make-local-variable 'font-lock-unfontify-region-function)
1834 (set 'font-lock-unfontify-region-function ; not present with old Emacs
1835 'cperl-font-lock-unfontify-region-function))
1838 (make-local-variable 'font-lock-syntactic-keywords)
1839 (setq font-lock-syntactic-keywords
1840 (if cperl-syntaxify-by-font-lock
1842 ;; unless font-lock-syntactic-keywords, font-lock (pre-22.1)
1844 ;; to make font-lock think that font-lock-syntactic-keywords
1847 (if (boundp 'font-lock-multiline) ; Newer font-lock; use its facilities
1849 (setq cperl-font-lock-multiline t) ; Not localized...
1850 (set (make-local-variable 'font-lock-multiline) t))
1851 (make-local-variable 'font-lock-fontify-region-function)
1852 (set 'font-lock-fontify-region-function ; not present with old Emacs
1853 'cperl-font-lock-fontify-region-function))
1854 (make-local-variable 'font-lock-fontify-region-function)
1855 (set 'font-lock-fontify-region-function ; not present with old Emacs
1856 'cperl-font-lock-fontify-region-function)
1869 (if (cperl-enable-font-lock)
1870 (if (cperl-val 'cperl-font-lock)
1872 (font-lock-mode 1))))
1885 (or cperl-syntaxify-by-font-lock
3371 (or cperl-font-locking
3445 (put-text-property bb e 'face (if string 'font-lock-string-face
3446 'font-lock-comment-face)))))
3598 (defvar font-lock-string-face)
3599 ;;(defvar font-lock-reference-face)
3600 (defvar font-lock-constant-face)
3603 (if cperl-syntaxify-by-font-lock
3668 (defvar font-lock-variable-name-face)
3669 (defvar font-lock-function-name-face)
3670 (defvar font-lock-keyword-face)
3671 (defvar font-lock-builtin-face)
3672 (defvar font-lock-type-face)
3673 (defvar font-lock-comment-face)
3674 (defvar font-lock-warning-face)
3695 'face font-lock-constant-face))
3698 'face font-lock-constant-face)
3712 (forward-comment (buffer-size))
3732 font-lock-function-name-face
3733 font-lock-variable-name-face)))))
3748 'face font-lock-warning-face))))
3750 ;;; Debugging this may require (setq max-specpdl-size 2000)...
3767 (cperl-font-locking t)
3777 ;; Somehow font-lock may be not loaded yet...
3779 (font-lock-string-face (if (boundp 'font-lock-string-face)
3780 font-lock-string-face
3781 'font-lock-string-face))
3782 (my-cperl-delimiters-face (if (boundp 'font-lock-constant-face)
3783 font-lock-constant-face
3784 'font-lock-constant-face))
3786 (if (boundp 'font-lock-function-name-face)
3787 font-lock-function-name-face
3788 'font-lock-function-name-face))
3789 (font-lock-variable-name-face ; interpolated vars and ({})-code
3790 (if (boundp 'font-lock-variable-name-face)
3791 font-lock-variable-name-face
3792 'font-lock-variable-name-face))
3793 (font-lock-function-name-face ; used in `cperl-find-sub-attrs'
3794 (if (boundp 'font-lock-function-name-face)
3795 font-lock-function-name-face
3796 'font-lock-function-name-face))
3797 (font-lock-constant-face ; used in `cperl-find-sub-attrs'
3798 (if (boundp 'font-lock-constant-face)
3799 font-lock-constant-face
3800 'font-lock-constant-face))
3802 (if (boundp 'font-lock-builtin-face)
3803 font-lock-builtin-face
3804 'font-lock-builtin-face))
3805 (font-lock-comment-face
3806 (if (boundp 'font-lock-comment-face)
3807 font-lock-comment-face
3808 'font-lock-comment-face))
3809 (font-lock-warning-face
3810 (if (boundp 'font-lock-warning-face)
3811 font-lock-warning-face
3812 'font-lock-warning-face))
3814 (if (boundp 'font-lock-keyword-face)
3815 font-lock-keyword-face
3816 'font-lock-keyword-face))
3822 (if (boundp 'font-lock-type-face)
3823 font-lock-type-face
3824 'font-lock-type-face))
4171 'face font-lock-string-face)
4182 'face font-lock-string-face)
4426 b e 'face font-lock-warning-face)
4543 font-lock-warning-face))
4544 (error font-lock-warning-face)))
4558 font-lock-variable-name-face)
4586 font-lock-warning-face
4731 'face font-lock-warning-face))
4746 'face font-lock-variable-name-face)
4784 'face font-lock-comment-face))))))
4818 (forward-comment (buffer-size))
4866 ;; I do not understand what this is doing here. It breaks font-locking
4867 ;; because it resets the syntax-table from font-lock-syntax-table to
5730 (if (boundp 'font-lock-multiline)
5731 (setq cperl-font-lock-multiline t))
5734 (add-hook 'font-lock-mode-hook
5745 (defvar cperl-font-lock-keywords-1 nil
5747 (defvar cperl-font-lock-keywords nil
5749 (defvar cperl-font-lock-keywords-2 nil
5752 (defun cperl-load-font-lock-keywords ()
5754 cperl-font-lock-keywords)
5756 (defun cperl-load-font-lock-keywords-1 ()
5758 cperl-font-lock-keywords-1)
5760 (defun cperl-load-font-lock-keywords-2 ()
5762 cperl-font-lock-keywords-2)
5766 (or (boundp 'font-lock-constant-face)
5767 (cperl-force-face font-lock-constant-face
5769 (or (boundp 'font-lock-warning-face)
5770 (cperl-force-face font-lock-warning-face
5772 ;;(setq font-lock-constant-face 'font-lock-constant-face)
5778 (require 'font-lock)
5779 (and (fboundp 'font-lock-fontify-anchored-keywords)
5780 (featurep 'font-lock-extra)
5781 (message "You have an obsolete package `font-lock-extra'. Install `choose-color'."))
5782 (let (t-font-lock-keywords t-font-lock-keywords-1 font-lock-anchored)
5783 (if (fboundp 'font-lock-fontify-anchored-keywords)
5784 (setq font-lock-anchored t))
5786 t-font-lock-keywords
5869 "\\)\\>") 2 'font-lock-type-face)
5901 font-lock-function-name-face keep) ; Not very good, triggers at "[a-z]"
5913 2 (if cperl-font-lock-multiline
5915 'font-lock-function-name-face
5916 'font-lock-variable-name-face)
5917 ;; need to manually set 'multiline' for older font-locks
5925 'font-lock-function-name-face
5926 'font-lock-variable-name-face))))
5928 2 font-lock-function-name-face)
5930 1 font-lock-function-name-face)
5931 (cond ((featurep 'font-lock-extra)
5933 (2 font-lock-string-face t)
5935 (font-lock-anchored
5937 (2 font-lock-string-face t)
5940 (1 font-lock-string-face t))))
5942 2 font-lock-string-face t)))
5944 font-lock-string-face t)
5946 font-lock-constant-face) ; labels
5948 2 font-lock-constant-face)
5950 ;;; '("[$*]{?\\(\\sw+\\)" 1 font-lock-variable-name-face)
5952 ;;; (2 (cons font-lock-variable-name-face '(underline))))
5953 (cond ((featurep 'font-lock-extra)
5955 (3 font-lock-variable-name-face)
5958 (1 font-lock-variable-name-face)
5961 (font-lock-anchored
5968 (5 (, (if cperl-font-lock-multiline
5969 'font-lock-variable-name-face
5970 '(progn (setq cperl-font-lock-multiline-start
5972 'font-lock-variable-name-face))))
5978 ;; Bug in font-lock: limit is used not only to limit
5981 (, (if cperl-font-lock-multiline
5996 (, (if cperl-font-lock-multiline
6000 ;; so cperl-font-lock-multiline-start is nil
6001 (if (or (not cperl-font-lock-multiline-start)
6003 cperl-font-lock-multiline-start
6007 (1+ cperl-font-lock-multiline-start) (point)
6009 (setq cperl-font-lock-multiline-start nil))))
6010 (3 font-lock-variable-name-face)))))
6012 3 font-lock-variable-name-face)))
6014 4 font-lock-variable-name-face)
6016 '("\\(?:^\\|[^smywqrx$]\\)\\(!\\)" 1 font-lock-negation-char-face)
6017 '("\\[\\(\\^\\)" 1 font-lock-negation-char-face prepend)))
6019 t-font-lock-keywords-1
6020 (and (fboundp 'turn-on-font-lock) ; Check for newer font-lock
6039 font-lock-variable-name-face) ; Just to put something
6043 (2 font-lock-variable-name-face))
6046 (2 font-lock-variable-name-face))
6050 ;;(3 font-lock-function-name-face t t)
6053 ;; font-lock-function-name-face 'default) nil t))
6056 (setq t-font-lock-keywords-1
6057 (append t-font-lock-keywords-1
6059 font-lock-variable-name-face)))))
6060 (setq cperl-font-lock-keywords-1
6061 (if cperl-syntaxify-by-font-lock
6063 t-font-lock-keywords)
6064 t-font-lock-keywords)
6065 cperl-font-lock-keywords cperl-font-lock-keywords-1
6066 cperl-font-lock-keywords-2 (append
6067 cperl-font-lock-keywords-1
6068 t-font-lock-keywords-1)))
6070 (if (or (featurep 'choose-color) (featurep 'font-lock-extra))
6072 '(font-lock-require-faces
6075 (list 'font-lock-comment-face
6081 (list 'font-lock-string-face
6087 (list 'font-lock-function-name-face
6099 (list 'font-lock-variable-name-face
6105 (list 'font-lock-type-face
6111 (list 'font-lock-warning-face
6119 (list 'font-lock-constant-face
6156 (cperl-force-face font-lock-constant-face
6158 (cperl-force-face font-lock-variable-name-face
6160 (cperl-force-face font-lock-type-face
6164 (cperl-force-face font-lock-warning-face
6166 (cperl-force-face font-lock-comment-face
6168 (cperl-force-face font-lock-function-name-face
6174 ;;(defvar font-lock-constant-face 'font-lock-constant-face)
6175 ;;(defvar font-lock-variable-name-face 'font-lock-variable-name-face)
6176 ;;(or (boundp 'font-lock-type-face)
6177 ;; (defconst font-lock-type-face
6178 ;; 'font-lock-type-face
6185 ;; (or (boundp 'font-lock-comment-face)
6186 ;; (defconst font-lock-comment-face
6187 ;; 'font-lock-comment-face
6189 ;; (or (boundp 'font-lock-keyword-face)
6190 ;; (defconst font-lock-keyword-face
6191 ;; 'font-lock-keyword-face
6193 ;; (or (boundp 'font-lock-function-name-face)
6194 ;; (defconst font-lock-function-name-face
6195 ;; 'font-lock-function-name-face
6199 (cperl-is-face 'font-lock-emphasized-face))
6200 (copy-face 'font-lock-emphasized-face 'cperl-array-face))
6203 (cperl-is-face 'font-lock-other-emphasized-face))
6204 (copy-face 'font-lock-other-emphasized-face 'cperl-hash-face))
6207 (cperl-is-face 'font-lock-other-type-face))
6208 (copy-face 'font-lock-other-type-face 'cperl-nonoverridable-face))
6219 (if (boundp 'font-lock-background-mode)
6220 font-lock-background-mode
6231 (if (and (boundp 'font-lock-display-type)
6232 (eq font-lock-display-type 'grayscale))
6236 (and (not (cperl-is-face 'font-lock-constant-face))
6237 (cperl-is-face 'font-lock-reference-face)
6238 (copy-face 'font-lock-reference-face 'font-lock-constant-face))
6239 (if (cperl-is-face 'font-lock-type-face) nil
6240 (copy-face 'default 'font-lock-type-face)
6243 (set-face-foreground 'font-lock-type-face
6248 (set-face-foreground 'font-lock-type-face
6253 (set-face-background 'font-lock-type-face "gray90"))))
6256 (copy-face 'font-lock-type-face 'cperl-nonoverridable-face)
6268 ;;; (if (cperl-is-face 'font-lock-other-emphasized-face) nil
6269 ;;; (copy-face 'bold-italic 'font-lock-other-emphasized-face)
6272 ;;; (set-face-background 'font-lock-other-emphasized-face
6279 ;;; (set-face-background 'font-lock-other-emphasized-face
6285 ;;; (t (set-face-background 'font-lock-other-emphasized-face "gray90"))))
6286 ;;; (if (cperl-is-face 'font-lock-emphasized-face) nil
6287 ;;; (copy-face 'bold 'font-lock-emphasized-face)
6290 ;;; (set-face-background 'font-lock-emphasized-face
6295 ;;; (set-face-background 'font-lock-emphasized-face
6301 ;;; (t (set-face-background 'font-lock-emphasized-face "gray90"))))
6302 (if (cperl-is-face 'font-lock-variable-name-face) nil
6303 (copy-face 'italic 'font-lock-variable-name-face))
6304 (if (cperl-is-face 'font-lock-constant-face) nil
6305 (copy-face 'italic 'font-lock-constant-face))))
6314 ;; font-lock-variable-name-face
6315 ;; font-lock-constant-face
6319 ;; font-lock-constant-face
6323 ;; font-lock-type-face
6356 ;;; (append '(font-lock-emphasized-face
6358 ;;; font-lock-keyword-face
6359 ;;; font-lock-variable-name-face
6360 ;;; font-lock-constant-face
6361 ;;; font-lock-reference-face
6362 ;;; font-lock-other-emphasized-face
6367 ;;; font-lock-constant-face
6368 ;;; font-lock-reference-face
6369 ;;; font-lock-other-emphasized-face
6373 ;;; (append '(font-lock-emphasized-face
6375 ;;; font-lock-other-emphasized-face
6377 ;;; cperl-nonoverridable-face font-lock-type-face)
6379 ;;; (cons 'font-lock-type-face ps-underlined-faces))
6382 (if (cperl-enable-font-lock) (cperl-windowed-init))
6668 `cperl-max-help-size'."
6718 (cond ((if not-loner cperl-max-help-size
6730 (/ (* (- frheight 3) cperl-max-help-size) 100)
6941 rescan requested by `font-lock'. ACTUAL is the range actually resyntaxified;
6947 (setq arg (if (eq cperl-syntaxify-by-font-lock
6950 (setq cperl-syntaxify-by-font-lock arg)
7614 '(font-lock-comment-face font-lock-string-face))
7776 -s File has non-zero size.
7781 -z File has zero size.
8100 (if (= (buffer-size) 0)
8815 "A callback to process user-initiated font-change requests.
8861 (defun cperl-emulate-lazy-lock (&optional window-size)
8869 (or window-size (setq window-size -50))
8870 (let ((pos (if (> window-size 0)
8876 ;; Why needed??? With older font-locks???
8877 (set (make-local-variable 'font-lock-cache-position) (make-marker))
8878 (while (if (> window-size 0)
8882 (forward-line window-size)
8884 (font-lock-fontify-region (min p pos) (max p pos))
8934 ;;; Plug for wrong font-lock:
8936 (defun cperl-font-lock-unfontify-region-function (beg end)
8945 (defun cperl-font-lock-fontify-region-function (beg end loudly)
8947 Newer `font-lock's can do it themselves.
8971 (font-lock-default-fontify-region beg end loudly))
8980 (if (eq cperl-syntaxify-by-font-lock 'backtrace)
9002 (if (memq cperl-syntaxify-by-font-lock '(backtrace message))
9035 ;; We should have been informed about changes by `font-lock'. Since it
9042 cperl-syntaxify-by-font-lock