[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/lisp-mode.el
From: |
Richard M. Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/lisp-mode.el |
Date: |
Wed, 28 May 2003 07:27:52 -0400 |
Index: emacs/lisp/emacs-lisp/lisp-mode.el
diff -c emacs/lisp/emacs-lisp/lisp-mode.el:1.145
emacs/lisp/emacs-lisp/lisp-mode.el:1.146
*** emacs/lisp/emacs-lisp/lisp-mode.el:1.145 Tue May 27 10:17:17 2003
--- emacs/lisp/emacs-lisp/lisp-mode.el Wed May 28 07:27:52 2003
***************
*** 428,436 ****
;; Normally this command won't be called at end of line.
;; But when the end of the line is also the end of the buffer,
;; it does get called. For consistency, pretend it was not called.
! (if (eobp)
! (let ((prefix-arg arg))
! (command-execute (lookup-key global-map (this-single-command-keys))))
(let ((value (get-text-property (point) 'printed-value)))
(when value
(let ((beg (or (previous-single-property-change (min (point-max) (1+
(point)))
--- 428,435 ----
;; Normally this command won't be called at end of line.
;; But when the end of the line is also the end of the buffer,
;; it does get called. For consistency, pretend it was not called.
! (save-restriction
! (widen)
(let ((value (get-text-property (point) 'printed-value)))
(when value
(let ((beg (or (previous-single-property-change (min (point-max) (1+
(point)))