aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorEli Zaretskii2010-11-27 10:40:19 +0200
committerEli Zaretskii2010-11-27 10:40:19 +0200
commit9610796712a3bc43730c99005906571a2c0bccbd (patch)
treeb01f4d25932dca0bed0732bccd06701359ef9438
parent824450627845d7e69d20d3517d07ea586635ca0a (diff)
downloademacs-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/ChangeLog5
-rw-r--r--lisp/international/characters.el9
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 @@
12010-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
12010-11-27 Glenn Morris <rgm@gnu.org> 62010-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
1344group. 1349group.
1345 1350
1346GROUP must be one of these symbols: 1351GROUP 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