From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 20 Jan 2007 15:43:48 +0000 (+0000)
Subject: (last-sexp-toggle-display): Fixed cursor position when toggle abbreviated
X-Git-Tag: emacs-pretest-22.0.93~75
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f56cd1335ce17bd2e871ca33e4d6d4c37cd949ff;p=emacs.git

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

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)