(standard-display-european): Make 160 display as space.

55f5abaf · Richard M. Stallman · f56e7ad2 · 55f5abaf
Commit 55f5abaf authored Dec 23, 1995 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 3 deletions

lisp/disp-table.el lisp/disp-table.el +5 -3

No files found.
--- 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)