Mercurial > emacs
changeset 57857:6d1cf277e127
(describe-text-properties): Don't err if called in
the *Help* buffer; output to *Help-2* buffer instead.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Mon, 01 Nov 2004 23:06:51 +0000 |
| parents | df80d19d7a2e |
| children | 53624be827e8 |
| files | lisp/descr-text.el |
| diffstat | 1 files changed, 5 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/descr-text.el Mon Nov 01 23:06:36 2004 +0000 +++ b/lisp/descr-text.el Mon Nov 01 23:06:51 2004 +0000 @@ -176,11 +176,12 @@ (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")