mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-28 10:56:36 +00:00
Code Issues Releases Activity

(describe-char): Use with-help-window instead of with-output-to-temp-buffer.

Browse Source
This commit is contained in:
Martin Rudalics 2007-11-10 09:55:53 +00:00
parent c6808785f8
commit 3db0e8bf35
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/descr-text.el
View File

@ -588,7 +588,7 @@ as well as widgets, buttons, overlays, and text properties."
(if (cadr x) (length (car x)) 0))
item-list)))
(help-setup-xref nil (interactive-p))
(with-output-to-temp-buffer (help-buffer)
(with-help-window (help-buffer)
(with-current-buffer standard-output
(set-buffer-multibyte multibyte-p)
(let ((formatter (format "%%%ds:" max-width)))
@ -685,8 +685,7 @@ as well as widgets, buttons, overlays, and text properties."
(if text-props-desc (insert text-props-desc))
(setq help-xref-stack-item (list 'help-insert-string (buffer-string)))
(toggle-read-only 1)
(print-help-return-message)))))
(toggle-read-only 1)))))
(defalias 'describe-char-after 'describe-char)
(make-obsolete 'describe-char-after 'describe-char "22.1")