diff options
author | Martin Rudalics <rudalics@gmx.at> | 2007-11-10 09:56:32 +0000 |
---|---|---|
committer | Martin Rudalics <rudalics@gmx.at> | 2007-11-10 09:56:32 +0000 |
commit | 2df943fbd8bd3be120882a40880936c6c4fb263a (patch) | |
tree | 84ed093c3f436037cd400bd3e80f0c7d3a3d2819 /lisp/disp-table.el | |
parent | 9860d63727d781405aca0a1fdf15585511f67d6c (diff) | |
download | emacs-2df943fbd8bd3be120882a40880936c6c4fb263a.tar.gz |
(describe-display-table): Use with-help-window instead of with-output-to-temp-buffer.
Diffstat (limited to 'lisp/disp-table.el')
-rw-r--r-- | lisp/disp-table.el | 5 |
1 files 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 () |