aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman2003-04-14 10:09:35 +0000
committerRichard M. Stallman2003-04-14 10:09:35 +0000
commit1d24f6185810900396ed8e98e70f68cdb66af5e9 (patch)
treed74054e81aef1a5468846fa249255c5edceb6984
parent872a0a6ff33db07994a8e89c5423875cf672a98f (diff)
downloademacs-1d24f6185810900396ed8e98e70f68cdb66af5e9.tar.gz
emacs-1d24f6185810900396ed8e98e70f68cdb66af5e9.zip
(last-sexp-toggle-display): At end of buffer, run the global binding
of the same key.
-rw-r--r--lisp/emacs-lisp/lisp-mode.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el
index 6c084c409df..fe38ab5a804 100644
--- a/lisp/emacs-lisp/lisp-mode.el
+++ b/lisp/emacs-lisp/lisp-mode.el
@@ -426,7 +426,8 @@ alternative printed representations that can be displayed."
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)))