/[emacs]/emacs/lisp/descr-text.el
ViewVC logotype

Diff of /emacs/lisp/descr-text.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4.2.11 by miles, Wed Oct 6 05:21:52 2004 UTC revision 1.4.2.12 by miles, Thu Nov 4 13:12:40 2004 UTC
# Line 176  otherwise." Line 176  otherwise."
176        (describe-text-properties-1 pos output-buffer)        (describe-text-properties-1 pos output-buffer)
177      (if (not (or (text-properties-at pos) (overlays-at pos)))      (if (not (or (text-properties-at pos) (overlays-at pos)))
178          (message "This is plain text.")          (message "This is plain text.")
179        (let ((buffer (current-buffer)))        (let ((buffer (current-buffer))
180          (when (eq buffer (get-buffer "*Help*"))              (target-buffer "*Help*"))
181            (error "Can't do self inspection"))          (when (eq buffer (get-buffer target-buffer))
182              (setq target-buffer "*Help-2*"))
183          (save-excursion          (save-excursion
184            (with-output-to-temp-buffer "*Help*"            (with-output-to-temp-buffer target-buffer
185              (set-buffer standard-output)              (set-buffer standard-output)
186              (setq output-buffer (current-buffer))              (setq output-buffer (current-buffer))
187              (widget-insert "Text content at position " (format "%d" pos) ":\n\n")              (widget-insert "Text content at position " (format "%d" pos) ":\n\n")

Legend:
Removed from v.1.4.2.11  
changed lines
  Added in v.1.4.2.12

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26