(defconst wl-news-news-file '(("en" "NEWS")
("ja" "NEWS.ja")))
(defconst wl-news-search-regexp
- '(("en" "^\\* Changes in \\([0-9.]*\\) from")
- ("ja" "^\\* [0-9.]* \e$B$+$i\e(B \\([0-9.]*\\) \e$B$X$NJQ99E@\e(B")))
+ '(("en" "^\\* Changes in \\([0-9.]*\\) from [0-9.]+x?")
+ ("ja" "^\\* [0-9.]+x? \e$B$+$i\e(B \\([0-9.]*\\) \e$B$X$NJQ99E@\e(B")))
(defconst wl-news-filename "wl-news.el")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
objs))
+(defun wl-examine-modules ()
+ "Examine wl modules should be byte-compile'd."
+ (config-wl-package-subr)
+ (make-wl-news)
+ (dolist (module modules-alist)
+ (dolist (filename (cdr module))
+ (princ (format "%s/%s.elc " (car module) filename)))))
+
+
(defun compile-wl-package ()
(config-wl-package)
(make-wl-news)
(defun wl-texinfo-format-file (lang)
(require 'wl-vars) ;; for 'wl-cs-local
(or (wl-texinfo-check-newer lang)
- (let (obuf
- (undo-outer-limit (eval '(lsh -1 -1))))
+ (let (obuf)
;; Support old texinfmt.el
(require 'ptexinfmt (expand-file-name "ptexinfmt.el" UTILSDIR))
(find-file (expand-file-name (wl-texinfo-texi-file lang) DOCDIR))