From 3db0e8bf35b1f26861555bbb1a3aa35e620a7bf2 Mon Sep 17 00:00:00 2001 From: Martin Rudalics Date: Sat, 10 Nov 2007 09:55:53 +0000 Subject: [PATCH] (describe-char): Use with-help-window instead of with-output-to-temp-buffer. --- lisp/descr-text.el | 5 ++--- 1 file 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") -- 2.11.4.GIT