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

display.

2 files changed, 7 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c71ac75f2fc..b69c0e43a20 100644
--- 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 a58ecb256ac..3a501ea85c1 100644
--- 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)