Mercurial > emacs
comparison lisp/disp-table.el @ 584:4cd7543be581
*** 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))) |