Lines Matching +refs:ps +refs:face +refs:italic
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
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
656 (:background "Gray90" :slant italic :underline t))
658 (:foreground "Gray80" :slant italic :underline t :weight bold))
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
682 (:background "Gray90" :weight bold :slant italic))
684 (:foreground "Gray80" :weight bold :slant italic))
686 (:foreground "Red" :background "lightyellow2" :weight bold :slant italic))
688 (:foreground "Red" :background ,cperl-dark-background :weight bold :slant italic))
689 (t (:weight bold :slant italic)))
690 "Font Lock mode face used to highlight hash names."
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
982 the faces: please specify bold, italic, underline, shadow and box.)
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'")))
1304 ["CPerl pretty print (exprmntl)" cperl-ps-print
1305 (fboundp 'ps-extend-face-list)]
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???
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)
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)
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))))
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))
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)))
4171 'face font-lock-string-face)
4182 'face font-lock-string-face)
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))))
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))
4746 'face font-lock-variable-name-face)
4749 'face my-cperl-REx-spec-char-face)
4752 'face my-cperl-REx-spec-char-face)
4784 'face font-lock-comment-face))))))
4791 (1- e1) e1 'face my-cperl-delimiters-face)
4795 b1 (1+ b1) 'face my-cperl-delimiters-face)
5728 (cond ((featurep 'ps-print)
5742 "ps-print"
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]"
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)))))
6069 (if (fboundp 'ps-print-buffer) (cperl-ps-print-init))
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))))
6310 (defun cperl-ps-print-init ()
6311 "Initialization of `ps-print' components for faces used in CPerl."
6312 (eval-after-load "ps-print"
6313 '(setq ps-bold-faces
6314 ;; font-lock-variable-name-face
6315 ;; font-lock-constant-face
6316 (append '(cperl-array-face cperl-hash-face)
6317 ps-bold-faces)
6318 ps-italic-faces
6319 ;; font-lock-constant-face
6320 (append '(cperl-nonoverridable-face cperl-hash-face)
6321 ps-italic-faces)
6322 ps-underlined-faces
6323 ;; font-lock-type-face
6324 (append '(cperl-array-face cperl-hash-face underline cperl-nonoverridable-face)
6325 ps-underlined-faces))))
6327 (defvar ps-print-face-extension-alist)
6329 (defun cperl-ps-print (&optional file)
6334 Style of printout regulated by the variable `cperl-ps-print-face-properties'."
6339 (concat (buffer-file-name) ".ps")
6343 (require 'ps-print) ; To get ps-print-face-extension-alist
6344 (let ((ps-print-color-p t)
6345 (ps-print-face-extension-alist ps-print-face-extension-alist))
6346 (cperl-ps-extend-face-list cperl-ps-print-face-properties)
6347 (ps-print-buffer-with-faces file)))
6349 ;;; (defun cperl-ps-print-init ()
6350 ;;; "Initialization of `ps-print' components for faces used in CPerl."
6352 ;;; (defvar ps-underlined-faces nil)
6353 ;;; (defvar ps-bold-faces nil)
6354 ;;; (defvar ps-italic-faces nil)
6355 ;;; (setq ps-bold-faces
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)
6364 ;;; ps-bold-faces))
6365 ;;; (setq ps-italic-faces
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)
6371 ;;; ps-italic-faces))
6372 ;;; (setq ps-underlined-faces
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)
6378 ;;; ps-underlined-faces))
6379 ;;; (cons 'font-lock-type-face ps-underlined-faces))
7327 root-packages root-functions ms many_ms same_name ps
7613 (or (memq (get-text-property (point) 'face)
7614 '(font-lock-comment-face font-lock-string-face))
8814 (defun cperl-facemenu-add-face-function (face end)
8816 Translates `bold', `italic', and `bold-italic' requests to insertion of
8822 (setq facemenu-end-add-face (if (eq face 'bold-italic) ">>" ">"))
8823 (cdr (or (assq face '((bold . "B<")
8824 (italic . "I<")
8825 (bold-italic . "B<I<")
8828 face))))
8941 (remove-text-properties beg end '(face nil))