projects
/
elisp
/
wanderlust.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* wl-summary.el (wl-summary-save-view): Removed unused argument.
[elisp/wanderlust.git]
/
WL-MK
diff --git
a/WL-MK
b/WL-MK
index
8872b03
..
e6462bf
100644
(file)
--- a/
WL-MK
+++ b/
WL-MK
@@
-28,7
+28,7
@@
(defconst wl-en-info "wl.info")
(defconst wl-en-texi "wl.texi")
(defconst wl-en-info "wl.info")
(defconst wl-en-texi "wl.texi")
-(defvar wl-info-lang "ja"
+(defvar wl-info-lang '("ja" "en")
"The language of info file (\"ja\" or \"en\").")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
"The language of info file (\"ja\" or \"en\").")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@
-96,7
+96,6
@@
(setq load-path (cons (expand-file-name ".") load-path))
(setq load-path (cons (expand-file-name WLDIR)
(cons (expand-file-name ELMODIR) load-path)))
(setq load-path (cons (expand-file-name ".") load-path))
(setq load-path (cons (expand-file-name WLDIR)
(cons (expand-file-name ELMODIR) load-path)))
- (setq wl-icon-dir (expand-file-name ICONDIR))
;; load custom file if exists. `WL-CFG.el' override for committer.
(load "./WL-CFG" t nil nil)
;; load-path
;; load custom file if exists. `WL-CFG.el' override for committer.
(load "./WL-CFG" t nil nil)
;; load-path
@@
-119,10
+118,7
@@
(if (string= pixmap-dir "NONE")
(if packagedir
(expand-file-name "etc/wl/" packagedir)
(if (string= pixmap-dir "NONE")
(if packagedir
(expand-file-name "etc/wl/" packagedir)
- (if (or (featurep 'xemacs)
- (and (boundp 'emacs-major-version)
- (>= emacs-major-version 21)))
- (expand-file-name "wl/icons/" data-directory)))
+ (expand-file-name "wl/icons/" data-directory))
pixmap-dir)))
(if PIXMAPDIR
(princ (format "PIXMAPDIR is %s\n" PIXMAPDIR)))
pixmap-dir)))
(if PIXMAPDIR
(princ (format "PIXMAPDIR is %s\n" PIXMAPDIR)))
@@
-210,7
+206,14
@@
(if (not (file-directory-p PIXMAPDIR))
(make-directory PIXMAPDIR t))
(let* ((case-fold-search t)
(if (not (file-directory-p PIXMAPDIR))
(make-directory PIXMAPDIR t))
(let* ((case-fold-search t)
- (icons (directory-files ICONDIR t "\\.x[bp]m$"))
+ (icons (directory-files ICONDIR t
+ (cond ((featurep 'xemacs)
+ "\\.x[bp]m$")
+ ((and (boundp 'emacs-major-version)
+ (>= emacs-major-version 21))
+ "\\.img$\\|\\.x[bp]m$")
+ ((featurep 'mule)
+ "\\.img$\\|\\.xbm$"))))
icon dest)
(while icons
(setq icon (car icons)
icon dest)
(while icons
(setq icon (car icons)