From: Dave Love <fx@gnu.org>
Date: Thu, 24 Aug 2000 16:16:21 +0000 (+0000)
Subject: (standard-display-default): Make the test of `l'
X-Git-Tag: emacs-pretest-21.0.90~1988
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1c2c3f160b68d0726d438de00404cb4b80098f56;p=emacs.git

(standard-display-default): Make the test of `l'
useful.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 90a1dd7ee62..368783ff286 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2000-08-24  Dave Love  <fx@gnu.org>
 
+	* disp-table.el (standard-display-default): Make the test of `l'
+	useful.
+
 	* language/european.el ("Latin-8", "Latin-9"): Add input methods,
 	mod sample text.
 
diff --git a/lisp/disp-table.el b/lisp/disp-table.el
index 1acfc8ab8fe..44d7a4298d8 100644
--- a/lisp/disp-table.el
+++ b/lisp/disp-table.el
@@ -121,9 +121,8 @@ Valid symbols are `truncation', `wrap', `escape', `control',
 (defun standard-display-default (l h)
   "Display characters in the range L to H using the default notation."
   (while (<= l h)
-    (if (and (>= l ?\ ) (< l 127))
-	(aset standard-display-table l nil)
-      (aset standard-display-table l nil))
+    (if (and (>= l ?\ ) (char-valid-p l))
+	(aset standard-display-table l nil))
     (setq l (1+ l))))
 
 ;; This function does NOT take terminal-dependent escape sequences.