summaryrefslogtreecommitdiff
path: root/lisp
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
commitf954831bf3b152fad5b5bcba265d3bceb1d7089d (patch)
tree33a99ee739baaac430e1e88b5dde5236395e843b /lisp
parent89915d66062b329a5e6d4a7763bdbb0d0104c52a (diff)
downloademacs-f954831bf3b152fad5b5bcba265d3bceb1d7089d.tar.gz
(standard-display-european): Make 160 display as space.
Diffstat (limited to 'lisp')
-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)