From 9eaf396bd1a606f2d5cf73ef90125c4ca5682232 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Wed, 17 Jan 2001 14:29:49 +0000 Subject: [PATCH] Require disp-table. (latin1-display): Fix :set. --- lisp/ChangeLog | 11 +++++++++-- lisp/international/latin1-disp.el | 14 +++++++++----- 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 @@ +2001-01-17 Dave Love + + * 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 * isearch.el (isearch-lazy-highlight-initial-delay) @@ -81,8 +88,8 @@ 2001-01-15 Alex Schroeder - * ansi-color.el (ansi-colors) : Fix :version by Dave - Love + * ansi-color.el (ansi-colors) : Fix :version. + From Dave Love . (ansi-color-for-comint-mode): Fix :version. 2001-01-15 Alex Schroeder 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 @@ ;;; 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) -- 2.39.5