Mercurial > emacs

changeset 67057:10e217ceeee2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(comment-enter-backward): Fix last fix.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Sun, 20 Nov 2005 23:25:46 +0000
parents 3ce17ff4a61f
children 65266d675973
files lisp/ChangeLog lisp/newcomment.el
diffstat 2 files changed, 4 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Sun Nov 20 22:35:48 2005 +0000
+++ b/lisp/ChangeLog	Sun Nov 20 23:25:46 2005 +0000
@@ -1,5 +1,7 @@
 2005-11-20  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+	* newcomment.el (comment-enter-backward): Fix last fix.
+
 	* simple.el (blink-matching-open):
 	* paren.el (show-paren-function): Allow new paren-class info.
 
--- a/lisp/newcomment.el	Sun Nov 20 22:35:48 2005 +0000
+++ b/lisp/newcomment.el	Sun Nov 20 23:25:46 2005 +0000
@@ -480,8 +480,8 @@
       (progn (backward-char) (skip-syntax-backward " "))
     (cond
      ((save-restriction
-        (beginning-of-line)
-        (narrow-to-region (point) end)
+        (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