]> code.delx.au - gnu-emacs/commitdiff
(standard-display-european): Make 160 display as space.
authorRichard M. Stallman <rms@gnu.org>
Sat, 23 Dec 1995 07:32:51 +0000 (07:32 +0000)
committerRichard M. Stallman <rms@gnu.org>
Sat, 23 Dec 1995 07:32:51 +0000 (07:32 +0000)
lisp/disp-table.el

index 6051471b82aac84e80174fa2eb32470db5708436..d75dd41e701be87ad4b51331ce2fb906f7c7a17f 100644 (file)
@@ -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)