diff options
| author | Dave Love <fx@gnu.org> | 2000-08-24 16:16:21 +0000 |
|---|---|---|
| committer | Dave Love <fx@gnu.org> | 2000-08-24 16:16:21 +0000 |
| commit | 1c2c3f160b68d0726d438de00404cb4b80098f56 (patch) | |
| tree | 20560c5712044e27731a9f7f1b120a25ecb6c08b /lisp/disp-table.el | |
| parent | f6499c03d8d45359d74d57683b9b492347be9d5b (diff) | |
| download | emacs-1c2c3f160b68d0726d438de00404cb4b80098f56.tar.gz | |
(standard-display-default): Make the test of `l'
useful.
Diffstat (limited to 'lisp/disp-table.el')
| -rw-r--r-- | lisp/disp-table.el | 5 |
1 files changed, 2 insertions, 3 deletions
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. |