procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/progmodes/cperl-mode.el (cperl-update-syntaxification):

Browse source 
Use syntax-propertize.

Fixes: debbugs:11739
This commit is contained in:
Stefan Monnier 2012-06-21 12:49:21 -04:00
parent 2fecccba2f
commit bde2ab6f5b
2 changed files with 20 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2012-06-21 Stefan Monnier <monnier@iro.umontreal.ca>
* progmodes/cperl-mode.el (cperl-update-syntaxification):
Use syntax-propertize (bug#11739).
2012-06-13 Glenn Morris <rgm@gnu.org>
* international/mule-cmds.el (mule-menu-keymap)
@ -18,13 +23,13 @@
2012-06-01 Chong Yidong <cyd@gnu.org>
* cus-edit.el (customize-changed-options-previous-release): Bump
to 23.4.
* cus-edit.el (customize-changed-options-previous-release):
Bump to 23.4.
2012-05-31 Stefan Monnier <monnier@iro.umontreal.ca>
* emacs-lisp/bytecomp.el (byte-compile-fix-header): Handle
arbitrary file name lengths (Bug#11585).
* emacs-lisp/bytecomp.el (byte-compile-fix-header):
Handle arbitrary file name lengths (Bug#11585).
2012-05-28 Martin Rudalics <rudalics@gmx.at>
@ -34,8 +39,8 @@
2012-05-18 Eli Zaretskii <eliz@gnu.org>
* mail/sendmail.el (mail-yank-region): Recognize
rmail-yank-current-message in addition to insert-buffer. Fixes
mail-mode's "C-c C-r" that otherwise does nothing when invoked in
rmail-yank-current-message in addition to insert-buffer.
Fixes mail-mode's "C-c C-r" that otherwise does nothing when invoked in
a *mail* buffer created through rmail-start-mail with sendmail as
mail-user-agent.

17
lisp/progmodes/cperl-mode.el
View file

@ -8951,14 +8951,15 @@ do extra unwind via `cperl-unwind-to-safe'."
(setq cperl-syntax-done-to (min cperl-syntax-done-to beg))))
(defun cperl-update-syntaxification (from to)
(if (and cperl-use-syntax-table-text-property
cperl-syntaxify-by-font-lock
(or (null cperl-syntax-done-to)
(< cperl-syntax-done-to to)))
(progn
(save-excursion
(goto-char from)
(cperl-fontify-syntaxically to)))))
(cond
((not cperl-use-syntax-table-text-property) nil)
((fboundp 'syntax-propertize) (syntax-propertize to))
((and cperl-syntaxify-by-font-lock
(or (null cperl-syntax-done-to)
(< cperl-syntax-done-to to)))
(save-excursion
(goto-char from)
(cperl-fontify-syntaxically to)))))
(defvar cperl-version
(let ((v "Revision: 6.2"))