Mercurial > hg > xemacs-beta
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