Mercurial > emacs

comparison lisp/progmodes/cperl-mode.el @ 76299:08cc2843c940

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(cperl-mode): Modify cperl-compilation-error-regexp-alist by appending.
author Richard M. Stallman <rms@gnu.org>
date Sun, 04 Mar 2007 17:53:41 +0000
parents e3694f1cb928
children 5e661f4001f4 91bf6e05918b
comparison
equal deleted inserted replaced
76298:872a30c0f872 76299:08cc2843c940
1793 (make-local-variable 'compilation-error-regexp-alist) 1793 (make-local-variable 'compilation-error-regexp-alist)
1794 (push 'cperl compilation-error-regexp-alist))) 1794 (push 'cperl compilation-error-regexp-alist)))
1795 ((boundp 'compilation-error-regexp-alist);; xmeacs 19.x 1795 ((boundp 'compilation-error-regexp-alist);; xmeacs 19.x
1796 (make-local-variable 'compilation-error-regexp-alist) 1796 (make-local-variable 'compilation-error-regexp-alist)
1797 (set 'compilation-error-regexp-alist 1797 (set 'compilation-error-regexp-alist
1798 (cons cperl-compilation-error-regexp-alist 1798 (append cperl-compilation-error-regexp-alist
1799 (symbol-value 'compilation-error-regexp-alist))))) 1799 (symbol-value 'compilation-error-regexp-alist)))))
1800 (make-local-variable 'font-lock-defaults) 1800 (make-local-variable 'font-lock-defaults)
1801 (setq font-lock-defaults 1801 (setq font-lock-defaults
1802 (cond 1802 (cond
1803 ((string< emacs-version "19.30") 1803 ((string< emacs-version "19.30")
1804 '(cperl-font-lock-keywords-2 nil nil ((?_ . "w")))) 1804 '(cperl-font-lock-keywords-2 nil nil ((?_ . "w"))))