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
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
