[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#22091: [PATCH 1/2] * lisp/env.el: Add (whereis-command)
From: |
lu4nx |
Subject: |
bug#22091: [PATCH 1/2] * lisp/env.el: Add (whereis-command) |
Date: |
Fri, 4 Dec 2015 14:25:12 +0800 |
---
lisp/env.el | 7 +++++++
1 file changed, 7 insertions(+)
diff --git a/lisp/env.el b/lisp/env.el
index 3966ab1..a16f534 100644
--- a/lisp/env.el
+++ b/lisp/env.el
@@ -218,6 +218,13 @@ in the environment list of the selected frame."
(message "%s" (if value value "Not set")))
value))
+(defun whereis-command (command)
+ (let ((paths (split-string (getenv "PATH") ":")))
+ (remove-if-not
+ (lambda (path)
+ (file-exists-p (format "%s/%s" path command)))
+ paths)))
+
(provide 'env)
;;; env.el ends here
--
2.5.0
- bug#22091: [PATCH 1/2] * lisp/env.el: Add (whereis-command),
lu4nx <=