emacs-elpa-diffs
[Top][All Lists]
Advanced

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

[elpa] master af5f097 108/348: counsel.el (counsel-locate-action-extern)


From: Oleh Krehel
Subject: [elpa] master af5f097 108/348: counsel.el (counsel-locate-action-extern): Make interactive
Date: Sat, 8 Apr 2017 11:03:37 -0400 (EDT)

branch: master
commit af5f09766945f8377f147b5092e124e8edcf4539
Author: justbur <address@hidden>
Commit: Oleh Krehel <address@hidden>

    counsel.el (counsel-locate-action-extern): Make interactive
    
    * counsel.el (counsel-find-file-extern): Add as alias for the locate
      action for discoverability
    
    Fixes #605
---
 counsel.el | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/counsel.el b/counsel.el
index abf390e..27754f4 100644
--- a/counsel.el
+++ b/counsel.el
@@ -1377,6 +1377,7 @@ string - the full shell command to run."
 
 (defun counsel-locate-action-extern (x)
   "Use xdg-open shell command on X."
+  (interactive (list (read-file-name "File: ")))
   (call-process shell-file-name nil
                 nil nil
                 shell-command-switch
@@ -1386,6 +1387,8 @@ string - the full shell command to run."
                           "xdg-open")
                         (shell-quote-argument x))))
 
+(defalias 'counsel-find-file-extern 'counsel-locate-action-extern)
+
 (declare-function dired-jump "dired-x")
 
 (defun counsel-locate-action-dired (x)



reply via email to

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