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

useful.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 90a1dd7ee62bd6f039820ee12d731eeacc5f941b..368783ff2863e79af57c98985728bb53413242dc 100644 (file)
--- 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 1acfc8ab8fea6980efcc938071d9b718948c7d7c..44d7a4298d8b26cf54e8cc35842cc7609f1364a0 100644 (file)
--- 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.