[Top][All Lists]

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

[elpa] master 5f99723 019/184: counsel.el (counsel--async-last-command):

From: Oleh Krehel
Subject: [elpa] master 5f99723 019/184: counsel.el (counsel--async-last-command): Add for ease of debugging
Date: Wed, 16 Oct 2019 13:14:41 -0400 (EDT)

branch: master
commit 5f997232118388b173c2c0233e062c8865580294
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>

    counsel.el (counsel--async-last-command): Add for ease of debugging
 counsel.el | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/counsel.el b/counsel.el
index 9221b76..119b642 100644
--- a/counsel.el
+++ b/counsel.el
@@ -188,6 +188,9 @@ descriptions.")
 (defvar counsel-async-ignore-re-alist nil
   "An alist of regexp matching candidates to ignore in 
+(defvar counsel--async-last-command nil
+  "Store the last command ran by `counsel--async-command'.")
 (defun counsel--async-command (cmd &optional sentinel filter name)
   "Start and return new counsel process by calling CMD.
 CMD can be either a shell command as a string, or a list of the
@@ -201,6 +204,7 @@ respectively."
   (setq name (or name " *counsel*"))
   (when (get-buffer name)
     (kill-buffer name))
+  (setq counsel--async-last-command cmd)
   (let* ((buf (get-buffer-create name))
          (proc (if (listp cmd)
                    (apply #'start-file-process name buf cmd)

reply via email to

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