Mercurial > emacs
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 |