dbo/.emacs.d
dbo
/
.emacs.d
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

[EShell] Don’t barf if git commands cannot be found

This commit is contained in:
Daniel - 2018-01-24 19:29:42 +01:00
parent e7ab32951b
commit 46400826eb
Signed by: dbo
GPG Key ID: 4F63DB96D45AA9C6
1 changed files with 12 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
site-lisp/db-eshell.el
View File

@ -62,17 +62,18 @@
(defun pcmpl-git-commands () (defun pcmpl-git-commands ()
"Return the most common git commands by parsing the git output." "Return the most common git commands by parsing the git output."
(with-temp-buffer (with-temp-buffer
(call-process "git" nil (current-buffer) nil "help" "--all") (if (not (zerop (call-process "git" nil (current-buffer) nil "help" "--all")))
(goto-char 0) (warn "Cannot call `git’ to obtain list of available commands; completion won’t be available.")
(search-forward "available git commands in") (goto-char 0)
(let (commands) (search-forward "available git commands in")
(while (re-search-forward (let (commands)
"^[[:blank:]]+\\([[:word:]-.]+\\)[[:blank:]]*\\([[:word:]-.]+\\)?" (while (re-search-forward
nil t) "^[[:blank:]]+\\([[:word:]-.]+\\)[[:blank:]]*\\([[:word:]-.]+\\)?"
(push (match-string 1) commands) nil t)
(when (match-string 2) (push (match-string 1) commands)
(push (match-string 2) commands))) (when (match-string 2)
(sort commands #'string<)))) (push (match-string 2) commands)))
(sort commands #'string<)))))
(defconst pcmpl-git-commands (pcmpl-git-commands) (defconst pcmpl-git-commands (pcmpl-git-commands)
"List of `git' commands.") "List of `git' commands.")