Commit 33d71ec3 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(comment-enter-backward): Be careful to restore point changed during narrowing.

parent 957e449e
2008-04-03 Stephen Berman <Stephen.Berman@gmx.net>
* newcomment.el (comment-enter-backward): Be careful to restore
position changed during narrowing.
2008-04-03 Giuliano Procida <giuliano.procida@googlemail.com> (tiny change)
 
* progmodes/perl-mode.el (perl-font-lock-syntactic-keywords):
......
......@@ -492,10 +492,11 @@ Point is assumed to be just at the end of a comment."
;; comment-end = ""
(progn (backward-char) (skip-syntax-backward " "))
(cond
((save-restriction
(narrow-to-region (line-beginning-position) (point))
(goto-char (point-min))
(re-search-forward (concat comment-end-skip "\\'") nil t))
((save-excursion
(save-restriction
(narrow-to-region (line-beginning-position) (point))
(goto-char (point-min))
(re-search-forward (concat comment-end-skip "\\'") nil t)))
(goto-char (match-beginning 0)))
;; comment-end-skip not found probably because it was not set
;; right. Since \\s> should catch the single-char case, let's
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment