procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(byte-recompile-directory): If ARG is non-nil, set it to its prefix

Browse source 
numeric value.  Test for ARG being zero with eq, not zerop.
This commit is contained in:
Roland McGrath 1993-05-10 00:49:06 +00:00
parent 32de648411
commit 0dea0bbe34
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/emacs-lisp/bytecomp.el
View file

@ -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 for each such `.el' file, whether to compile it. Prefix argument 0 means
don't ask and compile the file anyway." don't ask and compile the file anyway."
(interactive "DByte recompile directory: \nP") (interactive "DByte recompile directory: \nP")
(if arg
(setq arg (prefix-numeric-value arg)))
(save-some-buffers) (save-some-buffers)
(set-buffer-modified-p (buffer-modified-p)) ;Update the mode line. (set-buffer-modified-p (buffer-modified-p)) ;Update the mode line.
(let ((directories (list (expand-file-name directory))) (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"))) (if (and (not (member (car files) '("." ".." "RCS" "CVS")))
(file-directory-p source)) (file-directory-p source))
(if (or (null arg) (if (or (null arg)
(eq arg 0) (eq 0 arg)
(y-or-n-p (concat "Check " source "? "))) (y-or-n-p (concat "Check " source "? ")))
(setq directories (setq directories
(nconc directories (list source)))) (nconc directories (list source))))
@ -1092,7 +1094,7 @@ don't ask and compile the file anyway."
(if (file-exists-p dest) (if (file-exists-p dest)
(file-newer-than-file-p source dest) (file-newer-than-file-p source dest)
(and arg (and arg
(or (zerop arg) (or (eq 0 arg)
(y-or-n-p (concat "Compile " source "? ")))))) (y-or-n-p (concat "Compile " source "? "))))))
(progn (byte-compile-file source) (progn (byte-compile-file source)
(setq file-count (1+ file-count)) (setq file-count (1+ file-count))