diff options
author | Satoru Takeuchi <satoru.takeuchi@gmail.com> | 2012-03-10 18:04:40 +0900 |
---|---|---|
committer | Satoru Takeuchi <satoru.takeuchi@gmail.com> | 2012-03-10 18:04:40 +0900 |
commit | 6df9bfe1e5aba3f310279e302892207de9123ef1 (patch) | |
tree | d00a2a74b059a770bd21fd3953b6fd2d71bd9947 | |
parent | 271fc80d9f0c5793b6c53f055dc0c365ee78ab85 (diff) | |
download | quilt-6df9bfe1e5aba3f310279e302892207de9123ef1.tar.gz |
quilt-el: be aware of QUILT_PATCHES
-rw-r--r-- | lib/quilt.el | 16 |
1 files changed, 14 insertions, 2 deletions
diff --git a/lib/quilt.el b/lib/quilt.el index b2bda94..fbdd623 100644 --- a/lib/quilt.el +++ b/lib/quilt.el @@ -20,8 +20,20 @@ (if (> (call-process "quilt" nil nil nil "applied") 0) 1)) (defun quilt-patches-directory () - (or (getenv "QUILT_PATCHES") - "patches")) + (or (save-excursion + (set-buffer (generate-new-buffer " *cmd")) + (shell-command + (concat "test -f ~/.quiltrc && . ~/.quiltrc ;" + "echo -n $QUILT_PATCHES") + t) + (unwind-protect + (let ((v (buffer-string))) + (if (string= "" (buffer-string)) + nil + v)) + (kill-buffer (current-buffer)))) + (or (getenv "QUILT_PATCHES") + "patches"))) (defun quilt-find-dir (fn) "find the top level dir for quilt from fn" |