diff options
| author | Martin Rudalics <rudalics@gmx.at> | 2007-11-10 09:55:53 +0000 |
|---|---|---|
| committer | Martin Rudalics <rudalics@gmx.at> | 2007-11-10 09:55:53 +0000 |
| commit | 3db0e8bf35b1f26861555bbb1a3aa35e620a7bf2 (patch) | |
| tree | af4f612897bede7055030275727ac228b8b691fa /lisp | |
| parent | c6808785f826691a6aaa5e6e9908938ff9840d05 (diff) | |
| download | emacs-3db0e8bf35b1f26861555bbb1a3aa35e620a7bf2.tar.gz | |
(describe-char): Use with-help-window instead of with-output-to-temp-buffer.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/descr-text.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/descr-text.el b/lisp/descr-text.el index d14aba7ae6f..3452874f343 100644 --- a/lisp/descr-text.el +++ b/lisp/descr-text.el @@ -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") |