[Emacs-diffs] Changes to emacs/lisp/progmodes/cperl-mode.el

[Stefan Monnier]

Index: emacs/lisp/progmodes/cperl-mode.el
diff -c emacs/lisp/progmodes/cperl-mode.el:1.60 
emacs/lisp/progmodes/cperl-mode.el:1.61
*** emacs/lisp/progmodes/cperl-mode.el:1.60     Fri Mar 25 10:06:23 2005
--- emacs/lisp/progmodes/cperl-mode.el  Wed Apr 27 19:46:13 2005
***************
*** 1514,1527 ****
        (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))
                '(t)))))
    (make-local-variable 'cperl-old-style)
    (if (boundp 'normal-auto-fill-function) ; 19.33 and later
--- 1514,1527 ----
        (set 'font-lock-unfontify-region-function ; not present with old Emacs
              'cperl-font-lock-unfontify-region-function)
        (make-local-variable 'cperl-syntax-done-to)
        (make-local-variable 'font-lock-syntactic-keywords)
        (setq font-lock-syntactic-keywords
              (if cperl-syntaxify-by-font-lock
!                 '((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