mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-22 07:09:54 +00:00
Code Issues Releases Activity

(describe-current-display-table):

Browse Source 
Don't get error if no display table now.
(describe-display-table): Put all the output in the temp buffer.
This commit is contained in:
Richard M. Stallman 1993-11-08 15:06:59 +00:00
parent dd64d80736
commit bb6066c863
1 changed files with 17 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
lisp/disp-table.el
View File

@ -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 ()