(cperl-mode): Don't precompile the font-lock-fontify-syntactic-keywords.

[gnu-emacs] / lisp / progmodes / cperl-mode.el

diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el
index 700fa1c9efe29a7543d3c9f83e37ad5fbb3a5493..4a701edcca2e615933195c58f954bfc2f58693e1 100644 (file)
--- 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