diff options
author | Dave Love <fx@gnu.org> | 2001-01-17 14:29:49 +0000 |
---|---|---|
committer | Dave Love <fx@gnu.org> | 2001-01-17 14:29:49 +0000 |
commit | 9eaf396bd1a606f2d5cf73ef90125c4ca5682232 (patch) | |
tree | e3e07c7e4524685e28001c30a172f945ba240b69 /lisp/international/latin1-disp.el | |
parent | f864120fde12d3b754b37a9fb67897921926d398 (diff) | |
download | emacs-9eaf396bd1a606f2d5cf73ef90125c4ca5682232.tar.gz |
Require disp-table.
(latin1-display): Fix :set.
Diffstat (limited to 'lisp/international/latin1-disp.el')
-rw-r--r-- | lisp/international/latin1-disp.el | 14 |
1 files changed, 9 insertions, 5 deletions
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) |