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

Use syntax-propertize.

Fixes: debbugs:11739

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f3fd2fc6517870921e1cb78fd28ac75238111e0d..c26a196ebe7a10605f9f4e43b819d66df6ab5d4f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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.
 

diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el
index 9ea42db2a8c34314a217119a7d3e86a430c5db84..2c258fb446a35a9e756d329d056fe36887c91ae5 100644 (file)
--- a/lisp/progmodes/cperl-mode.el
+++ b/lisp/progmodes/cperl-mode.el
@@ -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"))