Lines Matching +defs:face +defs:or +defs:list
13 ;; GNU Emacs is free software; you can redistribute it and/or modify
15 ;; the Free Software Foundation; either version 2, or (at your option)
20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
32 ;; You can either fine-tune the bells and whistles of this mode or
41 ;; or as help on variables `cperl-tips', `cperl-problems', <<<<<<
46 ;; either lazy-lock-mode or fast-lock-mode. I prefer lazy-lock.
84 (or cperl-xemacs-p
86 (or window-system
95 (or (fboundp 'defgroup)
98 (or (fboundp 'custom-declare-variable)
101 (or (and (fboundp 'custom-declare-variable)
106 (or (fboundp 'x-color-defined-p)
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)))
133 (or (boundp (quote (, arg))) ; We use unquoted variants too
139 (list (, file) (, line)))))
158 (or cperl-xemacs-p
160 (or window-system
163 (defun cperl-choose-color (&rest list)
165 (while list
166 (or answer
167 (if (or (x-color-defined-p (car list))
168 (null (cdr list)))
169 (setq answer (car list))))
170 (setq list (cdr list)))
340 (or (and (boundp 'transient-mark-mode) ; For Emacs
408 "use cperl-vc-rcs-header or cperl-vc-sccs-header instead.")
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]."
576 "*Amount of space to insert between `}' and `else' or `elsif'
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."
701 Subdirectory `cperl-mode' may contain yet newer development releases and/or
710 Get support packages choose-color.el (or font-lock-extra.el before
734 from Perl menu, or hierarchic view of imenu. The second one uses the
804 The solution is to upgrade your Emacs or patch an older one. Note
823 handle 99.995% of lines correct - or somesuch. It automatically
831 3) Everything is customizable, one-by-one or in a big sweep;
841 1) Separate unordered list of \"interesting places\";
843 3) Separate list of packages;
849 f) Has a builtin list of one-line explanations for perl constructs.
851 corresponding place (or on demand);
852 h) Has an enhanced fontification (using 3 or 4 additional faces
874 (such as tr/a/b/), or regular expressions and `y/tr';
925 PODs and HERE-documents), or
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
959 2-arg operators s/y/tr/ or of RExen,
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
978 declarations depending on what they (do not) override, or special cases
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
1039 (set 'unread-command-events (list c))) ; Avoid undefined warning
1043 (setq unread-command-events (list (eval '(character-to-event c))))))
1045 (or (fboundp 'uncomment-region)
1078 (cperl-hairy (or hairy t))
1088 (or keep
1096 (or (get-text-property (point) 'syntax-type)
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'")))
1202 (or (boundp 'fill-paragraph-function)
1251 (or (text-property-any (point-min) (point-max) 'REx-interpolated t)
1278 (or
1296 ["Select this HERE-DOC or POD section"
1297 cperl-select-this-pod-or-here-doc
1305 (fboundp 'ps-extend-face-list)]
1316 ;;["Update classes" (cperl-tags-hier-init t) tags-table-list]
1405 of attributes (if present), or end of the name or prototype (whatever is
1513 Expression and list commands understand all C brackets.
1526 contains the parenths from the above list you want to be electrical.
1541 following \"if\" the following appears in the buffer: if () { or if ()
1558 return. It places you in the next line with proper indentation, or if
1601 help is available on \\[cperl-get-help], and one can run perldoc or
1608 menu, or via \\[cperl-toggle-autohelp]. Requires `run-with-idle-timer'.
1615 `cperl-pod-face', `cperl-pod-head-face' control processing of POD and
1640 then-clause of an if, or body of a while, or just a statement continuation.
1681 or as help on variables `cperl-tips', `cperl-problems',
1790 (set 'vc-header-alist (or cperl-vc-header-alist ; Avoid warning
1829 (or (boundp 'font-lock-unfontify-region-function)
1861 (or (fboundp 'cperl-old-auto-fill-mode)
1871 (progn (or cperl-faces-init (cperl-init-faces))
1873 (set (make-local-variable 'facemenu-add-face-function)
1874 'cperl-facemenu-add-face-function) ; XXXX What this guy is for???
1885 (or cperl-syntaxify-by-font-lock
1886 (progn (or cperl-faces-init (cperl-init-faces-weak))
1913 (setcdr precdr (list
1914 (list
1941 (setq was (cperl-to-comment-or-eol)
1991 (progn (cperl-to-comment-or-eol)
1995 "Comment or uncomment each line in the region in CPerl mode.
2002 "Uncomment or comment each line in the region in CPerl mode.
2026 (>= (save-excursion (cperl-to-comment-or-eol) (point)) (point)))
2040 (up-list (- (prefix-numeric-value arg)))
2042 (or (cperl-after-expr-p nil "{;)")
2048 (if (and (not arg) ; No args, end (of empty line or auto)
2050 (or (and (null only-before)
2089 (other-end (or end
2117 (or (if other-end (goto-char (marker-position other-end)))
2124 "Insert an opening parenthesis or a matching pair of parentheses.
2138 (>= (save-excursion (cperl-to-comment-or-eol) (point)) (point))
2160 If not, or if we are not at the end of marking range, would self-insert.
2176 (>= (save-excursion (cperl-to-comment-or-eol) (point)) (point))
2214 (save-excursion (or (not (re-search-backward "^=" nil t))
2215 (or
2246 (or (looking-at "[ \t]\\|$") (insert " "))
2264 (or pos (setq pos (point)))
2287 (or
2292 (or (not cperl-use-syntax-table-text-property)
2297 (or notlast
2348 (save-excursion (or (not (re-search-backward "^=" nil t))
2365 (or (looking-at "[ \t]\\|$") (insert " "))
2383 (save-excursion (cperl-to-comment-or-eol)
2385 (or (save-excursion
2388 (looking-at "[;{]")) ; After { or ; + spaces
2405 (or (memq (preceding-char) (append ";{" nil))
2411 (or (looking-at "{[ \t]*$") ; If there is a statement
2420 (or (looking-at "[ \t]*}[,; \t]*$") ; If there is a statement
2426 (or (memq (preceding-char) (append ";{" nil))
2494 (or (not (eq last-command-char ?:))
2502 (or
2518 (or (nth 3 pps) (nth 4 pps) (nth 5 pps))))))))
2540 "Backspace, or remove the whitespace around the point inserted by an electric
2578 (= (char-after (or (scan-lists (point) -1 1) (point-min))) ?\()))
2583 "Indent current line as Perl code, or in some cases insert a tab character.
2586 or in the line's indentation; otherwise insert a tab.
2627 (cond ((or (eq indent nil) (eq indent t))
2648 (if (or (not shift-amt)
2671 ;; returns list (START STATE DEPTH PRESTART),
2672 ;; START is a good place to start parsing, or equal to
2698 (or state (setq state (parse-partial-sexp start start-point -1 nil start-state)))
2699 (list start state depth prestart))))
2707 (or (previous-single-property-change (cperl-1+ p) prop lim)
2715 ;;; (t (or (previous-single-property-change p look-prop lim)
2753 look-prop (or (nth 1 (assoc prop cperl-look-for-prop))
2763 (start (or (nth 2 parse-data) ; last complete sexp terminated
2774 (or (nth 2 parse-data)
2817 ;; Line is at top level. May be data or function definition,
2818 ;; or may be function argument declaration.
2823 (cperl-backward-to-noncomment (or old-indent (point-min)))
2825 (or (bobp)
2842 ;; or function's arg decls. Set basic-indent accordingly.
2848 (list pre-indent-point)))
2851 (or (setq is-block
2861 (or (memq char-after
2868 ;; Statement level. Is it a continuation or a new statement?
2875 (while;;(or (eq (preceding-char) ?\,)
2877 (or;;(eq (char-after (- (point) 2)) ?\') ; ????
2889 (if (not (or (eq (1- (point)) containing-sexp)
2909 (or
2925 (or (next-single-property-change (point) 'in-pod)
2932 ;; We are at beginning of code (NOT label or comment)
2951 (or cperl-indent-wrt-brace
2970 (setq p (nth 1 ; start of innermost containing list
3021 ;;((or (null i) (eq i t) (numberp i))
3042 (+ (or cperl-regexp-indent-step cperl-indent-level)
3056 (+ (* p (or cperl-regexp-indent-step cperl-indent-level))
3060 (- (or cperl-regexp-indent-step cperl-indent-level)))
3063 (or cperl-regexp-indent-step cperl-indent-level)
3072 (+ (save-excursion ; To beg-of-defun, or end of last sexp
3079 ;; or function's arg decls. Set basic-indent accordingly.
3085 ;; Indenter for stuff in "parentheses" (or brackets, braces-as-hash)
3110 (if (or (elt i 3) ; is-block
3201 "Return a list of lists ((TYPE POS)...) of good points before the point.
3202 POS may be nil if it is hard to find, say, when TYPE is `string' or `comment'.
3213 (res (list (list 'parse-start start) (list 'parse-prestart prestart))))
3215 (setq res (cons (list 'string nil (nth 3 state)) res))) ; What started string
3223 (cperl-backward-to-noncomment (or parse-start (point-min)))
3226 ((or (bobp)
3228 (setq res (cons (list 'toplevel start) res)))
3230 (setq res (cons (list 'toplevel-after-parenth start) res)))
3232 (setq res (cons (list 'toplevel-continued start) res)))))
3237 (setq res (cons (list 'expression-blanks
3240 (or (looking-at "[ \t]*\\(#\\|$\\)")
3243 (cons (list 'expression containing-sexp) res))))
3248 (setq res (cons (list 'expression-blanks
3251 (or (looking-at "[ \t]*\\(#\\|$\\)")
3254 (cons (list 'expression containing-sexp) res))))
3257 (setq res (cons (list 'in-block containing-sexp) res))
3258 ;; Is it a continuation or a new statement?
3264 (while (or (eq (preceding-char) ?\,)
3275 (list (list 'statement-continued containing-sexp))
3280 (or
3301 ;; Now at the point, after label, or at start
3308 (list (list 'label-in-block (point)))
3310 (list
3311 (list 'label-in-block-min-indent (point))))
3313 (list 'statement-in-block (point))))))
3359 (cperl-to-comment-or-eol)
3365 (defun cperl-to-comment-or-eol ()
3366 "Go to position before comment on the current line, or to end of line.
3369 ;; then looks for literal # or end-of-line.
3371 (or cperl-font-locking
3376 (if (or (eq pr 'pod)
3377 (if (or (not e) (> e lim)) ; deep inside a group
3397 (or (re-search-forward
3402 (or (re-search-forward
3443 (or noface
3445 (put-text-property bb e 'face (if string 'font-lock-string-face
3446 'font-lock-comment-face)))))
3454 "Get a syntax table cached in ST, or create and cache into ST a syntax table.
3470 "Find the end of a regular expression or a stringish construct (q[] etc).
3474 is s/// or tr/// like expression. If END is nil, generates an error
3475 message if needed. If SET-ST is non-nil, will use (or generate) a
3498 (modify-syntax-entry starter (concat "(" (list ender)) st)
3499 (modify-syntax-entry ender (concat ")" (list starter)) st))
3528 (or (eq (char-syntax (following-char)) ?.)
3553 (or end
3557 (if ostart (format "%c ... %c" ostart (or oend ostart)) "")
3558 starter (or ender starter) bb)
3559 (or (car err-l) (setcar err-l b)))))
3569 (list i i2 ender starter go-forward)))
3576 (or st-l (setq st-l (list nil))) ; Avoid overwriting '()
3598 (defvar font-lock-string-face)
3599 ;;(defvar font-lock-reference-face)
3600 (defvar font-lock-constant-face)
3604 (or now (put-text-property b e 'cperl-postpone (cons type val)))
3625 ;; (or 0 if declaration); up to `{' or ';': `syntax-type' => `sub-decl'.
3662 (or (bolp) (forward-line 1))
3664 (or end pos)))))
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)
3680 (or st-l (setq st-l (list nil))) ; Avoid overwriting '()
3695 'face font-lock-constant-face))
3698 'face font-lock-constant-face)
3699 (goto-char end1) ; end or before `('
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'."
3757 (or min (setq min (point-min)
3760 (or max (setq max (point-max)))
3762 face head-face here-face b e bb tag qtag b1 e1 argument i c tail tb
3764 (case-fold-search nil) (inhibit-read-only t) (buffer-undo-list t)
3776 (st-l (list nil)) (err-l (list nil))
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))
3835 ;; First variant "BLAH" or just ``.
3841 ;; Second variant: Identifier or \ID (same as 'ID') or empty
3843 ;; Do not have <<= or << 30 or <<30 or << $blah.
3857 "\\([?/<]\\)" ; /blah/ or ?blah? or <file*glob>
3866 "\\(([^()]*)\\|:[^:]\\)\\)" ; prototype or attribute start
3869 "\\$\\(['{]\\)" ; $' or ${foo}
3876 "__\\(END\\|DATA\\)__" ; __END__ or __DATA__
3884 (or non-inter
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...
3924 ((match-beginning 18) ; $' or ${foo}
3938 ((or (nth 3 state) (nth 4 state))
3946 (if (or (nth 3 state) (nth 4 state)
3948 (if (or (nth 3 state) (nth 4 state) ignore-max)
3951 (or (car err-l) (setcar err-l (point))))
3960 (or (re-search-forward "^\n=cut\\>" stop-point 'toend)
3967 (or (car err-l) (setcar err-l b))))))
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))))
4022 (or (eq e (point-max))
4030 ;; ;; First variant "BLAH" or just ``.
4036 ;; ;; Second variant: Identifier or \ID or empty
4038 ;; ;; Do not have <<= or << 30 or <<30 or << $blah.
4048 (or (looking-at "[ \t]*(") ; << function_call()
4049 (save-excursion ; 1 << func_name, or $foo << 10
4089 b1 e1 'face my-cperl-delimiters-face)
4098 (or (and (re-search-forward (concat "^" qtag "$")
4106 (or (car err-l) (setcar err-l b))))
4112 'face my-cperl-delimiters-face)
4116 'face here-face)))
4171 'face font-lock-string-face)
4182 'face font-lock-string-face)
4186 (or (car err-l) (setcar err-l b)))
4191 ;; qq-like String or Regexp:
4192 ((or (match-beginning 10) (match-beginning 11))
4196 ;; "\\([?/<]\\)" ; /blah/ or ?blah? or <file*glob>
4221 ;; <file> or <$file>
4230 (or bb
4231 (if (eq b1 11) ; bare /blah/ or ?blah? or <foo>
4238 (or (memq (preceding-char)
4257 "\\(while\\|if\\|unless\\|until\\|and\\|or\\|not\\|xor\\|split\\|grep\\|map\\|print\\)\\>")))))
4278 (or bb
4294 (if (or bb
4329 ;; 2 or 3 later if some special quoting is needed.
4369 (if (or is-x-REx
4375 (or (eobp)
4408 e1 (point) 'face my-cperl-REx-modifiers-face)))
4413 (or (not (= (length argument) 0))
4426 b e 'face font-lock-warning-face)
4427 (if (or i2 ; Has 2 args
4429 (or
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))))) ; )|
4612 ((or (and (memq qtag (append "01234567" nil))
4629 'face my-cperl-REx-length1-face))))
4641 tag nil ; list of POSIX classes
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))
4734 (if (or (setq qtag
4746 'face font-lock-variable-name-face)
4749 'face my-cperl-REx-spec-char-face)
4752 'face my-cperl-REx-spec-char-face)
4766 (or;;(if (eq (char-after b) ?\) )
4784 'face font-lock-comment-face))))))
4791 (1- e1) e1 'face my-cperl-delimiters-face)
4795 b1 (1+ b1) 'face my-cperl-delimiters-face)
4800 ((match-beginning 17) ; sub with prototype or attribute
4806 ;; "\\(([^()]*)\\|:[^:]\\)\\)" ; 17:proto or attribute start
4853 (or (car err-l) (setcar err-l b)))
4857 cperl-syntax-done-to (or tmpend (max (point) max)))
4861 (or non-inter
4871 (list (car err-l) overshoot)))
4878 ;; Stops at lim or after non-whitespace that is not in comment
4881 (while (and (not stop) (> (point) (or lim (point-min))))
4888 (or (and (looking-at "^[ \t]*\\(#\\|$\\)")
4890 (progn (cperl-to-comment-or-eol) (bolp))
4901 (or (memq (preceding-char) (append ";){}$@&%\C-@" nil)) ; Or label! \C-@ at bobp
4909 (or (and (looking-at "[a-zA-Z0-9_:]+[ \t\n\f]*[{#]") ; Method call syntax
4933 (or pre-block (forward-sexp -1))
4935 (or (eq (point) lim)
4946 (or (and (looking-at "\\(else\\|continue\\|grep\\|map\\|BEGIN\\|END\\|CHECK\\|INIT\\)\\>")
4963 `}' is treated \"smartly\" if it is not in the list)."
4964 (let ((lim (or lim (point-min)))
4985 ;; Else: last iteration, or a label
4986 (cperl-to-comment-or-eol) ; Will not move past "." after a format
4998 (or (bobp) ; ???? Needed
5003 (or (memq (preceding-char) (append (or chars "{;") nil))
5013 (while (and (or (not lim)
5023 (or (looking-at (concat cperl-maybe-white-and-comment-rex "[;}]"))
5027 ;; otherwise fails, or ends at a start of following sexp.
5028 ;; XXXX PROBLEMS: if what follows (after ";") @FOO, or ${bar}
5029 ;; may be stuck after @ or $; just put some stupid workaround now:
5035 (or (< (point) p)
5043 (while (and (< (point) (or lim (point-max)))
5063 (or (bobp)
5077 Will not indent comment if it starts at `comment-indent' or looks like
5094 (parse-partial-sexp (point) tmp-end nil t) ; To start-sexp or eol
5095 (or (eolp) (forward-sexp 1)))
5104 (if (eq (following-char) ?$ ) ; for my $var (list)
5144 (or end
5148 (or cperl-indent-region-fix-constructs 1))
5156 (or (looking-at "[ \t]*\\(els\\(e\\|if\\)\\|continue\\|if\\|while\\|for\\(each\\)?\\|until\\)")
5218 ;; Looking at (with or without "}" at start, ending after "({"):
5223 (setq ml (match-beginning 8)) ; "(" or "{" after control word
5231 ;; after `else' or nothing
5240 (if (and (or (not pp) (< pp end)) ; Do not go too far...
5289 (if (or cperl-break-one-line-blocks-when-indent ml)
5309 (up-list 1)
5328 (or (eq (preceding-char) ?\;)
5343 (setq cperl-update-start (min beg (or cperl-update-start (point-max))))
5344 (setq cperl-update-end (max end (or cperl-update-end (point-min)))))
5349 or looks like continuation of the comment on the previous line.
5360 (list nil nil nil) ; Cannot use '(), since will modify
5367 (setq old-comm-indent (and (cperl-to-comment-or-eol)
5372 (or (bolp) (beginning-of-line 2))
5375 (if (or
5378 (or (eq (current-indentation) (or old-comm-indent
5391 (or comm
5397 (and (cperl-to-comment-or-eol)
5425 If any of the current line is a comment, fill the comment or the
5434 ;; Line that contains code and comment (or nil)
5449 ;; semi which starts the comment shouldn't be part of a string or
5451 ((cperl-to-comment-or-eol)
5475 (or (looking-at "^[ \t]*#+[ \t]*[^ \t\n#]")
5506 (if (or (= (current-column) c) iteration) nil
5520 (cperl-to-comment-or-eol) (point)))
5532 (if (or (not s) (memq (following-char) '(?\s ?\t))) nil
5536 (or (memq (preceding-char) '(?\s ?\t)) (insert " "))))))
5544 (or name
5569 (or regexp cperl-imenu--function-name-regexp-perl)
5580 (or (match-beginning 2)
5581 (match-beginning 8)) ; package or sub
5594 (setq package (or (car packages) "")
5595 end-range (or (car ends-ranges) 0))
5614 (or (eq (following-char) ?\;)
5618 (or is-pack
5657 (and (or index-pack-alist index-meth-alist)
5658 (let ((lst index-pack-alist) hier-list pack elt group name)
5662 (if (assoc name hier-list) nil
5663 (setq hier-list (cons (cons name (cdr elt)) hier-list))))
5669 (if (setq group (assoc pack hier-list))
5678 (setcdr group (list (cons (substring
5682 (setq hier-list
5684 (list (cons (substring
5688 hier-list))))))
5690 hier-list)
5696 (and (or index-pack-alist index-pod-alist
5739 (or cperl-faces-init (cperl-init-faces)))))))
5743 '(or cperl-faces-init (cperl-init-faces)))))))
5753 (or cperl-faces-init (cperl-init-faces))
5757 (or cperl-faces-init (cperl-init-faces))
5761 (or cperl-faces-init (cperl-init-faces))
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)
5787 (list
5788 `("[ \t]+$" 0 ',cperl-invalid-face t)
5802 (list
5824 ;; "not" "oct" "open" "opendir" "or" "ord" "pack" "pipe"
5845 "f\\(ileno\\|cntl\\|lock\\|or\\(k\\|mline\\)\\)\\|"
5868 "x\\(\\|or\\)\\|__\\(FILE__\\|LINE__\\|PACKAGE__\\)"
5869 "\\)\\>") 2 'font-lock-type-face)
5873 (list
5895 "\\)\\>") 2 'cperl-nonoverridable-face)
5901 font-lock-function-name-face keep) ; Not very good, triggers at "[a-z]"
5905 (list (concat "\\<sub"
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))))
6001 (if (or (not cperl-font-lock-multiline-start)
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)))
6022 (or
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))
6058 (list '("\\([$*]{?\\sw+\\)" 1
6059 font-lock-variable-name-face)))))
6070 (if (or (featurep 'choose-color) (featurep 'font-lock-extra))
6073 (list
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
6149 ;; (or (fboundp 'x-color-defined-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)
6334 Style of printout regulated by the variable `cperl-ps-print-face-properties'."
6336 (or file
6341 (or (> (length file) 0)
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))
6577 Should be used via `cperl-set-style' or via Perl menu.
6584 The list of styles is in `cperl-style-alist', available styles
6593 (let ((list (mapcar (function (lambda (elt) (list (car elt))))
6595 (list (completing-read "Enter style: " list nil 'insist))))
6596 (or cperl-old-style
6610 (or cperl-old-style (error "The style was not changed"))
6651 "Return the word at point or at P."
6654 (or (cperl-word-at-point-hard)
6657 (funcall (or (and (boundp 'find-tag-default-function)
6674 (list (if (equal read "")
6681 max-height char-height buf-list)
6690 (or isvar
6701 buf-list (list buf "*info-perl-var*" "*info-perl*"))
6702 (while (and (not win) buf-list)
6703 (setq win (get-buffer-window (car buf-list) t))
6704 (setq buf-list (cdr buf-list)))
6705 (or (not win)
6709 (if (or (not fr2) (eq fr1 fr2))
6800 \(or `cperl-indent-level', if `cperl-lineup-step' is nil).
6825 (setq step (or step cperl-lineup-step cperl-indent-level))
6826 (or minshift (setq minshift 1))
6834 (or seen
6862 (or files (setq files (list buffer-file-name)))
6866 (setq args (append (list "-e"
6875 (setq args (append (list "-e"
6883 (or (eq res 0)
6932 "Toggle (or, with numeric argument, set) debugging state of syntaxification.
6946 (or arg
7020 (if (y-or-n-p
7043 (list (car elt)
7049 (or (eolp) (forward-char 1))
7089 (or noninteractive
7125 (or topdir
7150 (if (y-or-n-p
7153 tm nil) ; Return empty list
7196 (defvar cperl-tags-hier-regexp-list
7215 (while (re-search-forward cperl-tags-hier-regexp-list nil t)
7245 (setq cons1 (cons name (list (cons fileind (vector file info)))))
7261 (if (or update (null (nth 2 cperl-hierarchy)))
7263 (or (nthcdr 2 elt)
7268 (setq cperl-hierarchy (list l1 l2 l3))
7271 (or tags-file-name
7274 (message "Updating list of classes...")
7277 (or tags-table-list
7282 (message "Updating list of classes... %s" tagsfile)
7285 tags-table-list)
7286 (message "Updating list of classes... postprocessing..."))
7289 (setq to (list nil (cons "Packages: " (nth 1 cperl-hierarchy))
7294 (message "Updating list of classes: done, requesting display...")
7297 (or (nth 2 cperl-hierarchy)
7310 (setq update (car update)))) ; Get the last from the list
7321 (make-list level "[_a-zA-Z0-9]+")
7332 (or (eq ord 1) (match-end 2)))
7339 (setcdr writeto (cons (list head (list "Packages: ")
7340 (list "Methods: "))
7343 (setq cons2 (nth ord cons1)) ; Either packs or meths
7394 (defun cperl-list-fold (list name limit)
7396 (if (<= (length list) limit) list
7398 (while list
7400 elt1 (car list)
7401 list (cdr list))
7407 list2 (list elt1)
7414 (let (list)
7420 (setq list (cperl-list-fold
7424 (cperl-menu-to-keymap list))))
7426 (list (cdr elt) (car elt) t))))) ; t is needed in 19.34
7427 (cperl-list-fold menu "Root" imenu-max-items)))))
7477 (map-y-or-n-p "Insert space here? "
7506 (if (or
7518 (or (nth 3 pps) (nth 4 pps) (nth 5 pps)))))
7539 "[a-zA-Z_0-9:]+" ; symbol or number
7554 (or (eobp) (eolp) (forward-char 1))
7559 ;; ((or (eobp) (looking-at "[][ \t\n{}();,]")) ; Not at a symbol
7561 ;; (or (bobp) (backward-char 1))))
7613 (or (memq (get-text-property (point) 'face)
7614 '(font-lock-comment-face font-lock-string-face))
7660 (list
7673 ... Range (list context); flip/flop [no flop when flip] (scalar context).
7676 ... !~ ... Search pattern, substitution, or translation (negated).
7679 $# The output format for printed numbers. Default is %.15g or close.
7712 $? The status returned by the last ``, pipe close or `system'.
7713 $@ The perl error message from the last eval or do @var{EXPR} command.
7738 %INC List of files that have been require-d or do-ne.
7783 .. Range (list context); flip/flop (scalar context) operator.
7789 <NAME> Reads line from filehandle NAME (a bareword or dollar-bareword).
7793 ... <= ... Numeric less than or equal to.
7797 ... =~ ... Search pattern, substitution, or translation
7799 ... >= ... Numeric greater than or equal to.
7806 @_ Parameter array for subroutines; result of split() unless in list context.
7807 \\ Creates reference to what follows, like \\$var, or quotes non-\\w in strings.
7824 ... ^ ... Bitwise exclusive or.
7836 DATA Input filehandle for what follows after __END__ or __DATA__.
7852 continue of { block } continue { block }. Is executed after `next' or at end.
7872 eval(EXPR) or eval { BLOCK }
7873 exec([TRUENAME] ARGV0, ARGVs) or exec(SHELL_COMMAND_LINE)
7882 ... ge ... String greater than or equal.
7913 if (EXPR) { ... } [ elsif (EXPR) { ... } ... ] [ else { ... } ] or EXPR if EXPR
7921 ... le ... String less than or equal.
7936 my VAR or my (VAR1,...) Introduces a lexical variable ($VAR, @ARR, or %HASH).
7937 our VAR or our (VAR1,...) Lexically enable a global variable ($V, @A, or %H).
8009 system([TRUENAME] ARGV0 [,ARGV]) or system(SHELL_COMMAND_LINE)
8019 unless (EXPR) { ... } [ else { ... } ] or EXPR unless EXPR
8029 wantarray Returns true if the sub/eval is called in list context.
8033 ... x ... Repeat string or array.
8036 ... | ... Bitwise or.
8037 ... || ... Logical or.
8063 grep EXPR,LIST or grep {BLOCK} LIST Filters LIST via EXPR/BLOCK.
8064 map EXPR, LIST or map {BLOCK} LIST Applies EXPR/BLOCK to elts of LIST.
8067 ... or ... Low-precedence synonym for ||.
8081 ... xor ... Low-precedence synonym for exclusive or.
8086 =over [ NUMBER ] Start list.
8087 =item [ TITLE ] Start new item in the list.
8088 =back End list.
8128 c1 (+ c (or cperl-regexp-indent-step cperl-indent-level)))
8129 (or (looking-at "[ \t]*[\n#]")
8170 ((or (match-beginning 3) ; $ab[12]
8181 (or (eq (preceding-char) ?\])
8193 (or (re-search-forward ":\\]" e t)
8196 (or (eq (preceding-char) ?\])
8203 (or (eq pos c1)
8210 ;; (or (forward-sexp 1)
8250 (or (eolp) (indent-for-comment))
8277 (or (looking-at "[ \t\n]")
8281 (or (looking-at "[#\n]")
8296 (or cperl-use-syntax-table-text-property
8343 (or (eq (following-char) ?\()
8350 (or done (forward-char -1)))))
8366 (or c (setq c (current-indentation)))
8422 (or (looking-at w-rex)
8430 (or (looking-at w-rex)
8431 (error "Can't find `if', `unless', `while', `until', `for' or `foreach'"))
8479 "Change `if (A) {B}' into `B if A;' etc (or visa versa) if possible.
8532 (or (nth 3 state)
8542 (or (looking-at ";?[ \t\n]*}")
8551 (or (looking-at "[ \t\n]*)")
8590 ;;(error "Not at `if', `unless', `while', `until', `for' or `foreach'")
8601 (list (let* ((default-entry (cperl-word-at-point))
8624 (Manual-switches (if is-func (list "-f"))))
8674 (flist (and (boundp 'Man-filter-list) Man-filter-list)))
8682 (error "Malformed Man-filter-list"))
8704 SKIP is a list of possible types to skip, BEG and LIMIT are the starting
8707 SKIP may be a number, then it behaves as list of numbers up to SKIP; this
8713 (if (numberp skip) (setq skip (list 0 skip)))
8714 (or beg (setq beg (point)))
8715 (or limit (setq limit (point-max))) ; needed for n-s-p-c
8761 "Executes a function over regions of pods or here-documents.
8765 (or prop (setq prop 'in-pod))
8766 (or s (setq s (point-min)))
8767 (or end (setq end (point-max)))
8783 (or pos (setq pos (point)))
8785 (if (or (eq 'here-doc (get-text-property pos 'syntax-type))
8790 (cons b (or e (point-max))))))
8796 (or pos (setq pos (point)))
8798 (or p (error "Not inside a HERE document"))
8803 (defun cperl-select-this-pod-or-here-doc (&optional pos)
8804 "Select the HERE-DOC (or POD section) at POS.
8812 (message "I do not think POS is in POD or a HERE-doc..."))))
8814 (defun cperl-facemenu-add-face-function (face end)
8820 (or (get-text-property (point) 'in-pod)
8822 (setq facemenu-end-add-face (if (eq face 'bold-italic) ">>" ">"))
8823 (cdr (or (assq face '((bold . "B<")
8828 face))))
8841 (or l (setq l 1))
8842 (or step (setq step 500))
8843 (or lim (setq lim 40))
8863 Start fontifying the buffer from the start (or end) using the given
8869 (or window-size (setq window-size -50))
8937 (let* ((modified (buffer-modified-p)) (buffer-undo-list t)
8941 (remove-text-properties beg end '(face nil))
8963 (or (bolp) (condition-case nil
8985 (or cperl-syntax-done-to
9023 (setq pos (or (cperl-beginning-of-property
9043 (or (null cperl-syntax-done-to)