[Emacs-diffs] /srv/bzr/emacs/trunk r104864: * disp-table.el (display-table-print-array): New function.

[Lars Magne Ingebrigtsen]

------------------------------------------------------------
revno: 104864
committer: Lars Magne Ingebrigtsen <address@hidden>
branch nick: trunk
timestamp: Sat 2011-07-02 14:27:53 +0200
message:
  * disp-table.el (display-table-print-array): New function.
  (describe-display-table): Use it to print the vectors more pretty
  (Bug#8859).
modified:
  lisp/ChangeLog
  lisp/disp-table.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-07-02 10:36:48 +0000
+++ b/lisp/ChangeLog    2011-07-02 12:27:53 +0000
@@ -1,3 +1,9 @@
+2011-07-02  Lars Magne Ingebrigtsen  <address@hidden>
+
+       * 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  <address@hidden>
 
        * window.el (window-state-get-1): Don't assign clone numbers.

=== modified file 'lisp/disp-table.el'
--- a/lisp/disp-table.el        2011-01-26 08:36:39 +0000
+++ b/lisp/disp-table.el        2011-07-02 12:27:53 +0000
@@ -94,9 +94,27 @@
        (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."