From: Stefan Monnier Date: Wed, 27 Apr 2005 19:46:13 +0000 (+0000) Subject: (cperl-mode): Don't precompile the font-lock-fontify-syntactic-keywords. X-Git-Tag: ttn-vms-21-2-B4~698 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=11b41e6f2087995dc7b780d5307a5af39b90c6e5;p=emacs.git (cperl-mode): Don't precompile the font-lock-fontify-syntactic-keywords. --- diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el index 700fa1c9efe..4a701edcca2 100644 --- a/lisp/progmodes/cperl-mode.el +++ b/lisp/progmodes/cperl-mode.el @@ -1514,14 +1514,14 @@ or as help on variables `cperl-tips', `cperl-problems', (set 'font-lock-unfontify-region-function ; not present with old Emacs 'cperl-font-lock-unfontify-region-function) (make-local-variable 'cperl-syntax-done-to) - ;; Another bug: unless font-lock-syntactic-keywords, font-lock - ;; ignores syntax-table text-property. (t) is a hack - ;; to make font-lock think that font-lock-syntactic-keywords - ;; are defined (make-local-variable 'font-lock-syntactic-keywords) (setq font-lock-syntactic-keywords (if cperl-syntaxify-by-font-lock - '(t (cperl-fontify-syntaxically)) + '((cperl-fontify-syntaxically)) + ;; unless font-lock-syntactic-keywords, font-lock (pre-22.1) + ;; used to ignore syntax-table text-properties. (t) is a hack + ;; to make font-lock think that font-lock-syntactic-keywords + ;; are defined. '(t))))) (make-local-variable 'cperl-old-style) (if (boundp 'normal-auto-fill-function) ; 19.33 and later