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

display.

(last-sexp-toggle-display): Fixed cursor position when toggle abbreviated
display.
f56cd133 · Eli Zaretskii · 2d5ed88d · f56cd133 · f56cd133
Commit f56cd133 authored Jan 20, 2007 by Eli Zaretskii
Show whitespace changes
Inline Side-by-side

Showing with 7 additions and 0 deletions

lisp/ChangeLog lisp/ChangeLog +5 -0

lisp/emacs-lisp/lisp-mode.el lisp/emacs-lisp/lisp-mode.el +2 -0

No files found.
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
+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
--- 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)