summaryrefslogtreecommitdiff
path: root/lisp/disp-table.el
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1995-12-23 07:32:51 +0000
committerRichard M. Stallman <rms@gnu.org>1995-12-23 07:32:51 +0000
commit55f5abaf64fb8c1e254ae0ec09c636a87d6d2473 (patch)
tree27a4940d96a5d4941e5bcc61affedffd84a79b08 /lisp/disp-table.el
parentf56e7ad2ac0e5e70a9d54b5a9849801720ab20c0 (diff)
downloademacs-55f5abaf64fb8c1e254ae0ec09c636a87d6d2473.tar.gz
(standard-display-european): Make 160 display as space.
Diffstat (limited to 'lisp/disp-table.el')
-rw-r--r--lisp/disp-table.el8
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/disp-table.el b/lisp/disp-table.el
index 6051471b82a..d75dd41e701 100644
--- a/lisp/disp-table.el
+++ b/lisp/disp-table.el
@@ -184,11 +184,13 @@ With prefix argument, enable European character display iff arg is positive."
(if (or (<= (prefix-numeric-value arg) 0)
(and (null arg)
(char-table-p standard-display-table)
- ;; Test 161, because sometimes people need to make
- ;; 160 display as a space.
+ ;; Test 161, because 160 displays as a space.
(equal (aref standard-display-table 161) [161])))
(standard-display-default 160 255)
- (standard-display-8bit 160 255)))
+ (standard-display-8bit 160 255)
+ ;; Make non-line-break space display as a plain space.
+ ;; Most X fonts do the wrong thing for code 160.
+ (aset standard-display-table 160 [32])))
(provide 'disp-table)