# HG changeset patch # User Dave Love # Date 967133746 0 # Node ID cf90d4a5e3b24c505d66cc1422fbc1f44f59768d # Parent deaa66a2ac5b65cc3fafbf16ab54cb596171c326 (standard-display-default): Make the test of `l' useful. diff -r deaa66a2ac5b -r cf90d4a5e3b2 lisp/disp-table.el --- a/lisp/disp-table.el Thu Aug 24 13:34:24 2000 +0000 +++ b/lisp/disp-table.el Thu Aug 24 16:15:46 2000 +0000 @@ -121,9 +121,8 @@ (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.