Mercurial > emacs

comparison lisp/emacs-lisp/lisp-mode.el @ 75302:45c72f1f789d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(last-sexp-toggle-display): Fixed cursor position when toggle abbreviated display.
author Eli Zaretskii <eliz@gnu.org>
date Sat, 20 Jan 2007 15:42:57 +0000
parents fbe329a11cee
children 7a3f13e2dd57
comparison
equal deleted inserted replaced
75301:2e356462f90e 75302:45c72f1f789d
488 (end (or (next-single-char-property-change (point) 'printed-value) (point))) 488 (end (or (next-single-char-property-change (point) 'printed-value) (point)))
489 (standard-output (current-buffer)) 489 (standard-output (current-buffer))
490 (point (point))) 490 (point (point)))
491 (delete-region beg end) 491 (delete-region beg end)
492 (insert (nth 1 value)) 492 (insert (nth 1 value))
493 (or (= beg point)
494 (setq point (1- (point))))
493 (last-sexp-setup-props beg (point) 495 (last-sexp-setup-props beg (point)
494 (nth 0 value) 496 (nth 0 value)
495 (nth 2 value) 497 (nth 2 value)
496 (nth 1 value)) 498 (nth 1 value))
497 (goto-char (min (point-max) point))))))) 499 (goto-char (min (point-max) point)))))))