aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDave Love2001-01-17 14:29:49 +0000
committerDave Love2001-01-17 14:29:49 +0000
commit9eaf396bd1a606f2d5cf73ef90125c4ca5682232 (patch)
treee3e07c7e4524685e28001c30a172f945ba240b69
parentf864120fde12d3b754b37a9fb67897921926d398 (diff)
downloademacs-9eaf396bd1a606f2d5cf73ef90125c4ca5682232.tar.gz
emacs-9eaf396bd1a606f2d5cf73ef90125c4ca5682232.zip
Require disp-table.
(latin1-display): Fix :set.
-rw-r--r--lisp/ChangeLog11
-rw-r--r--lisp/international/latin1-disp.el14
2 files changed, 18 insertions, 7 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a2854dbdd11..655cdf765ab 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
12001-01-17 Dave Love <fx@gnu.org>
2
3 * international/latin1-disp.el: Require disp-table.
4 (latin1-display): Fix :set.
5
6 * net/eudc-vars.el (eudc-server, eudc-protocol): Fix :type.
7
12001-01-17 Gerd Moellmann <gerd@gnu.org> 82001-01-17 Gerd Moellmann <gerd@gnu.org>
2 9
3 * isearch.el (isearch-lazy-highlight-initial-delay) 10 * isearch.el (isearch-lazy-highlight-initial-delay)
@@ -81,8 +88,8 @@
81 88
822001-01-15 Alex Schroeder <alex@gnu.org> 892001-01-15 Alex Schroeder <alex@gnu.org>
83 90
84 * ansi-color.el (ansi-colors) <defgroup>: Fix :version by Dave 91 * ansi-color.el (ansi-colors) <defgroup>: Fix :version.
85 Love <fx@gnu.org> 92 From Dave Love <fx@gnu.org>.
86 (ansi-color-for-comint-mode): Fix :version. 93 (ansi-color-for-comint-mode): Fix :version.
87 94
882001-01-15 Alex Schroeder <alex@gnu.org> 952001-01-15 Alex Schroeder <alex@gnu.org>
diff --git a/lisp/international/latin1-disp.el b/lisp/international/latin1-disp.el
index 639457d8fdf..4f644eda725 100644
--- a/lisp/international/latin1-disp.el
+++ b/lisp/international/latin1-disp.el
@@ -47,6 +47,9 @@
47 47
48;;; Code: 48;;; Code:
49 49
50;; Ensure `standard-display-table' is set up:
51(require 'disp-table)
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.
@@ -82,11 +85,12 @@ use either M-x customize of the function `latin1-display'."
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)