Mercurial > emacs
comparison lisp/emacs-lisp/lisp-mode.el @ 50585:1e9e1fa3548b
(last-sexp-toggle-display): At end of buffer, run the global binding
of the same key.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 14 Apr 2003 10:09:35 +0000 |
| parents | 7c83c5770cb6 |
| children | 152c21ba1618 |
comparison
equal
deleted
inserted
replaced
| 50584:e36ce541f439 | 50585:1e9e1fa3548b |
|---|---|
| 424 (interactive "P") | 424 (interactive "P") |
| 425 ;; Normally this command won't be called at end of line. | 425 ;; Normally this command won't be called at end of line. |
| 426 ;; But when the end of the line is also the end of the buffer, | 426 ;; But when the end of the line is also the end of the buffer, |
| 427 ;; it does get called. For consistency, pretend it was not called. | 427 ;; it does get called. For consistency, pretend it was not called. |
| 428 (if (eobp) | 428 (if (eobp) |
| 429 (newline arg) | 429 (let ((prefix-arg arg)) |
| 430 (command-execute (lookup-key global-map (this-single-command-keys)))) | |
| 430 (let ((value (get-text-property (point) 'printed-value))) | 431 (let ((value (get-text-property (point) 'printed-value))) |
| 431 (when value | 432 (when value |
| 432 (let ((beg (or (previous-single-property-change (min (point-max) (1+ (point))) | 433 (let ((beg (or (previous-single-property-change (min (point-max) (1+ (point))) |
| 433 'printed-value) | 434 'printed-value) |
| 434 (point))) | 435 (point))) |