(reindent-then-newline-and-indent): Don't assume that

indent-according-to-mode preserves point.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 69919bdec0fa96a0eef8281d6642feca6f520081..2e5bb8bd7905e8c5188329f084614fa0b341dd5b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-10-16  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * simple.el (reindent-then-newline-and-indent): Don't assume that
+       indent-according-to-mode preserves point.
+
 2007-10-16  Juanma Barranquero  <lekktu@gmail.com>
 
        * bs.el (bs--make-header-match-string, bs-show-in-buffer)

diff --git a/lisp/simple.el b/lisp/simple.el
index b5ca79de02793c8952ba17e007dc48cf1ad4b40e..3d5f6bfab10c2189be09f8ce4cb230a4c4282066 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -633,7 +633,9 @@ column specified by the function `current-left-margin'."
     (newline)
     (save-excursion
       (goto-char pos)
-      (indent-according-to-mode)
+      ;; Usually indent-according-to-mode should "preserve" point, but it is
+      ;; not guaranteed; e.g. indent-to-left-margin doesn't.
+      (save-excursion (indent-according-to-mode))
       (delete-horizontal-space t))
     (indent-according-to-mode)))