Commit 063b0e45 authored by Lars Magne Ingebrigtsen's avatar Lars Magne Ingebrigtsen
Browse files

* disp-table.el (display-table-print-array): New function.

(describe-display-table): Use it to print the vectors more pretty
(Bug#8859).
parent 28545e04
2011-07-02 Lars Magne Ingebrigtsen <larsi@gnus.org>
* disp-table.el (display-table-print-array): New function.
(describe-display-table): Use it to print the vectors more pretty
(Bug#8859).
2011-07-02 Martin Rudalics <rudalics@gmx.at>
* window.el (window-state-get-1): Don't assign clone numbers.
......
......@@ -94,9 +94,27 @@ Valid symbols are `truncation', `wrap', `escape', `control',
(while (< i 256)
(aset vector i (aref dt i))
(setq i (1+ i)))
(describe-vector vector))
(describe-vector
vector 'display-table-print-array))
(help-mode))))
(defun display-table-print-array (desc)
(insert "[")
(let ((column (current-column))
(width (window-width))
string)
(dotimes (i (length desc))
(setq string (format "%s" (aref desc i)))
(cond
((>= (+ (current-column) (length string) 1)
width)
(insert "\n")
(insert (make-string column ? )))
((> i 0)
(insert " ")))
(insert string)))
(insert "]\n"))
;;;###autoload
(defun describe-current-display-table ()
"Describe the display table in use in the selected window and buffer."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment