procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(last-sexp-toggle-display): Cope if previous-single-property-change or

Browse source 
next-single-char-property-change returns nil.
This commit is contained in:
Richard M. Stallman 2001-11-05 02:35:44 +00:00
parent 830047fdb6
commit 48461f7cde
2 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,5 +1,9 @@
2001-11-04 Richard M. Stallman <rms@gnu.org> 2001-11-04 Richard M. Stallman <rms@gnu.org>
* emacs-lisp/lisp-mode.el (last-sexp-toggle-display): Cope if
previous-single-property-change or next-single-char-property-change
returns nil.
* international/mule-cmds.el (set-locale-environment): * international/mule-cmds.el (set-locale-environment):
Make it interactive; make arg optional. Make it interactive; make arg optional.

4
lisp/emacs-lisp/lisp-mode.el
View file

@ -406,8 +406,8 @@ alternative printed representations that can be displayed."
(interactive) (interactive)
(let ((value (get-text-property (point) 'printed-value))) (let ((value (get-text-property (point) 'printed-value)))
(when value (when value
(let ((beg (previous-single-property-change (point) 'printed-value)) (let ((beg (or (previous-single-property-change (point) 'printed-value) (point)))
(end (next-single-char-property-change (point) 'printed-value)) (end (or (next-single-char-property-change (point) 'printed-value) (point)))
(standard-output (current-buffer)) (standard-output (current-buffer))
(point (point))) (point (point)))
(delete-region beg end) (delete-region beg end)