Function: describe-display-table

describe-display-table is an autoloaded and byte-compiled function defined in disp-table.el.gz.

Signature

(describe-display-table DT)

Documentation

Describe the display table DT in a help buffer.

View in manual

Source Code

;; Defined in /usr/src/emacs/lisp/disp-table.el.gz
;;;###autoload
(defun describe-display-table (dt)
  "Describe the display table DT in a help buffer."
  (with-help-window "*Help*"
    (princ "\nTruncation glyph: ")
    (prin1 (display-table-slot dt 'truncation))
    (princ "\nWrap glyph: ")
    (prin1 (display-table-slot dt 'wrap))
    (princ "\nEscape glyph: ")
    (prin1 (display-table-slot dt 'escape))
    (princ "\nCtrl glyph: ")
    (prin1 (display-table-slot dt 'control))
    (princ "\nSelective display glyph sequence: ")
    (prin1 (display-table-slot dt 'selective-display))
    (princ "\nVertical window border glyph: ")
    (prin1 (display-table-slot dt 'vertical-border))

    (princ "\nBox vertical line glyph: ")
    (prin1 (display-table-slot dt 'box-vertical))
    (princ "\nBox horizontal line glyph: ")
    (prin1 (display-table-slot dt 'box-horizontal))
    (princ "\nBox upper left corner glyph: ")
    (prin1 (display-table-slot dt 'box-down-right))
    (princ "\nBox upper right corner glyph: ")
    (prin1 (display-table-slot dt 'box-down-left))
    (princ "\nBox lower left corner glyph: ")
    (prin1 (display-table-slot dt 'box-up-right))
    (princ "\nBox lower right corner glyph: ")
    (prin1 (display-table-slot dt 'box-up-left))

    (princ "\nBox double vertical line glyph: ")
    (prin1 (display-table-slot dt 'box-double-vertical))
    (princ "\nBox double horizontal line glyph: ")
    (prin1 (display-table-slot dt 'box-double-horizontal))
    (princ "\nBox double upper left corner glyph: ")
    (prin1 (display-table-slot dt 'box-double-down-right))
    (princ "\nBox double upper right corner glyph: ")
    (prin1 (display-table-slot dt 'box-double-down-left))
    (princ "\nBox double lower left corner glyph: ")
    (prin1 (display-table-slot dt 'box-double-up-right))
    (princ "\nBox double lower right corner glyph: ")
    (prin1 (display-table-slot dt 'box-double-up-left))

    (princ "\nCharacter display glyph sequences:\n")
    (with-current-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 'display-table-print-array))
      (help-mode))))