X-Git-Url: https://git.notmuchmail.org/git?p=notmuch;a=blobdiff_plain;f=emacs%2Fmake-deps.el;h=91f4ef3dd08c5f8bd757a2423c1afc15693a2945;hp=a1cd731fb08e46aa924a4559bcbf5afa35d16377;hb=73b8f0b8d71af395667022395b6d6bb692c3aaf2;hpb=68720286ebc5bf53c2b89a3486b7fcd691443783
diff --git a/emacs/make-deps.el b/emacs/make-deps.el
index a1cd731f..91f4ef3d 100644
--- a/emacs/make-deps.el
+++ b/emacs/make-deps.el
@@ -15,13 +15,14 @@
;; General Public License for more details.
;;
;; You should have received a copy of the GNU General Public License
-;; along with Notmuch. If not, see .
+;; along with Notmuch. If not, see .
;;
;; Authors: Austin Clements
+;;; Code:
+
(defun batch-make-deps ()
"Invoke `make-deps' for each file on the command line."
-
(setq debug-on-error t)
(dolist (file command-line-args-left)
(let ((default-directory command-line-default-directory))
@@ -35,8 +36,8 @@
This prints make dependencies to `standard-output' based on the
top-level `require' expressions in the current buffer. Paths in
rules will be given relative to DIR, or `default-directory'."
-
- (setq dir (or dir default-directory))
+ (unless dir
+ (setq dir default-directory))
(save-excursion
(goto-char (point-min))
(condition-case nil
@@ -64,3 +65,5 @@ rules will be given relative to DIR, or `default-directory'."
(file-name-sans-extension
(file-relative-name fname dir)))))))))
(end-of-file nil))))
+
+;;; make-deps.el ends here