425 |
(defun last-sexp-toggle-display (&optional arg) |
(defun last-sexp-toggle-display (&optional arg) |
426 |
"Toggle between abbreviated and unabbreviated printed representations." |
"Toggle between abbreviated and unabbreviated printed representations." |
427 |
(interactive "P") |
(interactive "P") |
|
;; 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. |
|
428 |
(save-restriction |
(save-restriction |
429 |
(widen) |
(widen) |
430 |
(let ((value (get-text-property (point) 'printed-value))) |
(let ((value (get-text-property (point) 'printed-value))) |