Mercurial > hg > xemacs-beta

comparison lisp/mule/mule-x-init.el @ 4103:b4f4e0cc90f1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2007-08-07 23:08:47 by aidan] Eliminate byte compiler warnings, give nicer errors in the absence of packages.
author aidan
date Tue, 07 Aug 2007 23:09:22 +0000
parents 79c6ff3eef26
children e34711681f30
comparison
equal deleted inserted replaced
4102:9856d458deda 4103:b4f4e0cc90f1
48 (let ((width1 (charset-font-width cs1)) 48 (let ((width1 (charset-font-width cs1))
49 (width2 (charset-font-width cs2))) 49 (width2 (charset-font-width cs2)))
50 (and width1 width2 (eq (+ width1 width1) width2))))) 50 (and width1 width2 (eq (+ width1 width1) width2)))))
51 51
52 (when (eq 'x (device-type)) 52 (when (eq 'x (device-type))
53 (condition-case nil 53 (let ((original-registries (charset-registries 'ascii)))
54 (unless (twice-as-wide 'ascii fullwidth-charset) 54 (condition-case nil
55 (set-charset-registry 'ascii roman-registry) 55 (unless (twice-as-wide 'ascii fullwidth-charset)
56 (unless (twice-as-wide 'ascii fullwidth-charset) 56 (set-charset-registries 'ascii (vector roman-registry))
57 ;; Restore if roman-registry didn't help 57 (unless (twice-as-wide 'ascii fullwidth-charset)
58 (set-charset-registry 'ascii "iso8859-1"))) 58 ;; Restore if roman-registry didn't help
59 (error (set-charset-registry 'ascii "iso8859-1")))))) 59 (set-charset-registries 'ascii original-registries)))
60 (error (set-charset-registries 'ascii original-registries)))))))
60 61
61 ;;;; 62 ;;;;
62 63
63 (defvar mule-x-win-initted nil) 64 (defvar mule-x-win-initted nil)
64 65