# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1169307777 0
# Node ID 45c72f1f789d53737650e0559f2036d68d2105e7
# Parent  2e356462f90efb18076bbb8a432279471c4a8ad5
(last-sexp-toggle-display): Fixed cursor position when toggle abbreviated
display.

diff -r 2e356462f90e -r 45c72f1f789d lisp/emacs-lisp/lisp-mode.el
--- a/lisp/emacs-lisp/lisp-mode.el	Sat Jan 20 15:33:34 2007 +0000
+++ b/lisp/emacs-lisp/lisp-mode.el	Sat Jan 20 15:42:57 2007 +0000
@@ -490,6 +490,8 @@
 	      (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)