/[emacs]/emacs/lisp/progmodes/cperl-mode.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/cperl-mode.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.32 by rms, Sat Mar 16 06:52:31 2002 UTC revision 1.33 by monnier, Mon Apr 8 22:39:00 2002 UTC
# Line 84  Line 84 
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
# Line 994  the faces: please specify bold, italic, Line 994  the faces: please specify bold, italic,
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)
# Line 3997  Returns some position at the last line." Line 3997  Returns some position at the last line."
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 "[({]")

Legend:
Removed from v.1.32  
changed lines
  Added in v.1.33

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26