From: Martin Rudalics <rudalics@gmx.at>
Date: Sat, 10 Nov 2007 09:56:32 +0000 (+0000)
Subject: (describe-display-table): Use with-help-window instead of with-output-to-temp-buffer.
X-Git-Tag: emacs-pretest-23.0.90~9798
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e3d6825752eb63129b71bf4cc143af59f5cd28f3;p=emacs.git

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

diff --git a/lisp/disp-table.el b/lisp/disp-table.el
index 4bf52896cf0..653d5b8360b 100644
--- a/lisp/disp-table.el
+++ b/lisp/disp-table.el
@@ -75,7 +75,7 @@ Valid symbols are `truncation', `wrap', `escape', `control',
 ;;;###autoload
 (defun describe-display-table (dt)
   "Describe the display table DT in a help buffer."
-  (with-output-to-temp-buffer "*Help*"
+  (with-help-window "*Help*"
     (princ "\nTruncation glyph: ")
     (prin1 (display-table-slot dt 'truncation))
     (princ "\nWrap glyph: ")
@@ -97,8 +97,7 @@ Valid symbols are `truncation', `wrap', `escape', `control',
 	  (aset vector i (aref dt i))
 	  (setq i (1+ i)))
 	(describe-vector vector))
-      (help-mode))
-    (print-help-return-message)))
+      (help-mode))))
 
 ;;;###autoload
 (defun describe-current-display-table ()