diff options
| author | Roland McGrath <roland@gnu.org> | 1993-05-10 00:49:06 +0000 |
|---|---|---|
| committer | Roland McGrath <roland@gnu.org> | 1993-05-10 00:49:06 +0000 |
| commit | 0dea0bbe3441a352db75e559c44ebb3ce91fca52 (patch) | |
| tree | 045d0b4f10558e0ac3e96412d769fd724f43ef6f /lisp/emacs-lisp | |
| parent | 32de648411142bd0b6d473b6e4a8c1f941ae94ad (diff) | |
| download | emacs-0dea0bbe3441a352db75e559c44ebb3ce91fca52.tar.gz emacs-0dea0bbe3441a352db75e559c44ebb3ce91fca52.tar.bz2 emacs-0dea0bbe3441a352db75e559c44ebb3ce91fca52.zip | |
(byte-recompile-directory): If ARG is non-nil, set it to its prefix
numeric value. Test for ARG being zero with eq, not zerop.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index c599fbcf9b2..7d686b10057 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -1065,6 +1065,8 @@ But a prefix argument (optional second arg) means ask user, for each such `.el' file, whether to compile it. Prefix argument 0 means don't ask and compile the file anyway." (interactive "DByte recompile directory: \nP") + (if arg + (setq arg (prefix-numeric-value arg))) (save-some-buffers) (set-buffer-modified-p (buffer-modified-p)) ;Update the mode line. (let ((directories (list (expand-file-name directory))) @@ -1082,7 +1084,7 @@ don't ask and compile the file anyway." (if (and (not (member (car files) '("." ".." "RCS" "CVS"))) (file-directory-p source)) (if (or (null arg) - (eq arg 0) + (eq 0 arg) (y-or-n-p (concat "Check " source "? "))) (setq directories (nconc directories (list source)))) @@ -1092,7 +1094,7 @@ don't ask and compile the file anyway." (if (file-exists-p dest) (file-newer-than-file-p source dest) (and arg - (or (zerop arg) + (or (eq 0 arg) (y-or-n-p (concat "Compile " source "? ")))))) (progn (byte-compile-file source) (setq file-count (1+ file-count)) |