comparison lisp/emacs-lisp/bytecomp.el @ 2735:6489c9da34b9

(byte-recompile-directory): If ARG is non-nil, set it to its prefix numeric value. Test for ARG being zero with eq, not zerop.

2734:a0f174dc6ac5

If the `.elc' file does not exist, normally the `.el' file is *not* compiled.
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")
  (save-some-buffers)
  (set-buffer-modified-p (buffer-modified-p)) ;Update the mode line.
  (let ((directories (list (expand-file-name directory)))
	(file-count 0)
	(dir-count 0)

	 (while files
	   (setq source (expand-file-name (car files) directory))
	   (if (and (not (member (car files) '("." ".." "RCS" "CVS")))
		    (file-directory-p source))
	       (if (or (null arg)
		       (eq arg 0)
		       (y-or-n-p (concat "Check " source "? ")))
		   (setq directories
			 (nconc directories (list source))))
	     (if (and (string-match emacs-lisp-file-regexp source)
		      (not (auto-save-file-name-p source))
		      (setq dest (byte-compile-dest-file source))
		      (if (file-exists-p dest)
			  (file-newer-than-file-p source dest)
			(and arg
			     (or (zerop arg)
				 (y-or-n-p (concat "Compile " source "? "))))))
		 (progn (byte-compile-file source)
			(setq file-count (1+ file-count))
			(if (not (eq last-dir directory))
			    (setq last-dir directory

2735:6489c9da34b9

If the `.elc' file does not exist, normally the `.el' file is *not* compiled.
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)))
	(file-count 0)
	(dir-count 0)

	 (while files
	   (setq source (expand-file-name (car files) directory))
	   (if (and (not (member (car files) '("." ".." "RCS" "CVS")))
		    (file-directory-p source))
	       (if (or (null arg)
		       (eq 0 arg)
		       (y-or-n-p (concat "Check " source "? ")))
		   (setq directories
			 (nconc directories (list source))))
	     (if (and (string-match emacs-lisp-file-regexp source)
		      (not (auto-save-file-name-p source))
		      (setq dest (byte-compile-dest-file source))
		      (if (file-exists-p dest)
			  (file-newer-than-file-p source dest)
			(and arg
			     (or (eq 0 arg)
				 (y-or-n-p (concat "Compile " source "? "))))))
		 (progn (byte-compile-file source)
			(setq file-count (1+ file-count))
			(if (not (eq last-dir directory))
			    (setq last-dir directory