[Emacs-diffs] Changes to emacs/lisp/descr-text.el

[Kim F . Storm]

Index: emacs/lisp/descr-text.el
diff -c emacs/lisp/descr-text.el:1.27 emacs/lisp/descr-text.el:1.28
*** emacs/lisp/descr-text.el:1.27       Tue Sep 21 02:26:24 2004
--- emacs/lisp/descr-text.el    Mon Nov  1 23:06:51 2004
***************
*** 176,186 ****
        (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"))
        (save-excursion
!         (with-output-to-temp-buffer "*Help*"
            (set-buffer standard-output)
            (setq output-buffer (current-buffer))
            (widget-insert "Text content at position " (format "%d" pos) 
":\n\n")
--- 176,187 ----
        (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))
!           (target-buffer "*Help*"))
!       (when (eq buffer (get-buffer target-buffer))
!         (setq target-buffer "*Help-2*"))
        (save-excursion
!         (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")