Mercurial > emacs
comparison lisp/emacs-lisp/lisp-mode.el @ 51439:d3d6b202a5f2
(last-sexp-toggle-display): Remove stale comment.
author | Juanma Barranquero <lekktu@gmail.com> |
---|---|
date | Tue, 03 Jun 2003 23:14:25 +0000 |
parents | 346b661f431e |
children | e363b422bcd4 |
comparison
equal
deleted
inserted
replaced
51438:d6166d21c732 | 51439:d3d6b202a5f2 |
---|---|
423 | 423 |
424 | 424 |
425 (defun last-sexp-toggle-display (&optional arg) | 425 (defun last-sexp-toggle-display (&optional arg) |
426 "Toggle between abbreviated and unabbreviated printed representations." | 426 "Toggle between abbreviated and unabbreviated printed representations." |
427 (interactive "P") | 427 (interactive "P") |
428 ;; Normally this command won't be called at end of line. | |
429 ;; But when the end of the line is also the end of the buffer, | |
430 ;; it does get called. For consistency, pretend it was not called. | |
431 (save-restriction | 428 (save-restriction |
432 (widen) | 429 (widen) |
433 (let ((value (get-text-property (point) 'printed-value))) | 430 (let ((value (get-text-property (point) 'printed-value))) |
434 (when value | 431 (when value |
435 (let ((beg (or (previous-single-property-change (min (point-max) (1+ (point))) | 432 (let ((beg (or (previous-single-property-change (min (point-max) (1+ (point))) |