1 new commit in XEmacs:
https://bitbucket.org/xemacs/xemacs/changeset/7fa8667cdaa7/
changeset: 7fa8667cdaa7
user: sperber
date: 2012-04-23 10:06:39
summary: Imitate GNU Emacs API for `batch-byte-recompile-directory'.
2012-04-23 Michael Sperber <mike(a)xemacs.org>
* bytecomp.el (batch-byte-recompile-directory): Accept an optional
argument that's passed on to `byte-recompile-directory' as the
prefix argument, thus imitating GNU Emacs's API.
affected #: 2 files
diff -r d026b665014fda7a8d6148e8cc8fb9d046bff7f7 -r
7fa8667cdaa732afd502dd72f088e5f3d9e00478 lisp/ChangeLog
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2012-04-23 Michael Sperber <mike(a)xemacs.org>
+
+ * bytecomp.el (batch-byte-recompile-directory): Accept an optional
+ argument that's passed on to `byte-recompile-directory' as the
+ prefix argument, thus imitating GNU Emacs's API.
+
2012-04-07 Aidan Kehoe <kehoea(a)parhasard.net>
Remove some utility functions from the global namespace, it's more
diff -r d026b665014fda7a8d6148e8cc8fb9d046bff7f7 -r
7fa8667cdaa732afd502dd72f088e5f3d9e00478 lisp/bytecomp.el
--- a/lisp/bytecomp.el
+++ b/lisp/bytecomp.el
@@ -4960,10 +4960,15 @@
(batch-byte-recompile-directory))
;;;###autoload
-(defun batch-byte-recompile-directory ()
+(defun batch-byte-recompile-directory (&optional arg)
"Runs `byte-recompile-directory' on the dirs remaining on the command line.
Must be used only with `-batch', and kills Emacs on completion.
-For example, invoke `xemacs -batch -f batch-byte-recompile-directory .'."
+For example, invoke `xemacs -batch -f batch-byte-recompile-directory .'.
+
+The optional argument is passed to `byte-recompile-directory' as the
+prefix argument; see the documentation there for its meaing.
+In particular, passing 0 means to compile files for which no `.elc' files
+exist."
;; command-line-args-left is what is left of the command line (startup.el)
(defvar command-line-args-left) ;Avoid 'free variable' warning
(if (not noninteractive)
@@ -4972,7 +4977,7 @@
(setq command-line-args-left '(".")))
(let ((byte-recompile-directory-ignore-errors-p t))
(while command-line-args-left
- (byte-recompile-directory (car command-line-args-left))
+ (byte-recompile-directory (car command-line-args-left) arg)
(setq command-line-args-left (cdr command-line-args-left))))
(kill-emacs 0))
Repository URL:
https://bitbucket.org/xemacs/xemacs/
--
This is a commit notification from
bitbucket.org. You are receiving
this because you have the service enabled, addressing the recipient of
this email.
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://lists.xemacs.org/mailman/listinfo/xemacs-patches