diff options
author | Kim F. Storm <[email protected]> | 2004-11-01 23:06:51 +0000 |
---|---|---|
committer | Kim F. Storm <[email protected]> | 2004-11-01 23:06:51 +0000 |
commit | 0911ac26575a836e9df8a2b2148503bfbb5af400 (patch) | |
tree | 7a24d6ddfe2bdbafd1ebf19e0435c5403abb3ccb | |
parent | e26422500cc9e78c73c3d2929f9fc226ad68c977 (diff) |
(describe-text-properties): Don't err if called in
the *Help* buffer; output to *Help-2* buffer instead.
-rw-r--r-- | lisp/descr-text.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/descr-text.el b/lisp/descr-text.el index 8ac2d36334..72ddde7c8c 100644 --- a/lisp/descr-text.el +++ b/lisp/descr-text.el @@ -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") |