From 3825ce03dec018539b2c7e4619494e288895eb94 Mon Sep 17 00:00:00 2001 From: kaoru Date: Thu, 5 Jun 2003 22:17:11 +0000 Subject: [PATCH] * WL-MK: Remove comment out code. Fix indent. --- ChangeLog | 4 ++++ WL-MK | 17 +++++++---------- 2 files changed, 11 insertions(+), 10 deletions(-) diff --git a/ChangeLog b/ChangeLog index 68c0472..bc75d74 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2003-06-05 TAKAHASHI Kaoru + + * WL-MK: Remove comment out code. Fix indent. + 2003-04-08 Yoichi NAKAYAMA * 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)))) -- 1.7.10.4