From: kaoru <kaoru>
Date: Thu, 5 Jun 2003 22:19:43 +0000 (+0000)
Subject: Synch with trunk.
X-Git-Tag: wl-2_10_1pre~25
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=14b3078784c4dda999b2e792f1eac54495f6dfbd;p=elisp%2Fwanderlust.git

Synch with trunk.
---

diff --git a/ChangeLog b/ChangeLog
index 15cd0b1..d5068be 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,16 @@
+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.
+
+2003-01-13  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+	* WL-MK (wl-info-lang): Skip "ja" for non-mule.
+	(wl-news-lang): Ditto.
+
 2002-12-27  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
 	* INSTALL, INSTALL.ja: Updated recommended version of FLIM to 1.14.5.
diff --git a/WL-MK b/WL-MK
index c42e4f3..0227883 100644
--- a/WL-MK
+++ b/WL-MK
@@ -28,7 +28,7 @@
 (defconst wl-en-info "wl.info")
 (defconst wl-en-texi "wl.texi")
 
-(defvar wl-info-lang '("ja" "en")
+(defvar wl-info-lang (if (featurep 'mule) '("ja" "en") '("en"))
   "The language of info file (\"ja\" or \"en\").")
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -382,7 +382,8 @@
 
 (defun wl-texinfo-format ()
   (wl-detect-info-directory)
-  (cond ((listp wl-info-lang)
+  (cond ((null wl-info-lang))
+	((listp wl-info-lang)
 	 (mapcar 'wl-texinfo-format-file wl-info-lang))
 	((stringp wl-info-lang)
 	 (wl-texinfo-format-file wl-info-lang))))
@@ -392,42 +393,42 @@
     (install-file infofile DOCDIR INFODIR nil 'overwrite)))
 
 (defun wl-texinfo-install ()
-  (cond ((listp wl-info-lang)
+  (cond ((null wl-info-lang))
+	((listp wl-info-lang)
 	 (mapcar 'wl-texinfo-install-file wl-info-lang))
 	((stringp wl-info-lang)
 	 (wl-texinfo-install-file wl-info-lang))))
 
 (defun wl-primary-info-file ()
   "Get primary info file (for wl-detect-info-directory)."
-  (cond
-   ((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)
   ;; INFODIR check.
-  (require 'info)
-  (if (fboundp 'info-initialize)
-      (info-initialize))
-  (unless INFODIR
-    (let ((infodir (car command-line-args-left))
-	  (info (wl-primary-info-file))
-	  previous)
-      (setq INFODIR
-	    (if (string= infodir "NONE")
-		(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));)
-		  (car Info-directory-list))
-	      infodir))
-      (setq command-line-args-left (cdr command-line-args-left))))
-  (princ (format "INFODIR is %s\n\n" INFODIR)))
+  (when wl-info-lang
+    (require 'info)
+    (if (fboundp 'info-initialize)
+	(info-initialize))
+    (unless INFODIR
+      (let ((infodir (car command-line-args-left))
+	    (info (wl-primary-info-file))
+	    previous)
+	(setq INFODIR
+	      (if (string= infodir "NONE")
+		  (if (setq previous
+			    (exec-installed-p info Info-directory-list
+					      COMPRESS-SUFFIX-LIST))
+		      (directory-file-name (file-name-directory previous))
+		    (car Info-directory-list))
+		infodir))
+	(setq command-line-args-left (cdr command-line-args-left))))
+    (princ (format "INFODIR is %s\n\n" INFODIR))))
 
 (defun install-wl-info ()
   (wl-texinfo-format)