diff options
| author | Martin Rudalics | 2007-11-10 09:56:32 +0000 |
|---|---|---|
| committer | Martin Rudalics | 2007-11-10 09:56:32 +0000 |
| commit | e3d6825752eb63129b71bf4cc143af59f5cd28f3 (patch) | |
| tree | 4e83f9dc7d3c1de27eb367c2d2aad0bb7a2ee064 | |
| parent | 3db0e8bf35b1f26861555bbb1a3aa35e620a7bf2 (diff) | |
| download | emacs-e3d6825752eb63129b71bf4cc143af59f5cd28f3.tar.gz emacs-e3d6825752eb63129b71bf4cc143af59f5cd28f3.zip | |
(describe-display-table): Use with-help-window instead of with-output-to-temp-buffer.
| -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', | |||
| 75 | ;;;###autoload | 75 | ;;;###autoload |
| 76 | (defun describe-display-table (dt) | 76 | (defun describe-display-table (dt) |
| 77 | "Describe the display table DT in a help buffer." | 77 | "Describe the display table DT in a help buffer." |
| 78 | (with-output-to-temp-buffer "*Help*" | 78 | (with-help-window "*Help*" |
| 79 | (princ "\nTruncation glyph: ") | 79 | (princ "\nTruncation glyph: ") |
| 80 | (prin1 (display-table-slot dt 'truncation)) | 80 | (prin1 (display-table-slot dt 'truncation)) |
| 81 | (princ "\nWrap glyph: ") | 81 | (princ "\nWrap glyph: ") |
| @@ -97,8 +97,7 @@ Valid symbols are `truncation', `wrap', `escape', `control', | |||
| 97 | (aset vector i (aref dt i)) | 97 | (aset vector i (aref dt i)) |
| 98 | (setq i (1+ i))) | 98 | (setq i (1+ i))) |
| 99 | (describe-vector vector)) | 99 | (describe-vector vector)) |
| 100 | (help-mode)) | 100 | (help-mode)))) |
| 101 | (print-help-return-message))) | ||
| 102 | 101 | ||
| 103 | ;;;###autoload | 102 | ;;;###autoload |
| 104 | (defun describe-current-display-table () | 103 | (defun describe-current-display-table () |