From: kaoru <kaoru>
Date: Thu, 5 Jun 2003 22:17:11 +0000 (+0000)
Subject: * WL-MK: Remove comment out code.  Fix indent.
X-Git-Tag: merged-trunk-to-elmo-mark-18~17
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=3825ce03dec018539b2c7e4619494e288895eb94;p=elisp%2Fwanderlust.git

* WL-MK: Remove comment out code.  Fix indent.
---

diff --git a/ChangeLog b/ChangeLog
index 68c0472..bc75d74 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2003-06-05  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+	* WL-MK: Remove comment out code.  Fix indent.
+
 2003-04-08  Yoichi NAKAYAMA  <yoichi@geiin.org>
 
 	* WL-MK: Nil for wl-info-lang means do nothing on info.
diff --git a/WL-MK b/WL-MK
index b77ac88..cb0235d 100644
--- a/WL-MK
+++ b/WL-MK
@@ -417,13 +417,12 @@
 
 (defun wl-primary-info-file ()
   "Get primary info file (for wl-detect-info-directory)."
-  (cond
-   ((null wl-info-lang))
-   ((listp wl-info-lang)
-    (let ((wl-info-lang (car wl-info-lang)))
-      (wl-primary-info-file)))
-   ((stringp wl-info-lang)
-    (symbol-value (intern (format "wl-%s-info" wl-info-lang))))))
+  (cond ((null wl-info-lang))
+	((listp wl-info-lang)
+	 (let ((wl-info-lang (car wl-info-lang)))
+	   (wl-primary-info-file)))
+	((stringp wl-info-lang)
+	 (symbol-value (intern (format "wl-%s-info" wl-info-lang))))))
 
 (defun wl-detect-info-directory ()
   (config-wl-package-subr)
@@ -441,9 +440,7 @@
 		  (if (setq previous
 			    (exec-installed-p info Info-directory-list
 					      COMPRESS-SUFFIX-LIST))
-		      ;;(progn
-		      ;;(condition-case nil (delete-file previous))
-		      (directory-file-name (file-name-directory previous));)
+		      (directory-file-name (file-name-directory previous))
 		    (car Info-directory-list))
 		infodir))
 	(setq command-line-args-left (cdr command-line-args-left))))