diff options
| -rw-r--r-- | lisp/emacs-lisp/lisp-mode.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el index 692f00b7817..b922f4e8072 100644 --- a/lisp/emacs-lisp/lisp-mode.el +++ b/lisp/emacs-lisp/lisp-mode.el | |||
| @@ -428,9 +428,8 @@ alternative printed representations that can be displayed." | |||
| 428 | ;; Normally this command won't be called at end of line. | 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, | 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. | 430 | ;; it does get called. For consistency, pretend it was not called. |
| 431 | (if (eobp) | 431 | (save-restriction |
| 432 | (let ((prefix-arg arg)) | 432 | (widen) |
| 433 | (command-execute (lookup-key global-map (this-single-command-keys)))) | ||
| 434 | (let ((value (get-text-property (point) 'printed-value))) | 433 | (let ((value (get-text-property (point) 'printed-value))) |
| 435 | (when value | 434 | (when value |
| 436 | (let ((beg (or (previous-single-property-change (min (point-max) (1+ (point))) | 435 | (let ((beg (or (previous-single-property-change (min (point-max) (1+ (point))) |