hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

search ".exe" also.

Browse Source
This commit is contained in:
Kazu Yamamoto 2010-03-30 12:05:35 +09:00
parent 9d44d13ba1
commit 4aef34e352
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
elisp/ghc-func.el
View File

@ -17,10 +17,12 @@
(defun ghc-which (cmd) (defun ghc-which (cmd)
(catch 'loop (catch 'loop
(dolist (dir exec-path) (dolist (suffix '("" ".exe"))
(let ((path (expand-file-name cmd dir))) (let ((cmds (concat cmd suffix)))
(if (file-exists-p path) (dolist (dir exec-path)
(throw 'loop path)))))) (let ((path (expand-file-name cmds dir)))
(if (file-exists-p path)
(throw 'loop path))))))))
(defun ghc-uniq-lol (lol) (defun ghc-uniq-lol (lol)
(let ((hash (make-hash-table :test 'equal)) (let ((hash (make-hash-table :test 'equal))