[Emacs-diffs] trunk r114932: * lisp/progmodes/cperl-mode.el (cperl-font-lock-fontify-region-function):

[Stefan Monnier]

------------------------------------------------------------
revno: 114932
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=15778
author: Nathan Trapuzzano <address@hidden>
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Sun 2013-11-03 22:44:23 -0500
message:
  * lisp/progmodes/cperl-mode.el (cperl-font-lock-fontify-region-function):
  Don't infloop when expanding region over `multiline' syntax-type that
  begins a line.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/progmodes/cperl-mode.el   
cperlmode.el-20091113204419-o5vbwnq5f7feedwu-1253

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-11-04 03:06:54 +0000
+++ b/lisp/ChangeLog    2013-11-04 03:44:23 +0000
@@ -1,3 +1,9 @@
+2013-11-03  Nathan Trapuzzano  <address@hidden>  (tiny change)
+
+       * progmodes/cperl-mode.el (cperl-font-lock-fontify-region-function):
+       Don't infloop when expanding region over `multiline' syntax-type that
+       begins a line (bug#15778).
+
 2013-11-04  Stefan Monnier  <address@hidden>
 
        * rect.el (rectangle-mark-mode): Rename from rectangle-mark.

=== modified file 'lisp/progmodes/cperl-mode.el'
--- a/lisp/progmodes/cperl-mode.el      2013-09-12 05:48:22 +0000
+++ b/lisp/progmodes/cperl-mode.el      2013-11-04 03:44:23 +0000
@@ -8900,8 +8900,9 @@
                  (beginning-of-line)
                  (eq (get-text-property (setq beg (point)) 'syntax-type)
                      'multiline)))
-      (if (setq beg (cperl-beginning-of-property beg 'syntax-type))
-         (goto-char beg)))
+      (let ((new-beg (cperl-beginning-of-property beg 'syntax-type)))
+       (setq beg (if (= new-beg beg) nil new-beg))
+       (goto-char new-beg)))
     (setq beg (point))
     (goto-char end)
     (while (and end