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") |