diff options
Diffstat (limited to 'lisp/progmodes')
| -rw-r--r-- | lisp/progmodes/cperl-mode.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el index 8a7d1e77bd2..36b05c89ea1 100644 --- a/lisp/progmodes/cperl-mode.el +++ b/lisp/progmodes/cperl-mode.el | |||
| @@ -8900,8 +8900,9 @@ do extra unwind via `cperl-unwind-to-safe'." | |||
| 8900 | (beginning-of-line) | 8900 | (beginning-of-line) |
| 8901 | (eq (get-text-property (setq beg (point)) 'syntax-type) | 8901 | (eq (get-text-property (setq beg (point)) 'syntax-type) |
| 8902 | 'multiline))) | 8902 | 'multiline))) |
| 8903 | (if (setq beg (cperl-beginning-of-property beg 'syntax-type)) | 8903 | (let ((new-beg (cperl-beginning-of-property beg 'syntax-type))) |
| 8904 | (goto-char beg))) | 8904 | (setq beg (if (= new-beg beg) nil new-beg)) |
| 8905 | (goto-char new-beg))) | ||
| 8905 | (setq beg (point)) | 8906 | (setq beg (point)) |
| 8906 | (goto-char end) | 8907 | (goto-char end) |
| 8907 | (while (and end | 8908 | (while (and end |