X-Git-Url: https://git.cworth.org/git?a=blobdiff_plain;f=emacs%2Fmake-deps.el;h=8c9e0a27e988abf1e1da9d1230ea702c856bcdf7;hb=2f874fb2cc65e3486a47238f039aa80b990f8150;hp=24c1a45745821cc1840f9cd404e6542d66e3dedb;hpb=0cf457b73b4b666314d1a09ac3e31bd0fa2346a6;p=notmuch
diff --git a/emacs/make-deps.el b/emacs/make-deps.el
index 24c1a457..8c9e0a27 100644
--- a/emacs/make-deps.el
+++ b/emacs/make-deps.el
@@ -1,4 +1,4 @@
-;; make-deps.el --- compute make dependencies for Elisp sources
+;;; make-deps.el --- compute make dependencies for Elisp sources -*- lexical-binding: t -*-
;;
;; Copyright © Austin Clements
;;
@@ -15,7 +15,7 @@
;; 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
@@ -23,7 +23,6 @@
(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))
@@ -37,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