help-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: compile and the current directory


From: Kevin Rodgers
Subject: Re: compile and the current directory
Date: Fri, 16 Jan 2004 11:40:03 -0700
User-agent: Mozilla/5.0 (X11; U; SunOS i86pc; en-US; rv:0.9.4.1) Gecko/20020406 Netscape6/6.2.2

Alfred M. Szmidt wrote:

--- compile.el~ Sun Nov 23 21:57:47 2003
+++ compile.el  Fri Jan 16 12:20:32 2004
...
@@ -587,8 +591,13 @@
 original use.  Otherwise, it recompiles using `compile-command'."
   (interactive)
   (save-some-buffers (not compilation-ask-about-save) nil)
-  (apply 'compile-internal (or compilation-arguments
-                             `(,(eval compile-command) "No more errors"))))
+  (let (olddir default-directory)
+    (unless (eq compilation-directory nil)
+      (setq default-directory compilation-directory))
+    (apply 'compile-internal (or compilation-arguments
+                                `(,(eval compile-command) "No more errors")))
+    (setq default-directory olddir)))
+

This is a little bit cleaner:

(let ((default-directory (or compilation-directory default-directory)))
  (apply 'compile-internal ...))

--
Kevin Rodgers



reply via email to

[Prev in Thread] Current Thread [Next in Thread]