Lines Matching +defs:find +defs:face
114 (defmacro cperl-is-face (arg) ; Takes quoted arg
115 (cond ((fboundp 'find-face)
116 (` (find-face (, arg))))
117 (;;(and (fboundp 'face-list)
118 ;; (face-list))
119 (fboundp 'face-list)
120 (` (member (, arg) (and (fboundp 'face-list)
121 (face-list)))))
124 (defmacro cperl-make-face (arg descr) ; Takes unquoted arg
125 (cond ((fboundp 'make-face)
126 (` (make-face (quote (, arg)))))
129 (defmacro cperl-force-face (arg descr) ; Takes unquoted arg
131 (or (cperl-is-face (quote (, arg)))
132 (cperl-make-face (, arg) (, descr)))
440 (defcustom cperl-pod-face 'font-lock-comment-face
442 :type 'face
445 (defcustom cperl-pod-head-face 'font-lock-variable-name-face
448 :type 'face
451 (defcustom cperl-here-face 'font-lock-string-face
453 :type 'face
457 (defvar cperl-singly-quote-face cperl-xemacs-p)
459 (defcustom cperl-invalid-face 'underline
461 :type 'face
486 You can always make lookup from menu or using \\[cperl-find-pods-heres]."
629 (defcustom cperl-ps-print-face-properties
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)
634 (cperl-array-face nil "LightGray" bold underline)
635 (cperl-hash-face nil "LightGray" bold italic underline)
636 (font-lock-comment-face nil "LightGray" italic)
637 (font-lock-string-face nil nil italic underline)
638 (cperl-nonoverridable-face nil nil italic underline)
639 (font-lock-type-face nil nil underline)
640 (font-lock-warning-face nil "LightGray" bold italic box)
642 "List given as an argument to `ps-extend-face-list' in `cperl-ps-print'."
654 (defface cperl-nonoverridable-face
664 "Font Lock mode face used non-overridable keywords and modifiers of regexps."
667 (defface cperl-array-face
677 "Font Lock mode face used to highlight array names."
680 (defface cperl-hash-face
690 "Font Lock mode face used to highlight hash names."
880 expressions; can find matching () and [] in a regular expression.
884 u) Allows to find regular expressions which contain interpolated parts.
954 `cperl-array-face' Array names
955 `cperl-hash-face' Hash names
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
966 `cperl-nonoverridable-face' Non-overridable keywords, modifiers of RExen
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/,
991 `cperl-nonoverridable-face' Modifiers, as gism in m/REx/gism
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
1115 (if (fboundp 'ps-extend-face-list)
1116 (defmacro cperl-ps-extend-face-list (arg)
1117 `(ps-extend-face-list ,arg))
1118 (defmacro cperl-ps-extend-face-list (arg)
1119 `(error "This version of Emacs has no `ps-extend-face-list'")))
1151 (cperl-define-key "\C-c\C-b" 'cperl-find-bad-style)
1256 ["Insert spaces if needed to fix style" cperl-find-bad-style t]
1257 ["Refresh \"hard\" constructions" cperl-find-pods-heres t]
1305 (fboundp 'ps-extend-face-list)]
1307 ["Syntaxify region" cperl-find-pods-heres-region
1338 ["Define word at point" imenu-go-find-at-position
1339 (fboundp 'imenu-go-find-at-position)]
1615 `cperl-pod-face', `cperl-pod-head-face' control processing of POD and
1873 (set (make-local-variable 'facemenu-add-face-function)
1874 'cperl-facemenu-add-face-function) ; XXXX What this guy is for???
1887 (cperl-find-pods-heres)))))
2704 "Given that P has a property PROP, find where the property starts.
2749 (save-excursion ; Know we are not in POD, find appropriate pos before
2910 ;; If no, find that first statement and indent like
3202 POS may be nil if it is hard to find, say, when TYPE is `string' or `comment'.
3281 ;; If no, find that first statement and indent like
3445 (put-text-property bb e 'face (if string 'font-lock-string-face
3446 'font-lock-comment-face)))))
3502 ;; We use `$' syntax class to find matching stuff, but $$
3598 (defvar font-lock-string-face)
3599 ;;(defvar font-lock-reference-face)
3600 (defvar font-lock-constant-face)
3667 (defvar cperl-nonoverridable-face)
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)
3676 (defun cperl-find-sub-attrs (&optional st-l b-fname e-fname pos)
3695 'face font-lock-constant-face))
3698 'face font-lock-constant-face)
3730 b-fname e-fname 'face ; a REx, so do it here
3732 font-lock-function-name-face
3733 font-lock-variable-name-face)))))
3748 'face font-lock-warning-face))))
3751 (defun cperl-find-pods-heres (&optional min max non-inter end ignore-max end-of-here-doc)
3754 the sections using `cperl-pod-head-face', `cperl-pod-face',
3755 `cperl-here-face'."
3762 face head-face here-face b e bb tag qtag b1 e1 argument i c tail tb
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))
3785 (my-cperl-REx-spec-char-face ; [] ^.$ and wrapper-of ({})
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))
3801 (my-cperl-REx-0length-face ; 0-length, (?:)etc, non-literal \
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))
3813 (my-cperl-REx-ctl-face ; (|)
3814 (if (boundp 'font-lock-keyword-face)
3815 font-lock-keyword-face
3816 'font-lock-keyword-face))
3817 (my-cperl-REx-modifiers-face ; //gims
3818 (if (boundp 'cperl-nonoverridable-face)
3819 cperl-nonoverridable-face
3820 'cperl-nonoverridable-face))
3821 (my-cperl-REx-length1-face ; length=1 escaped chars, POSIX classes
3822 (if (boundp 'font-lock-type-face)
3823 font-lock-type-face
3824 'font-lock-type-face))
3886 ;;(message "find: %s --> %s" min max)
3889 (setq face cperl-pod-face
3890 head-face cperl-pod-head-face
3891 here-face cperl-here-face))
3904 ;; Need to remove face as well...
3995 (cperl-postpone-fontification b (point) 'face face t))
4004 (cperl-postpone-fontification (point) e 'face face t)
4011 'face head-face))
4019 'face head-face))))
4089 b1 e1 'face my-cperl-delimiters-face)
4112 'face my-cperl-delimiters-face)
4116 'face here-face)))
4133 (cperl-find-pods-heres c i t end t e1) 1))
4171 'face font-lock-string-face)
4182 'face font-lock-string-face)
4384 (car (cperl-find-pods-heres b1 (1- (point)) t end))
4408 e1 (point) 'face my-cperl-REx-modifiers-face)))
4426 b e 'face font-lock-warning-face)
4435 b (cperl-1+ b) 'face my-cperl-delimiters-face)
4437 (1- e) e 'face my-cperl-delimiters-face)))
4531 'face
4541 my-cperl-REx-0length-face
4542 my-cperl-REx-ctl-face)
4543 font-lock-warning-face))
4544 (error font-lock-warning-face)))
4546 my-cperl-REx-ctl-face)
4558 font-lock-variable-name-face)
4559 my-cperl-REx-spec-char-face))
4561 my-cperl-REx-spec-char-face)
4564 my-cperl-REx-ctl-face
4565 my-cperl-REx-0length-face))
4566 (t my-cperl-REx-0length-face)))
4578 ;; Generic: \non-alnum (1), \alnum (1+face)
4583 (- (point) 2) (- (point) 1) 'face
4586 font-lock-warning-face
4587 my-cperl-REx-0length-face))
4597 (1- (point)) (point) 'face
4600 'my-cperl-REx-spec-char-face
4602 'my-cperl-REx-0length-face
4603 'my-cperl-REx-ctl-face))))) ; )|
4629 'face my-cperl-REx-length1-face))))
4693 (message "Couldn't find end of charclass in a REx, pos=%s"
4702 'face my-cperl-REx-spec-char-face)
4704 (1- (point)) (point) 'face
4705 my-cperl-REx-spec-char-face)
4709 'face my-cperl-REx-0length-face))
4713 'face my-cperl-REx-length1-face)
4731 'face font-lock-warning-face))
4740 (setq qtag "Can't find })")))
4746 'face font-lock-variable-name-face)
4749 'face my-cperl-REx-spec-char-face)
4752 'face my-cperl-REx-spec-char-face)
4773 "Couldn't find end of (?#...)-comment in a REx, pos=%s"
4784 'face font-lock-comment-face))))))
4791 (1- e1) e1 'face my-cperl-delimiters-face)
4795 b1 (1+ b1) 'face my-cperl-delimiters-face)
4820 (cperl-find-sub-attrs st-l b1 e1 b)))
4823 (cperl-find-sub-attrs st-l b1 e1 b))))
4873 (defun cperl-find-pods-heres-region (min max)
4875 (cperl-find-pods-heres min max))
5099 (progn ;; Plan B: find by REGEXP block followup this line
5720 ;; This look like a paranoiac regexp: could anybody find a better one? (which WORKS).
5765 ;; Allow `cperl-find-pods-heres' to run.
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)
5788 `("[ \t]+$" 0 ',cperl-invalid-face t)
5869 "\\)\\>") 2 'font-lock-type-face)
5895 "\\)\\>") 2 'cperl-nonoverridable-face)
5901 font-lock-function-name-face keep) ; Not very good, triggers at "[a-z]"
5904 ;; it is already done by `cperl-find-pods-heres'
5915 'font-lock-function-name-face
5916 'font-lock-variable-name-face)
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)
5933 (2 font-lock-string-face t)
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))))
5955 (3 font-lock-variable-name-face)
5958 (1 font-lock-variable-name-face)
5969 'font-lock-variable-name-face
5972 'font-lock-variable-name-face))))
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)))
6030 'cperl-hash-face
6031 'cperl-array-face)
6037 'cperl-hash-face
6038 'cperl-array-face) ; arrays and hashes
6039 font-lock-variable-name-face) ; Just to put something
6042 (1 cperl-array-face)
6043 (2 font-lock-variable-name-face))
6045 (1 cperl-hash-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))
6059 font-lock-variable-name-face)))))
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
6125 (list 'cperl-nonoverridable-face
6132 (list 'cperl-array-face
6139 (list 'cperl-hash-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
6162 (cperl-force-face cperl-nonoverridable-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
6170 (cperl-force-face cperl-hash-face
6172 (cperl-force-face cperl-array-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
6180 ;;(or (boundp 'cperl-nonoverridable-face)
6181 ;; (defconst cperl-nonoverridable-face
6182 ;; 'cperl-nonoverridable-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
6198 (not (cperl-is-face 'cperl-array-face))
6199 (cperl-is-face 'font-lock-emphasized-face))
6200 (copy-face 'font-lock-emphasized-face 'cperl-array-face))
6202 (not (cperl-is-face 'cperl-hash-face))
6203 (cperl-is-face 'font-lock-other-emphasized-face))
6204 (copy-face 'font-lock-other-emphasized-face 'cperl-hash-face))
6206 (not (cperl-is-face 'cperl-nonoverridable-face))
6207 (cperl-is-face 'font-lock-other-type-face))
6208 (copy-face 'font-lock-other-type-face 'cperl-nonoverridable-face))
6209 ;;(or (boundp 'cperl-hash-face)
6210 ;; (defconst cperl-hash-face
6211 ;; 'cperl-hash-face
6213 ;;(or (boundp 'cperl-array-face)
6214 ;; (defconst cperl-array-face
6215 ;; 'cperl-array-face
6222 (face-list (and (fboundp 'face-list) (face-list))))
6223 ;;;; (fset 'cperl-is-face
6224 ;;;; (cond ((fboundp 'find-face)
6225 ;;;; (symbol-function 'find-face))
6226 ;;;; (face-list
6227 ;;;; (function (lambda (face) (member face face-list))))
6229 ;;;; (function (lambda (face) (boundp face))))))
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"))))
6254 (if (cperl-is-face 'cperl-nonoverridable-face)
6256 (copy-face 'font-lock-type-face 'cperl-nonoverridable-face)
6259 (set-face-foreground 'cperl-nonoverridable-face
6264 (set-face-foreground '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
6316 (append '(cperl-array-face cperl-hash-face)
6319 ;; font-lock-constant-face
6320 (append '(cperl-nonoverridable-face cperl-hash-face)
6323 ;; font-lock-type-face
6324 (append '(cperl-array-face cperl-hash-face underline cperl-nonoverridable-face)
6327 (defvar ps-print-face-extension-alist)
6334 Style of printout regulated by the variable `cperl-ps-print-face-properties'."
6343 (require 'ps-print) ; To get ps-print-face-extension-alist
6345 (ps-print-face-extension-alist ps-print-face-extension-alist))
6346 (cperl-ps-extend-face-list cperl-ps-print-face-properties)
6356 ;;; (append '(font-lock-emphasized-face
6357 ;;; cperl-array-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
6363 ;;; cperl-hash-face)
6366 ;;; (append '(cperl-nonoverridable-face
6367 ;;; font-lock-constant-face
6368 ;;; font-lock-reference-face
6369 ;;; font-lock-other-emphasized-face
6370 ;;; cperl-hash-face)
6373 ;;; (append '(font-lock-emphasized-face
6374 ;;; cperl-array-face
6375 ;;; font-lock-other-emphasized-face
6376 ;;; cperl-hash-face
6377 ;;; cperl-nonoverridable-face font-lock-type-face)
6379 ;;; (cons 'font-lock-type-face ps-underlined-faces))
6639 (Info-find-node cperl-info-page (if type "perlvar" "perlfunc"))
6657 (funcall (or (and (boundp 'find-tag-default-function)
6658 find-tag-default-function)
6659 (get major-mode 'find-tag-default-function)
6660 ;; XEmacs 19.12 has `find-tag-default-hook'; it is
6661 ;; automatically used within `find-tag-default':
6662 'find-tag-default))))))
6869 find(\\&wanted, '.');
7010 (defun cperl-find-tags (ifile xs topdir)
7030 (cperl-find-pods-heres nil nil noninteractive)
7136 (t (set-buffer (find-file-noselect tags-file-name))))
7190 (insert (cperl-find-tags file xs topdir))))))
7313 (find-file (elt update 0))
7469 (defun cperl-find-bad-style ()
7546 "Matches places in the buffer we can find help for.")
7613 (or (memq (get-text-property (point) 'face)
7614 '(font-lock-comment-face font-lock-string-face))
8345 (error "Cannot find `(' which starts a group"))
8431 (error "Can't find `if', `unless', `while', `until', `for' or `foreach'"))
8434 ;; First, simple part: find code boundaries
8481 construct, will assume it is the STATEMENT flavor, so will try to find
8814 (defun cperl-facemenu-add-face-function (face end)
8822 (setq facemenu-end-add-face (if (eq face 'bold-italic) ">>" ">"))
8823 (cdr (or (assq face '((bold . "B<")
8828 face))))
8941 (remove-text-properties beg end '(face nil))
9001 (cperl-find-pods-heres start end t nil t))