mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(describe-text-properties): Don't err if called in

Browse source 
the *Help* buffer; output to *Help-2* buffer instead.
This commit is contained in:
Kim F. Storm 2004-11-01 23:06:51 +00:00
parent e26422500c
commit 0911ac2657
1 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/descr-text.el
View file

@ -176,11 +176,12 @@ otherwise."
(describe-text-properties-1 pos output-buffer)
(if (not (or (text-properties-at pos) (overlays-at pos)))
(message "This is plain text.")
(let ((buffer (current-buffer)))
(when (eq buffer (get-buffer "*Help*"))
(error "Can't do self inspection"))
(let ((buffer (current-buffer))
(target-buffer "*Help*"))
(when (eq buffer (get-buffer target-buffer))
(setq target-buffer "*Help-2*"))
(save-excursion
(with-output-to-temp-buffer "*Help*"
(with-output-to-temp-buffer target-buffer
(set-buffer standard-output)
(setq output-buffer (current-buffer))
(widget-insert "Text content at position " (format "%d" pos) ":\n\n")