(comment-indent): Save excursion around call to comment-indent-function.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 92660226a262a4da2b0a9d0b111cac53d27d609f..e1aba07eaebb3e211051643f9391d3d2504929c6 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2000-11-29  Stefan Monnier  <monnier@cs.yale.edu>
+
+       * newcomment.el (comment-indent): Save excursion around call to
+       comment-indent-function.
+
 2000-11-29  Miles Bader  <miles@gnu.org>
 
        * subr.el (member-ignore-case): Return the tail of the list who's

diff --git a/lisp/newcomment.el b/lisp/newcomment.el
index 3466b429301fa11caac525ce7987f7e931d14a00..610831bcff09ec60d1d2f34605097b791f42b93e 100644 (file)
--- a/lisp/newcomment.el
+++ b/lisp/newcomment.el
@@ -6,7 +6,7 @@
 ;; Maintainer: Stefan Monnier <monnier@cs.yale.edu>
 ;; Keywords: comment uncomment
 ;; Version: $Name:  $
-;; Revision: $Id: newcomment.el,v 1.24 2000/11/14 15:09:40 monnier Exp $
+;; Revision: $Id: newcomment.el,v 1.25 2000/11/21 21:31:16 monnier Exp $
 
 ;; This file is part of GNU Emacs.
 
@@ -436,7 +436,7 @@ If CONTINUE is non-nil, use the `comment-continuation' markers if any."
            (insert ender)))
       (goto-char begpos)
       ;; Compute desired indent.
-      (setq indent (funcall comment-indent-function))
+      (setq indent (save-excursion (funcall comment-indent-function)))
       (if (not indent)
          ;; comment-indent-function refuses delegates to indent.
          (indent-according-to-mode)