Lines Matching defs:display
1 ;;; latin1-disp.el --- display tables for other ISO 8859 on Latin-1 terminals -*-coding: iso-2022-7bit;-*-
28 ;; This package sets up display of ISO 8859-n for n>1 by substituting
32 ;; Latin-9 is very similar to Latin-1, so we can display most Latin-9
40 ;; [A different approach is taken in the DOS display tables in
42 ;; available as an alternative; see `latin1-display-mnemonic'. Only
51 ;; Ensure `standard-display-table' is set up:
54 (defconst latin1-display-sets '(latin-2 latin-3 latin-4 latin-5 latin-8
56 "The ISO8859 character sets with defined Latin-1 display sequences.
60 (defgroup latin1-display ()
61 "Set up display tables for ISO8859 characters using Latin-1."
66 (defcustom latin1-display-format "{%s}"
67 "A format string used to display the ASCII sequences.
70 `latin1-display-face'."
71 :group 'latin1-display
75 (defcustom latin1-display nil
76 "Set up Latin-1/ASCII display for ISO8859 character sets.
77 This is done for each character set in the list `latin1-display-sets',
78 if no font is available to display it. Characters are displayed using
82 `latin1-display-mnemonic' is non-nil.
85 charsets if you don't have a Unicode font with which to display them.
88 use either \\[customize] or the function `latin1-display'."
89 :group 'latin1-display
95 (apply #'latin1-display latin1-display-sets)
96 (latin1-display))))
99 (defun latin1-display (&rest sets)
100 "Set up Latin-1/ASCII display for the arguments character SETS.
101 See option `latin1-display' for the method. The members of the list
102 must be in `latin1-display-sets'. With no arguments, reset the
103 display for all of `latin1-display-sets'. See also
104 `latin1-display-setup'. As well as iso-8859 characters, this treats
106 a Unicode font with which to display them."
109 (mapc #'latin1-display-setup sets)
117 (not (aref standard-display-table uc)))
118 (aset standard-display-table uc
119 (or (aref standard-display-table c)
125 (apply 'latin1-display-char l))
139 (setq latin1-display t))
140 (mapc #'latin1-display-reset latin1-display-sets)
141 (aset standard-display-table
143 (aset standard-display-table
145 (aset standard-display-table
147 (setq latin1-display nil)
148 (redraw-display)))
150 (defcustom latin1-display-mnemonic nil
151 "Non-nil means to display potentially more mnemonic sequences.
155 :group 'latin1-display)
157 (defcustom latin1-display-face 'default
161 :group 'latin1-display)
163 (defun latin1-display-char (char display &optional alt-display)
164 "Make an entry in `standard-display-table' for CHAR using string DISPLAY.
166 `latin1-display-mnemonic' is non-nil. The actual string displayed is
167 formatted using `latin1-display-format'.
170 are formatted using `latin1-display-format' and passed to
171 `standard-display-ascii'; vectors are put into `standard-display-table'
173 (if (and (stringp alt-display)
174 latin1-display-mnemonic)
175 (setq display alt-display))
176 (if (stringp display)
177 (if (eq 'default latin1-display-face)
178 (standard-display-ascii char (format latin1-display-format display))
179 (aset standard-display-table char
180 (vconcat (mapcar (lambda (c) (make-glyph-code c latin1-display-face))
181 display))))
182 (aset standard-display-table char
183 (make-glyph-code display latin1-display-face))))
185 (defun latin1-display-identities (charset)
194 (aset standard-display-table
199 (defun latin1-display-reset (language)
200 "Set up the default display for each character of LANGUAGE's charset.
209 (standard-display-default (make-char charset 32)
213 (defun latin1-display-check-font (language)
227 (defun latin1-display-setup (set &optional force)
228 "Set up Latin-1 display for characters in the given SET.
229 SET must be a member of `latin1-display-sets'. Normally, check
230 whether a font for SET is available and don't set the display if it
231 is. If FORCE is non-nil, set up the display regardless."
234 (latin1-display-identities set)
238 (apply 'latin1-display-char l)))
302 (latin1-display-identities set)
306 (apply 'latin1-display-char l)))
337 (latin1-display-identities set)
341 (apply 'latin1-display-char l)))
393 (latin1-display-identities set)
397 (apply 'latin1-display-char l)))
409 (latin1-display-identities set)
413 (apply 'latin1-display-char l)))
447 (latin1-display-identities set)
451 (apply 'latin1-display-char l)))
465 (apply 'latin1-display-char l)))
527 (aset standard-display-table (car l) (string-to-vector (cadr l)))))
550 (aset standard-display-table
557 (aset standard-display-table (car l) (string-to-vector (cadr l)))))
592 (aset standard-display-table ?,G (B ",A (B"))
594 (aset standard-display-table ?,G$(B ",A$(B"))
596 (aset standard-display-table ?,G-(B ",A-(B"))
599 (apply 'latin1-display-char l)))
654 (apply 'latin1-display-char l)))
724 (aset standard-display-table (car l) (string-to-vector (cadr l)))))
760 (defcustom latin1-display-ucs-per-lynx nil
761 "Set up Latin-1/ASCII display for Unicode characters.
762 This uses the transliterations of the Lynx browser. The display isn't
763 changed if the display can render Unicode characters.
766 use either \\[customize] or the function `latin1-display'."
767 :group 'latin1-display
773 (latin1-display-ucs-per-lynx 1)
774 (latin1-display-ucs-per-lynx -1))))
776 (defun latin1-display-ucs-per-lynx (arg)
777 "Set up Latin-1/ASCII display for Unicode characters.
780 With argument ARG, turn such display on iff ARG is positive, otherwise
781 turn it off and display Unicode characters literally. The display
782 is't changed if the display can render Unicode characters."
788 (let ((latin1-display-format "%s"))
791 (apply 'latin1-display-char l))
3206 (aset standard-display-table
3208 (aset standard-display-table
3210 (aset standard-display-table
3212 (setq latin1-display-ucs-per-lynx (not latin1-display-ucs-per-lynx))
3213 (redraw-display))