(last-sexp-toggle-display): Fixed cursor position when toggle abbreviated

display.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c71ac75f2fc5c7c90690e8f7867bee60d975f924..b69c0e43a20194cd8d812dca7ba2d2e94549cc1f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-01-20  Alin C. Soare  <alinsoar@voila.fr>  (tiny change)
+
+       * lisp/emacs-lisp/lisp-mode.el (last-sexp-toggle-display): Fixed
+       cursor position when toggle abbreviated display.
+
 2007-01-20  Nick Roberts  <nickrob@snap.net.nz>
 
        * t-mouse.el: Update copyright following assignment by

diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el
index a58ecb256ac96b969a0f9eade9de62d6707ddf20..3a501ea85c175115f40b85d49260cfaf8bc09263 100644 (file)
--- a/lisp/emacs-lisp/lisp-mode.el
+++ b/lisp/emacs-lisp/lisp-mode.el
@@ -490,6 +490,8 @@ alternative printed representations that can be displayed."
              (point (point)))
          (delete-region beg end)
          (insert (nth 1 value))
+         (or (= beg point)
+             (setq point (1- (point))))
          (last-sexp-setup-props beg (point)
                                 (nth 0 value)
                                 (nth 2 value)