428 |
;; Normally this command won't be called at end of line. |
;; 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, |
;; 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. |
;; it does get called. For consistency, pretend it was not called. |
431 |
(if (eobp) |
(save-restriction |
432 |
(let ((prefix-arg arg)) |
(widen) |
|
(command-execute (lookup-key global-map (this-single-command-keys)))) |
|
433 |
(let ((value (get-text-property (point) 'printed-value))) |
(let ((value (get-text-property (point) 'printed-value))) |
434 |
(when value |
(when value |
435 |
(let ((beg (or (previous-single-property-change (min (point-max) (1+ (point))) |
(let ((beg (or (previous-single-property-change (min (point-max) (1+ (point))) |