From: Kenichi Handa <handa@m17n.org>
Date: Mon, 1 Sep 2008 07:17:23 +0000 (+0000)
Subject: (font-show-log): Fix previous change.
X-Git-Tag: emacs-pretest-23.0.90~3103
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=73650060a461bc49395adf55d8e93be7dee76a70;p=emacs.git

(font-show-log): Fix previous change.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bbb9268b7bd..b262890f0e9 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,13 @@
 2008-09-01  Kenichi Handa  <handa@m17n.org>
 
+	* international/mule-diag.el (font-show-log): Fix previous change.
+
+	* international/mule-cmds.el (set-language-environment): Don't
+	overwrite current-iso639-language if the current language
+	environment doesn't provide that data.
+	(set-locale-environment): Set current-iso639-language from the
+	locale name.
+
 	* international/fontset.el (script-representative-chars): Re-add
 	the entry for symbol, but with vector of characters.
 	(setup-default-fontset): Cancel previous change.
diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el
index 720201b4f1b..b104cefa3ac 100644
--- a/lisp/international/mule-diag.el
+++ b/lisp/international/mule-diag.el
@@ -1299,11 +1299,12 @@ character)")
 					       (nth 13 fields) 16)))))))))))
 
 ;;;###autoload
-(defun font-show-log (&optional n)
+(defun font-show-log (&optional limit)
   "Show log of font listing and opening.
-Prefix arg N says how many fonts to show for each listing.
-The default is 20.  If N is negative, do not limit the listing."
-  (interactive "p")
+Prefix arg LIMIT says how many fonts to show for each listing.
+The default is 20.  If LIMIT is negative, do not limit the listing."
+  (interactive "P")
+  (setq limit (if limit (prefix-numeric-value limit) 20))
   (if (eq font-log t)
       (message "Font logging is currently suppressed")
     (with-output-to-temp-buffer "*Help*"
@@ -1316,7 +1317,7 @@ The default is 20.  If N is negative, do not limit the listing."
 	      (catch 'tag
 		(mapc #'(lambda (x)
 			  (setq i (1+ i))
-			  (when (= i n)
+			  (when (= i limit)
 			    (insert "  ...\n")
 			    (throw 'tag nil))
 			  (insert (format "  %s\n" x)))