84 |
(cond ((fboundp 'make-face) |
(cond ((fboundp 'make-face) |
85 |
`(make-face (quote ,arg))) |
`(make-face (quote ,arg))) |
86 |
(t |
(t |
87 |
`(defconst ,arg (quote ,arg) ,descr)))) |
`(defvar ,arg (quote ,arg) ,descr)))) |
88 |
(defmacro cperl-force-face (arg descr) ; Takes unquoted arg |
(defmacro cperl-force-face (arg descr) ; Takes unquoted arg |
89 |
`(progn |
`(progn |
90 |
(or (cperl-is-face (quote ,arg)) |
(or (cperl-is-face (quote ,arg)) |
91 |
(cperl-make-face ,arg ,descr)) |
(cperl-make-face ,arg ,descr)) |
92 |
(or (boundp (quote ,arg)) ; We use unquoted variants too |
(or (boundp (quote ,arg)) ; We use unquoted variants too |
93 |
(defconst ,arg (quote ,arg) ,descr)))) |
(defvar ,arg (quote ,arg) ,descr)))) |
94 |
(if cperl-xemacs-p |
(if cperl-xemacs-p |
95 |
(defmacro cperl-etags-snarf-tag (file line) |
(defmacro cperl-etags-snarf-tag (file line) |
96 |
`(progn |
`(progn |
994 |
(defvar cperl-syntax-state nil) |
(defvar cperl-syntax-state nil) |
995 |
(defvar cperl-syntax-done-to nil) |
(defvar cperl-syntax-done-to nil) |
996 |
(defvar cperl-emacs-can-parse (> (length (save-excursion |
(defvar cperl-emacs-can-parse (> (length (save-excursion |
997 |
(parse-partial-sexp 1 1))) 9)) |
(parse-partial-sexp (point) (point)))) 9)) |
998 |
|
|
999 |
;; Make customization possible "in reverse" |
;; Make customization possible "in reverse" |
1000 |
(defsubst cperl-val (symbol &optional default hairy) |
(defsubst cperl-val (symbol &optional default hairy) |
3997 |
;; Looking at: |
;; Looking at: |
3998 |
;; } foreach my $var () { |
;; } foreach my $var () { |
3999 |
(if (looking-at |
(if (looking-at |
4000 |
"[ \t]*\\(}[ \t]*\\)?\\<\\(\\els\\(e\\|if\\)\\|continue\\|if\\|unless\\|while\\|for\\(each\\)?\\(\\([ t]+\\(my\\|local\\|our\\)\\)?[ \t]*\\$[_a-zA-Z0-9]+\\)?\\|until\\)\\>\\([ \t]*(\\|[ \t\n]*{\\)\\|[ \t]*{") |
"[ \t]*\\(}[ \t]*\\)?\\<\\(\\els\\(e\\|if\\)\\|continue\\|if\\|unless\\|while\\|for\\(each\\)?\\(\\([ \t]+\\(my\\|local\\|our\\)\\)?[ \t]*\\$[_a-zA-Z0-9]+\\)?\\|until\\)\\>\\([ \t]*(\\|[ \t\n]*{\\)\\|[ \t]*{") |
4001 |
(progn |
(progn |
4002 |
(setq ml (match-beginning 8)) |
(setq ml (match-beginning 8)) |
4003 |
(re-search-forward "[({]") |
(re-search-forward "[({]") |