# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 975474661 0
# Node ID 3aa61201a0ab36c8b88e7336850caeb39b3d6a58
# Parent  a9ff8037579d277532b069f4601bed4e8f5ca553
(comment-indent): Save excursion around call to comment-indent-function.

diff -r a9ff8037579d -r 3aa61201a0ab lisp/newcomment.el
--- a/lisp/newcomment.el	Wed Nov 29 04:36:30 2000 +0000
+++ b/lisp/newcomment.el	Wed Nov 29 05:11:01 2000 +0000
@@ -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 @@
 	    (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)