Mercurial > emacs

comparison lisp/international/latin1-disp.el @ 35365:84a59a4308f6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Require disp-table. (latin1-display): Fix :set.
author Dave Love <fx@gnu.org>
date Wed, 17 Jan 2001 14:26:26 +0000
parents d85712cf7ea3
children bd020356c644
comparison
equal deleted inserted replaced
35364:19c93f3ebdce 35365:84a59a4308f6
44 ;; If you don't even have Latin-1, see iso-ascii.el and use the 44 ;; If you don't even have Latin-1, see iso-ascii.el and use the
45 ;; complete tables from internal.el. The ASCII sequences used here 45 ;; complete tables from internal.el. The ASCII sequences used here
46 ;; are mostly in the same style as iso-ascii. 46 ;; are mostly in the same style as iso-ascii.
47 47
48 ;;; Code: 48 ;;; Code:
49
50 ;; Ensure `standard-display-table' is set up:
51 (require 'disp-table)
49 52
50 (defconst latin1-display-sets '(latin-2 latin-3 latin-4 latin-5 latin-8 53 (defconst latin1-display-sets '(latin-2 latin-3 latin-4 latin-5 latin-8
51 latin-9 cyrillic greek hebrew) 54 latin-9 cyrillic greek hebrew)
52 "The ISO8859 character sets with defined Latin-1 display sequences. 55 "The ISO8859 character sets with defined Latin-1 display sequences.
53 These are the nicknames for the sets and correspond to Emacs language 56 These are the nicknames for the sets and correspond to Emacs language
80 :group 'latin1-display 83 :group 'latin1-display
81 :type 'boolean 84 :type 'boolean
82 :require 'latin1-disp 85 :require 'latin1-disp
83 :initialize 'custom-initialize-default 86 :initialize 'custom-initialize-default
84 :set (lambda (symbol value) 87 :set (lambda (symbol value)
85 (if value 88 (set-default symbol value)
86 (mapc (if value 89 (mapc (if value
87 #'latin1-display-setup 90 #'latin1-display-setup
88 #'latin1-display-reset) 91 #'latin1-display-reset)
89 latin1-display-sets)))) 92 latin1-display-sets)
93 (redraw-display)))
90 94
91 ;;;###autoload 95 ;;;###autoload
92 (defun latin1-display (&rest sets) 96 (defun latin1-display (&rest sets)
93 "Set up Latin-1/ASCII display for the arguments character SETS. 97 "Set up Latin-1/ASCII display for the arguments character SETS.
94 See option `latin1-display' for the method. The members of the list 98 See option `latin1-display' for the method. The members of the list