diff options
| author | Dave Love | 2003-09-10 17:54:12 +0000 |
|---|---|---|
| committer | Dave Love | 2003-09-10 17:54:12 +0000 |
| commit | 96a61661d0973dca8b9b802208a8e4f0c4cdaeb8 (patch) | |
| tree | 5ef087415400206b63164fac16cda20e6472ff15 | |
| parent | 97443772e0967cbcfdb5e7f7a650256c7ea8b83e (diff) | |
| download | emacs-96a61661d0973dca8b9b802208a8e4f0c4cdaeb8.tar.gz emacs-96a61661d0973dca8b9b802208a8e4f0c4cdaeb8.zip | |
(standard-display-default): Use characterp.
| -rw-r--r-- | lisp/disp-table.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/disp-table.el b/lisp/disp-table.el index 174b5d27211..106ccd028e2 100644 --- a/lisp/disp-table.el +++ b/lisp/disp-table.el | |||
| @@ -123,7 +123,7 @@ Valid symbols are `truncation', `wrap', `escape', `control', | |||
| 123 | (defun standard-display-default (l h) | 123 | (defun standard-display-default (l h) |
| 124 | "Display characters in the range L to H using the default notation." | 124 | "Display characters in the range L to H using the default notation." |
| 125 | (while (<= l h) | 125 | (while (<= l h) |
| 126 | (if (and (>= l ?\ ) (char-valid-p l)) | 126 | (if (and (>= l ?\ ) (characterp l)) |
| 127 | (aset standard-display-table l nil)) | 127 | (aset standard-display-table l nil)) |
| 128 | (setq l (1+ l)))) | 128 | (setq l (1+ l)))) |
| 129 | 129 | ||