From f56cd1335ce17bd2e871ca33e4d6d4c37cd949ff Mon Sep 17 00:00:00 2001
From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 20 Jan 2007 15:43:48 +0000
Subject: (last-sexp-toggle-display): Fixed cursor position when toggle
 abbreviated display.

---
 lisp/emacs-lisp/lisp-mode.el | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'lisp/emacs-lisp/lisp-mode.el')

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)
-- 
cgit v1.2.3