diff options
| author | Eli Zaretskii | 2010-11-27 10:40:19 +0200 |
|---|---|---|
| committer | Eli Zaretskii | 2010-11-27 10:40:19 +0200 |
| commit | 9610796712a3bc43730c99005906571a2c0bccbd (patch) | |
| tree | b01f4d25932dca0bed0732bccd06701359ef9438 | |
| parent | 824450627845d7e69d20d3517d07ea586635ca0a (diff) | |
| download | emacs-9610796712a3bc43730c99005906571a2c0bccbd.tar.gz emacs-9610796712a3bc43730c99005906571a2c0bccbd.zip | |
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.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/international/characters.el | 9 |
2 files changed, 12 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1612fbe9ab9..f26911298e3 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2010-11-27 Eli Zaretskii <eliz@gnu.org> | ||
| 2 | |||
| 3 | * international/characters.el (glyphless-char-display-control): | ||
| 4 | Exclude newline and TAB from the c0-control group. | ||
| 5 | |||
| 1 | 2010-11-27 Glenn Morris <rgm@gnu.org> | 6 | 2010-11-27 Glenn Morris <rgm@gnu.org> |
| 2 | 7 | ||
| 3 | * mail/sendmail.el (build-mail-aliases): Doc fix for autoload. | 8 | * mail/sendmail.el (build-mail-aliases): Doc fix for autoload. |
diff --git a/lisp/international/characters.el b/lisp/international/characters.el index 73185d78f2b..db5fe7e86ba 100644 --- a/lisp/international/characters.el +++ b/lisp/international/characters.el | |||
| @@ -1305,7 +1305,12 @@ This function updates the char-table `glyphless-char-display'." | |||
| 1305 | (error "Invalid glyphless character display method: %s" method)) | 1305 | (error "Invalid glyphless character display method: %s" method)) |
| 1306 | (cond ((eq target 'c0-control) | 1306 | (cond ((eq target 'c0-control) |
| 1307 | (set-char-table-range glyphless-char-display '(#x00 . #x1F) | 1307 | (set-char-table-range glyphless-char-display '(#x00 . #x1F) |
| 1308 | method)) | 1308 | method) |
| 1309 | ;; Users will not expect their newlines and TABs be | ||
| 1310 | ;; displayed as anything but themselves, so exempt those | ||
| 1311 | ;; two characters from c0-control. | ||
| 1312 | (set-char-table-range glyphless-char-display #x9 nil) | ||
| 1313 | (set-char-table-range glyphless-char-display #xa nil)) | ||
| 1309 | ((eq target 'c1-control) | 1314 | ((eq target 'c1-control) |
| 1310 | (set-char-table-range glyphless-char-display '(#x80 . #x9F) | 1315 | (set-char-table-range glyphless-char-display '(#x80 . #x9F) |
| 1311 | method)) | 1316 | method)) |
| @@ -1344,7 +1349,7 @@ specifying the method of displaying characters belonging to that | |||
| 1344 | group. | 1349 | group. |
| 1345 | 1350 | ||
| 1346 | GROUP must be one of these symbols: | 1351 | GROUP must be one of these symbols: |
| 1347 | `c0-control': U+0000..U+001F. | 1352 | `c0-control': U+0000..U+001F, but excluding newline and TAB. |
| 1348 | `c1-control': U+0080..U+009F. | 1353 | `c1-control': U+0080..U+009F. |
| 1349 | `format-control': Characters of Unicode General Category `Cf', | 1354 | `format-control': Characters of Unicode General Category `Cf', |
| 1350 | such as U+200C (ZWNJ), U+200E (LRM), but | 1355 | such as U+200C (ZWNJ), U+200E (LRM), but |