Mercurial > hg > xemacs-beta

diff lisp/mule/mule-x-init.el @ 442:abe6d1db359e r21-2-36

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-36
author cvs
date Mon, 13 Aug 2007 11:35:02 +0200
parents 3ecd8885ac67
children 7039e6323819
line wrap: on
line diff
--- a/lisp/mule/mule-x-init.el	Mon Aug 13 11:33:40 2007 +0200
+++ b/lisp/mule/mule-x-init.el	Mon Aug 13 11:35:02 2007 +0200
@@ -40,16 +40,16 @@
 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))))
+  (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))))))
+	 (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