From 00424a9ec16c05993331c01d6486fd131478ede5 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 29 Jun 2005 07:59:36 +0000 Subject: [PATCH] (cperl-find-pods-heres): Don't gratuitously reset the syntax-table to cperl-mode-syntax-table. (cperl-mode): Make _ into word-syntax during font-locking so "print" in "foo_print_bar" is not matched as a reserved keyword. --- lisp/progmodes/cperl-mode.el | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el index d95c0294c4d..63b7ceb6ed0 100644 --- a/lisp/progmodes/cperl-mode.el +++ b/lisp/progmodes/cperl-mode.el @@ -1516,7 +1516,8 @@ or as help on variables `cperl-tips', `cperl-problems', (t '((cperl-load-font-lock-keywords cperl-load-font-lock-keywords-1 - cperl-load-font-lock-keywords-2))))) + cperl-load-font-lock-keywords-2) + nil nil ((?_ . "w")))))) (make-local-variable 'cperl-syntax-state) (if cperl-use-syntax-table-text-property (progn @@ -3840,7 +3841,11 @@ the sections using `cperl-pod-head-face', `cperl-pod-face', (and (buffer-modified-p) (not modified) (set-buffer-modified-p nil)) - (set-syntax-table cperl-mode-syntax-table)) + ;; 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) -- 2.39.2