mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-08 15:35:02 +00:00
Code Issues Releases Activity

* lisp/progmodes/cperl-mode.el (cperl-font-lock-fontify-region-function):

Browse Source 
Don't infloop when expanding region over `multiline' syntax-type that
begins a line.

Fixes: debbugs:15778
This commit is contained in:
Nathan Trapuzzano 2013-11-03 22:44:23 -05:00 committed by Stefan Monnier
parent 4aca7145ff
commit ec79b92bfa
2 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -1,3 +1,9 @@
2013-11-03 Nathan Trapuzzano <nbtrap@nbtrap.com> (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 <monnier@iro.umontreal.ca>
* rect.el (rectangle-mark-mode): Rename from rectangle-mark.

5
lisp/progmodes/cperl-mode.el
View File

@ -8900,8 +8900,9 @@ do extra unwind via `cperl-unwind-to-safe'."
(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