From e3d6825752eb63129b71bf4cc143af59f5cd28f3 Mon Sep 17 00:00:00 2001 From: Martin Rudalics Date: Sat, 10 Nov 2007 09:56:32 +0000 Subject: [PATCH] (describe-display-table): Use with-help-window instead of with-output-to-temp-buffer. --- lisp/disp-table.el | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) 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 () -- 2.39.2