Mercurial > emacs

diff lisp/emacs-lisp/lisp-mode.el @ 111268:a8ba29b9ad19

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* lisp/emacs-lisp/bytecomp.el (byte-recompile-file): New fun. (byte-recompile-directory): * lisp/emacs-lisp/lisp-mode.el (emacs-lisp-byte-compile-and-load): * cedet/ede/proj-elisp.el (project-compile-target): * cedet/semantic/ede-grammar.el (project-compile-target): Use `byte-recompile-file'.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Sun, 31 Oct 2010 15:25:39 -0400
parents c87f89486bb7
children 249a1455856a
line wrap: on
line diff
--- a/lisp/emacs-lisp/lisp-mode.el	Sun Oct 31 19:38:16 2010 +0100
+++ b/lisp/emacs-lisp/lisp-mode.el	Sun Oct 31 15:25:39 2010 -0400
@@ -407,10 +407,7 @@
   (if (and (buffer-modified-p)
 	   (y-or-n-p (format "Save buffer %s first? " (buffer-name))))
       (save-buffer))
-  (let ((compiled-file-name (byte-compile-dest-file buffer-file-name)))
-    (if (file-newer-than-file-p compiled-file-name buffer-file-name)
-	(load-file compiled-file-name)
-      (byte-compile-file buffer-file-name t))))
+  (byte-recompile-file buffer-file-name nil 0 t))
 
 (defcustom emacs-lisp-mode-hook nil
   "Hook run when entering Emacs Lisp mode."