andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Stefan Monnier 2008-04-04 00:41:47 +00:00
parent f1febefae4
commit 389ea1e5e5
2 changed files with 12 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2008-04-04 Stephen Berman <Stephen.Berman@gmx.net>
* newcomment.el (comment-enter-backward): Be careful to restore
position changed during narrowing.
2008-04-03 Nick Roberts <nickrob@snap.net.nz>
* progmodes/gdb-ui.el (gdb-mouse-set-clear-breakpoint):
@ -10,8 +15,8 @@
2008-04-02 Alan Mackenzie <acm@muc.de>
* progmodes/cc-cmds.el (c-defun-name, c-cpp-define-name): New
optimised functions to get the name of the current defun/macro.
* progmodes/cc-cmds.el (c-defun-name, c-cpp-define-name):
New optimised functions to get the name of the current defun/macro.
* add-log.el (add-log-current-defun): Move the functionality which
gets the current function name for C like modes to cc-cmds.el,

9
lisp/newcomment.el
View file

@ -487,10 +487,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. Maybe we're at EOB which implicitly
;; closes the comment.