commit/XEmacs: sperber: Imitate GNU Emacs API for `batch-byte-recompile-directory'.

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&gt; * 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&gt; + + * 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&gt; 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