aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/ChangeLog3
-rw-r--r--lisp/disp-table.el5
2 files changed, 5 insertions, 3 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 90a1dd7ee62..368783ff286 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
12000-08-24 Dave Love <fx@gnu.org> 12000-08-24 Dave Love <fx@gnu.org>
2 2
3 * disp-table.el (standard-display-default): Make the test of `l'
4 useful.
5
3 * language/european.el ("Latin-8", "Latin-9"): Add input methods, 6 * language/european.el ("Latin-8", "Latin-9"): Add input methods,
4 mod sample text. 7 mod sample text.
5 8
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',
121(defun standard-display-default (l h) 121(defun standard-display-default (l h)
122 "Display characters in the range L to H using the default notation." 122 "Display characters in the range L to H using the default notation."
123 (while (<= l h) 123 (while (<= l h)
124 (if (and (>= l ?\ ) (< l 127)) 124 (if (and (>= l ?\ ) (char-valid-p l))
125 (aset standard-display-table l nil) 125 (aset standard-display-table l nil))
126 (aset standard-display-table l nil))
127 (setq l (1+ l)))) 126 (setq l (1+ l))))
128 127
129;; This function does NOT take terminal-dependent escape sequences. 128;; This function does NOT take terminal-dependent escape sequences.