Require disp-table.

(latin1-display): Fix :set.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a2854dbdd11ccac112180dcaa97e970fb4ff7e4f..655cdf765abbbf12f4065eb7d2e6fd85551fa87c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2001-01-17  Dave Love  <fx@gnu.org>
+
+       * international/latin1-disp.el: Require disp-table.
+       (latin1-display): Fix :set.
+
+       * net/eudc-vars.el (eudc-server, eudc-protocol): Fix :type.
+
 2001-01-17  Gerd Moellmann  <gerd@gnu.org>
 
        * isearch.el (isearch-lazy-highlight-initial-delay)
@@ -81,8 +88,8 @@
 
 2001-01-15  Alex Schroeder  <alex@gnu.org>
 
-       * ansi-color.el (ansi-colors) <defgroup>: Fix :version by Dave
-       Love <fx@gnu.org>
+       * ansi-color.el (ansi-colors) <defgroup>: Fix :version.
+       From Dave Love <fx@gnu.org>.
        (ansi-color-for-comint-mode): Fix :version.
 
 2001-01-15  Alex Schroeder  <alex@gnu.org>

diff --git a/lisp/international/latin1-disp.el b/lisp/international/latin1-disp.el
index 639457d8fdfa8706fa4007d02973a9bff29395b1..4f644eda725288d0cda740c0c9996b0911e8093e 100644 (file)
--- a/lisp/international/latin1-disp.el
+++ b/lisp/international/latin1-disp.el
@@ -47,6 +47,9 @@
 
 ;;; Code:
 
+;; Ensure `standard-display-table' is set up:
+(require 'disp-table)
+
 (defconst latin1-display-sets '(latin-2 latin-3 latin-4 latin-5 latin-8
                                latin-9 cyrillic greek hebrew)
   "The ISO8859 character sets with defined Latin-1 display sequences.
@@ -82,11 +85,12 @@ use either M-x customize of the function `latin1-display'."
   :require 'latin1-disp
   :initialize 'custom-initialize-default
   :set (lambda (symbol value)
-        (if value
-            (mapc (if value
-                      #'latin1-display-setup
-                    #'latin1-display-reset)
-                  latin1-display-sets))))
+        (set-default symbol value)
+        (mapc (if value
+                  #'latin1-display-setup
+                #'latin1-display-reset)
+              latin1-display-sets)
+        (redraw-display)))
 
 ;;;###autoload
 (defun latin1-display (&rest sets)