diff options
author | Richard M. Stallman <rms@gnu.org> | 1993-11-08 15:06:59 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1993-11-08 15:06:59 +0000 |
commit | 20282c028b131fa1f63ff7d8bbebf89d847c79b4 (patch) | |
tree | 29780efc8a17970cc4e104b7d64592c1be506156 /lisp/disp-table.el | |
parent | ea8dc02e546817a4f107bb8e9c54aa761fa497c0 (diff) | |
download | emacs-20282c028b131fa1f63ff7d8bbebf89d847c79b4.tar.gz |
(describe-current-display-table):
Don't get error if no display table now.
(describe-display-table): Put all the output in the temp buffer.
Diffstat (limited to 'lisp/disp-table.el')
-rw-r--r-- | lisp/disp-table.el | 29 |
1 files changed, 17 insertions, 12 deletions
diff --git a/lisp/disp-table.el b/lisp/disp-table.el index 7add5e3a261..d162d4ef8bc 100644 --- a/lisp/disp-table.el +++ b/lisp/disp-table.el @@ -38,22 +38,27 @@ (princ "\nSelective display glyph sequence: ") (prin1 (aref dt 260)) (princ "\nCharacter display glyph sequences:\n") - (let ((vector (make-vector 256 nil)) - (i 0)) - (while (< i 256) - (aset vector i (aref dt i)) - (setq i (1+ i))) - (describe-vector vector)) + (save-excursion + (set-buffer standard-output) + (let ((vector (make-vector 256 nil)) + (i 0)) + (while (< i 256) + (aset vector i (aref dt i)) + (setq i (1+ i))) + (describe-vector vector))) (print-help-return-message))) ;;;###autoload (defun describe-current-display-table () - "Describe the display table in use in the selected window and buffer." - (interactive) - (describe-display-table - (or (window-display-table (selected-window)) - buffer-display-table - standard-display-table))) + "Describe the display table in use in the selected window and buffer." + (interactive) + (let ((disptab + (or (window-display-table (selected-window)) + buffer-display-table + standard-display-table))) + (if disptab + (describe-display-table disptab) + (message "No display table")))) ;;;###autoload (defun make-display-table () |