Mercurial > hg > xemacs-beta

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

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b39
author cvs
date Mon, 13 Aug 2007 10:33:18 +0200
parents 157b30c96d03
children 558f606b08ae
comparison
equal deleted inserted replaced
281:090b52736db2 282:c42ec1d1cded
364 This function is a trivial wrapper around `make-frame-on-device'." 364 This function is a trivial wrapper around `make-frame-on-device'."
365 (interactive "sMake frame on display: ") 365 (interactive "sMake frame on display: ")
366 (if (equal display "") (setq display nil)) 366 (if (equal display "") (setq display nil))
367 (make-frame-on-device 'x display props)) 367 (make-frame-on-device 'x display props))
368 368
369 ;; Character 160 (octal 0240) displays incorrectly under X apparently
370 ;; due to a universally crocked font width specification. Display it
371 ;; as a space since that's what seems to be expected.
372 ;;
373 ;; (make-vector 256 nil) instead of (make-display-table) because
374 ;; make-display-table doesn't exist when this file is loaded.
375
376 (let ((tab (make-vector 256 nil)))
377 (aset tab 160 " ")
378 (set-specifier current-display-table tab 'global 'x))
379
369 ;;; x-init.el ends here 380 ;;; x-init.el ends here