- (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))))