Commit 00424a9e authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(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.
parent 01d37825
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment