# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1114631173 0
# Node ID 6acaa6301fd7f98dce9f7ef1858b3e00538794ed
# Parent  dd02c82eebe74cc8fb4de9cf94ad7404624933b6
(cperl-mode): Don't precompile the font-lock-fontify-syntactic-keywords.

diff -r dd02c82eebe7 -r 6acaa6301fd7 lisp/progmodes/cperl-mode.el
--- a/lisp/progmodes/cperl-mode.el	Wed Apr 27 19:43:50 2005 +0000
+++ b/lisp/progmodes/cperl-mode.el	Wed Apr 27 19:46:13 2005 +0000
@@ -1514,14 +1514,14 @@
 	(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