diff lisp/x-init.el @ 282:c42ec1d1cded r21-0b39

Import from CVS: tag r21-0b39
author cvs
date Mon, 13 Aug 2007 10:33:18 +0200
parents 157b30c96d03
children 558f606b08ae
line wrap: on
line diff
--- a/lisp/x-init.el	Mon Aug 13 10:32:23 2007 +0200
+++ b/lisp/x-init.el	Mon Aug 13 10:33:18 2007 +0200
@@ -366,4 +366,15 @@
   (if (equal display "") (setq display nil))
   (make-frame-on-device 'x display props))
 
+;; Character 160 (octal 0240) displays incorrectly under X apparently
+;; due to a universally crocked font width specification.  Display it
+;; as a space since that's what seems to be expected.
+;;
+;; (make-vector 256 nil) instead of (make-display-table) because
+;; make-display-table doesn't exist when this file is loaded.
+
+(let ((tab (make-vector 256 nil)))
+  (aset tab 160 " ")
+  (set-specifier current-display-table tab 'global 'x))
+
 ;;; x-init.el ends here