import -ko -b 1.1.3 XEmacs XEmacs-21_2 r21-2-35

[chise/xemacs-chise.git.1] / lisp / mule / mule-x-init.el

diff --git a/lisp/mule/mule-x-init.el b/lisp/mule/mule-x-init.el
index b67f7e7..35a08b4 100644 (file)
--- a/lisp/mule/mule-x-init.el
+++ b/lisp/mule/mule-x-init.el
@@ -40,16 +40,16 @@ Traditionally, Asian characters have been displayed so that they
 occupy exactly twice the screen space of ASCII (`halfwidth')
 characters.  On many systems, e.g. Sun CDE systems, this can only be
 achieved by using a national variant roman font to display ASCII."
-  (let ((charset-font-width
-        (lambda (charset)
-          (font-instance-width
-           (face-font-instance 'default (selected-device) charset))))
-
-       (twice-as-wide
-        (lambda (cs1 cs2)
-          (let ((width1 (funcall charset-font-width cs1))
-                (width2 (funcall charset-font-width cs2)))
-            (and width1 width2 (eq (+ width1 width1) width2))))))
+  (let* ((charset-font-width
+         (lambda (charset)
+           (font-instance-width
+            (face-font-instance 'default (selected-device) charset))))
+
+        (twice-as-wide
+         (lambda (cs1 cs2)
+           (let ((width1 (funcall charset-font-width cs1))
+                 (width2 (funcall charset-font-width cs2)))
+             (and width1 width2 (eq (+ width1 width1) width2))))))
 
     (when (eq 'x (device-type))
       (condition-case nil