X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fmule%2Fmule-x-init.el;h=35a08b491f0891c96095f583f11f95713f07e8db;hb=8b6156e7258f5ac7551b93cffa4935a43c84a14e;hp=8bb351c1320f91d05eff088d79d663158d5a5a54;hpb=28a3fa29bc0bd9a124b6e3379e82d62e815c22a2;p=chise%2Fxemacs-chise.git.1

diff --git a/lisp/mule/mule-x-init.el b/lisp/mule/mule-x-init.el
index 8bb351c..35a08b4 100644
--- a/lisp/mule/mule-x-init.el
+++ b/lisp/mule/mule-x-init.el
@@ -1,6 +1,6 @@
 ;;; mule-x-init.el --- initialization code for X Windows under MULE
 ;; Copyright (C) 1994 Free Software Foundation, Inc.
-;; Copyright (C) 1996 Ben Wing <wing@666.com>
+;; Copyright (C) 1996 Ben Wing <ben@xemacs.org>
 
 ;; Author: various
 ;; Keywords: mule X11
@@ -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