Lines Matching +defs:face +defs:name
96 (defmacro defgroup (name val doc &rest arr)
99 (defmacro defcustom (name val doc &rest arr)
100 (` (defvar (, name) (, val) (, doc)))))
110 ((fboundp 'valid-color-name-p) (` (valid-color-name-p (, col))))
112 ((fboundp 'x-valid-color-name-p) (` (x-valid-color-name-p (, col))))
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
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."
845 5) and functions (by the full name - with package);
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'")))
1305 (fboundp 'ps-extend-face-list)]
1397 ;;; Is incorporated in `cperl-imenu--function-name-regexp-perl'
1405 of attributes (if present), or end of the name or prototype (whatever is
1408 "\\(" ; n+1=name-group
1409 cperl-white-and-comment-rex ; n+2=pre-name
1410 "\\(::[a-zA-Z_0-9:']+\\|[a-zA-Z_'][a-zA-Z_0-9:']*\\)" ; n+3=name
1411 "\\)" ; END n+1=name-group
1424 "\\(\\sw\\|_\\)+" ; attr-name
1438 ;;;; Was: 2=sub|package; now 2=package-group, 5=package-name 8=sub-name (+3)
1439 (defvar cperl-imenu--function-name-regexp-perl
1443 "\\(" ; 3 = package-name-group
1444 cperl-white-and-comment-rex ; 4 = pre-package-name
1445 "\\([a-zA-Z_0-9:']+\\)\\)?\\)" ; 5 = package-name
1448 (cperl-after-sub-regexp 'named nil) ; 8=name 11=proto 14=attr-start
1456 (concat cperl-imenu--function-name-regexp-perl "\\|" "\\`"))
1615 `cperl-pod-face', `cperl-pod-head-face' control processing of POD and
1699 (setq mode-name "CPerl")
1731 ;; (setq outline-regexp imenu-example--function-name-regexp-perl)
1759 ;;; (cperl-after-sub-regexp 'named nil) ; 8=name 11=proto 14=attr-start
1873 (set (make-local-variable 'facemenu-add-face-function)
1874 'cperl-facemenu-add-face-function) ; XXXX What this guy is for???
1897 (concat "perl " ;;(file-name-nondirectory
1901 (buffer-file-name)))
2276 head1 notlast name p really-delete over)
2310 (setq name (file-name-sans-extension
2311 (file-name-nondirectory (buffer-file-name)))
2313 (insert " NAME\n\n" name
3445 (put-text-property bb e 'face (if string 'font-lock-string-face
3446 'font-lock-comment-face)))))
3478 message). ARGUMENT should be the name of the construct (used in error
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)
3689 ;; No space between name and paren allowed...
3690 "\\(\\sw+\\)" ; 3=name
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))
3863 "\\(::[a-zA-Z_:'0-9]*\\|[a-zA-Z_'][a-zA-Z_:'0-9]*\\)\\)?" ; name
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)))
4144 name (if (match-beginning 8) ; 7 + 1
4171 'face font-lock-string-face)
4182 'face font-lock-string-face)
4185 (message "End of format `%s' not found." name)
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)))
4472 "\\|" ; 6= 0-length, 7: name, 8,9:code, 10:group
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)
4804 ;; "\\([a-zA-Z_:'0-9]+\\)\\)?" ; name ;14
5538 (defun cperl-imenu-addback (lst &optional isback name)
5544 (or name
5545 (setq name "+++BACK+++"))
5551 (setcdr elt (cons (cons name lst)
5553 (cperl-imenu-addback (cdr elt) t name))))
5563 (prev-pos 0) is-pack index index1 name (end-range 0) package)
5569 (or regexp cperl-imenu--function-name-regexp-perl)
5571 ;; 2=package-group, 5=package-name 8=sub-name
5574 (match-beginning 5) ; package name
5599 (setq name (buffer-substring (match-beginning 5)
5601 name (progn
5602 (set-text-properties 0 (length name) nil name)
5603 name)
5604 package (concat name "::")
5605 name (concat "package " name))
5607 (setq name "package;" package ""))
5616 ;; Skip this function name if it is a prototype declaration.
5619 (setq name
5621 (set-text-properties 0 (length name) nil name))
5625 ((string-match "[:']" name)
5629 (setq name (concat package name) meth t)))
5630 (setq index (cons name marker))
5637 (setq name (buffer-substring (match-beginning 17) (match-end 17))
5640 (set-text-properties 0 (length name) nil name)
5641 (setq name (concat (make-string
5644 name)
5645 index (cons name marker))
5646 (setq index1 (cons (concat "=" name) (cdr index)))
5658 (let ((lst index-pack-alist) hier-list pack elt group name)
5661 (setq elt (car lst) lst (cdr lst) name (substring (car elt) 8))
5662 (if (assoc name hier-list) nil
5663 (setq hier-list (cons (cons name (cdr elt)) hier-list))))
5710 ;;;; 2=package-group, 5=package-name 8=sub-name 16=head-level
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)
5848 "\\(uid\\|ent\\|nam\\)\\|grp\\)\\|host\\(by\\(addr\\|name\\)\\|"
5849 "ent\\)\\|s\\(erv\\(by\\(port\\|name\\)\\|ent\\)\\|"
5850 "ock\\(name\\|opt\\)\\)\\|c\\|login\\|net\\(by\\(addr\\|name\\)\\|"
5858 "\\(k\\|e\\)\\|dir\\)\\|set\\|cv\\|verse\\|f\\|winddir\\|name"
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]"
5907 "\\([^ \n\t{;()]+\\)" ; 2=name (assume non-anonymous)
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
6153 ;; ((fboundp 'valid-color-name-p) 'valid-color-name-p)
6155 ;; (t 'x-valid-color-name-p))))
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)
6332 to the file FILE. If FILE is nil, prompts for a file name.
6334 Style of printout regulated by the variable `cperl-ps-print-face-properties'."
6339 (concat (buffer-file-name) ".ps")
6340 nil nil 'file-name-history)))
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))
6599 (lambda (name)
6600 (cons name (eval name))))
6757 (defun cperl-imenu-info-imenu-name ()
6768 imenu-extract-index-name-function
6776 imenu-extract-index-name-function
6777 'cperl-imenu-info-imenu-name)
6854 ;; 1=fullname 2=package? 3=name 4=proto? 5=attrs? (VERY APPROX!)
6862 (or files (setq files (list buffer-file-name)))
6867 "sub wanted {push @ARGV, $File::Find::name if /\\.[pP][Llm]$/}
6972 (prev-pos 0) index index1 name package prefix)
6991 (setq index (imenu-example--name-and-position))
6992 (setq name (buffer-substring (match-beginning 3) (match-end 3)))
6993 (if (and prefix (string-match (concat "^" prefix) name))
6994 (setq name (substring name (length prefix))))
6995 (cond ((string-match "::" name) nil)
6997 (setq index1 (cons (concat package "::" name) (cdr index)))
6999 (setcar index name)
7003 (setq index (imenu-example--name-and-position))
7048 ;; After name now...
7073 ;; Need to insert the name without package as well
7123 (setq file (if dir default-directory (buffer-file-name)))
7127 (let ((tags-file-name "TAGS")
7132 ((file-exists-p tags-file-name)
7135 (visit-tags-table-buffer tags-file-name)))
7136 (t (set-buffer (find-file-noselect tags-file-name))))
7214 (let (type pack name pos line chunk ord cons1 file str info fileind)
7229 name (buffer-substring (match-beginning 2) (match-end 2))
7239 ;; Make new member of hierarchy name ==> file ==> pos if needed
7240 (if (setq cons1 (assoc name (nth ord cperl-hierarchy)))
7244 ;; First occurrence of the name, start alist
7245 (setq cons1 (cons name (list (cons fileind (vector file info)))))
7262 (let ((remover (function (lambda (elt) ; (name (file1...) (file2..))
7266 pack name cons1 to l1 l2 l3 l4 b)
7271 (or tags-file-name
7275 (set-buffer (get-file-buffer tags-file-name))
7394 (defun cperl-list-fold (list name limit)
7404 (setq list1 (cons (cons name
7409 (nreverse (cons (cons name
7413 (defun cperl-menu-to-keymap (menu &optional name)
7613 (or (memq (get-text-property (point) 'face)
7614 '(font-lock-comment-face font-lock-string-face))
7714 $ARGV The name of the current file used with <> .
7718 $^ The name of the current top-of-page format.
7727 $^O The operating system name under which this copy of Perl was built.
7731 $^X The name under which perl was invoked (argv[0] in C-speech).
7734 $~ The name of the current report format.
7804 @ARGV Command line arguments (not including the command name - see $0).
8636 "*File name for `pod2man'."
8645 (let* ((pod2man-args (concat buffer-file-name " | nroff -man "))
8646 (bufname (concat "Man " buffer-file-name))
8666 (manual-entry buffer-file-name)))
8669 (Man-getpage-in-background buffer-file-name)))))
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))))
8940 deactivate-mark buffer-file-name buffer-file-truename)
8941 (remove-text-properties beg end '(face nil))