[Top][All Lists]

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

[elpa] master 3f27e25 207/399: counsel.el (counsel-compile): Don't squas

From: Oleh Krehel
Subject: [elpa] master 3f27e25 207/399: counsel.el (counsel-compile): Don't squash default-directory
Date: Sat, 20 Jul 2019 14:57:24 -0400 (EDT)

branch: master
commit 3f27e25d3b61aaf01ddaf7b998b7e656129f0b9b
Author: Alex Bennée <address@hidden>
Commit: Oleh Krehel <address@hidden>

    counsel.el (counsel-compile): Don't squash default-directory
    We may not have defined a blddir, especially if the user has manually
    entered the make invocation. If blddir is nil then just keep
    default-directory as is.
    Fixes #2030
 counsel.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/counsel.el b/counsel.el
index 395a99d..3580e2d 100644
--- a/counsel.el
+++ b/counsel.el
@@ -5428,7 +5428,7 @@ specified by the `blddir' property."
       (when (get-char-property 0 'cmd cmd)
         (setq cmd (substring-no-properties
                    cmd 0 (next-single-property-change 0 'cmd cmd))))
-      (let ((default-directory blddir)
+      (let ((default-directory (or blddir default-directory))
             (compilation-environment bldenv))
         ;; No need to specify `:history' because of this hook.
         (add-hook 'compilation-start-hook #'counsel-compile--update-history)

reply via email to

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