Mercurial > emacs

comparison lisp/disp-table.el @ 584:4cd7543be581

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Jim Blandy <jimb@redhat.com>
date Mon, 16 Mar 1992 20:39:07 +0000
parents 9697c13298e5
children 8a533acedb77
comparison
equal deleted inserted replaced
583:3c0c1cd8428a 584:4cd7543be581
29 (while (< i len) 29 (while (< i len)
30 (aset vector i (rope-elt rope i)) 30 (aset vector i (rope-elt rope i))
31 (setq i (1+ i))))) 31 (setq i (1+ i)))))
32 32
33 (defun describe-display-table (DT) 33 (defun describe-display-table (DT)
34 "Describe the display-table DT in a help buffer." 34 "Describe the display table DT in a help buffer."
35 (with-output-to-temp-buffer "*Help*" 35 (with-output-to-temp-buffer "*Help*"
36 (princ "\nTruncation glyf: ") 36 (princ "\nTruncation glyf: ")
37 (prin1 (aref dt 256)) 37 (prin1 (aref dt 256))
38 (princ "\nWrap glyf: ") 38 (princ "\nWrap glyf: ")
39 (prin1 (aref dt 257)) 39 (prin1 (aref dt 257))
54 (setq i (1+ i))) 54 (setq i (1+ i)))
55 (describe-vector vector)) 55 (describe-vector vector))
56 (print-help-return-message))) 56 (print-help-return-message)))
57 57
58 (defun describe-current-display-table () 58 (defun describe-current-display-table ()
59 "Describe the display-table in use in the selected window and buffer." 59 "Describe the display table in use in the selected window and buffer."
60 (interactive) 60 (interactive)
61 (describe-display-table 61 (describe-display-table
62 (or (window-display-table (selected-window)) 62 (or (window-display-table (selected-window))
63 buffer-display-table 63 buffer-display-table
64 standard-display-table))) 64 standard-display-table)))
65 65
66 (defun make-display-table () 66 (defun make-display-table ()
67 (make-vector 261 nil)) 67 (make-vector 261 nil))
68 68
69 (defun standard-display-8bit (l h) 69 (defun standard-display-8bit (l h)
70 "Display characters in the range [L, H] literally." 70 "Display characters in the range L to H literally."
71 (while (<= l h) 71 (while (<= l h)
72 (if (and (>= l ?\ ) (< l 127)) 72 (if (and (>= l ?\ ) (< l 127))
73 (if standard-display-table (aset standard-display-table l nil)) 73 (if standard-display-table (aset standard-display-table l nil))
74 (or standard-display-table 74 (or standard-display-table
75 (setq standard-display-table (make-vector 261 nil))) 75 (setq standard-display-table (make-vector 261 nil)))