comparison lisp/emacs-lisp/bytecomp.el @ 111290:33f46ffe4dad

* lisp/emacs-lisp/bytecomp.el (byte-recompile-file): Fix previous change.
author Glenn Morris <rgm@gnu.org>
date Sun, 31 Oct 2010 19:55:12 -0700
parents a8ba29b9ad19
children e282e3411e9a
comparison
equal deleted inserted replaced
111289:7579acd0b490 111290:33f46ffe4dad
1629 (or (eq 0 bytecomp-arg) 1629 (or (eq 0 bytecomp-arg)
1630 (y-or-n-p (concat "Compile " 1630 (y-or-n-p (concat "Compile "
1631 bytecomp-filename "? ")))) 1631 bytecomp-filename "? "))))
1632 (progn 1632 (progn
1633 (if (and noninteractive (not byte-compile-verbose)) 1633 (if (and noninteractive (not byte-compile-verbose))
1634 (message "Compiling %s..." bytecomp-source)) 1634 (message "Compiling %s..." bytecomp-filename))
1635 (byte-compile-file bytecomp-filename load)) 1635 (byte-compile-file bytecomp-filename load))
1636 (when load (load bytecomp-filename)) 1636 (when load (load bytecomp-filename))
1637 'no-byte-compile))) 1637 'no-byte-compile)))
1638 1638
1639 ;;;###autoload 1639 ;;;###autoload
4347 byte-compile-variable-ref)))) 4347 byte-compile-variable-ref))))
4348 nil) 4348 nil)
4349 4349
4350 (run-hooks 'bytecomp-load-hook) 4350 (run-hooks 'bytecomp-load-hook)
4351 4351
4352 ;; arch-tag: 9c97b0f0-8745-4571-bfc3-8dceb677292a
4353 ;;; bytecomp.el ends here 4352 ;;; bytecomp.el ends here