# HG changeset patch # User Eli Zaretskii # Date 1290847219 -7200 # Node ID f026c86077955402c170ce9f43e3d06949bac79b # Parent 40c5518fe5b3dbb0dbea088a7b52c9ae4d38fb01 Exclude NL and TAB from c0-control group for glyphless display. international/characters.el (glyphless-char-display-control): Exclude newline and TAB from the c0-control group. diff -r 40c5518fe5b3 -r f026c8607795 lisp/ChangeLog --- a/lisp/ChangeLog Fri Nov 26 19:29:06 2010 -0800 +++ b/lisp/ChangeLog Sat Nov 27 10:40:19 2010 +0200 @@ -1,3 +1,8 @@ +2010-11-27 Eli Zaretskii + + * international/characters.el (glyphless-char-display-control): + Exclude newline and TAB from the c0-control group. + 2010-11-27 Glenn Morris * mail/sendmail.el (build-mail-aliases): Doc fix for autoload. diff -r 40c5518fe5b3 -r f026c8607795 lisp/international/characters.el --- a/lisp/international/characters.el Fri Nov 26 19:29:06 2010 -0800 +++ b/lisp/international/characters.el Sat Nov 27 10:40:19 2010 +0200 @@ -1305,7 +1305,12 @@ (error "Invalid glyphless character display method: %s" method)) (cond ((eq target 'c0-control) (set-char-table-range glyphless-char-display '(#x00 . #x1F) - method)) + method) + ;; Users will not expect their newlines and TABs be + ;; displayed as anything but themselves, so exempt those + ;; two characters from c0-control. + (set-char-table-range glyphless-char-display #x9 nil) + (set-char-table-range glyphless-char-display #xa nil)) ((eq target 'c1-control) (set-char-table-range glyphless-char-display '(#x80 . #x9F) method)) @@ -1344,7 +1349,7 @@ group. GROUP must be one of these symbols: - `c0-control': U+0000..U+001F. + `c0-control': U+0000..U+001F, but excluding newline and TAB. `c1-control': U+0080..U+009F. `format-control': Characters of Unicode General Category `Cf', such as U+200C (ZWNJ), U+200E (LRM), but