Index: emacs/lisp/progmodes/cperl-mode.el
diff -c emacs/lisp/progmodes/cperl-mode.el:1.70
emacs/lisp/progmodes/cperl-mode.el:1.71
*** emacs/lisp/progmodes/cperl-mode.el:1.70 Thu Jun 16 16:19:24 2005
--- emacs/lisp/progmodes/cperl-mode.el Wed Jun 29 07:59:36 2005
***************
*** 1516,1522 ****
(t
'((cperl-load-font-lock-keywords
cperl-load-font-lock-keywords-1
! cperl-load-font-lock-keywords-2)))))
(make-local-variable 'cperl-syntax-state)
(if cperl-use-syntax-table-text-property
(progn
--- 1516,1523 ----
(t
'((cperl-load-font-lock-keywords
cperl-load-font-lock-keywords-1
! cperl-load-font-lock-keywords-2)
! nil nil ((?_ . "w"))))))
(make-local-variable 'cperl-syntax-state)
(if cperl-use-syntax-table-text-property
(progn
***************
*** 3840,3846 ****
(and (buffer-modified-p)
(not modified)
(set-buffer-modified-p nil))
! (set-syntax-table cperl-mode-syntax-table))
(car err-l)))
(defun cperl-backward-to-noncomment (lim)
--- 3841,3851 ----
(and (buffer-modified-p)
(not modified)
(set-buffer-modified-p nil))
! ;; I do not understand what this is doing here. It breaks font-locking
! ;; because it resets the syntax-table from font-lock-syntax-table to
! ;; cperl-mode-syntax-table.
! ;; (set-syntax-table cperl-mode-syntax-table)
! )
(car err-l)))
(defun cperl-backward-to-noncomment (lim)
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
