Mercurial > emacs

changeset 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 19c93f3ebdce
children 94a6afe6cbef
files lisp/international/latin1-disp.el
diffstat 1 files changed, 9 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/latin1-disp.el	Wed Jan 17 14:11:43 2001 +0000
+++ b/lisp/international/latin1-disp.el	Wed Jan 17 14:26:26 2001 +0000
@@ -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 @@
   :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)