colonelpanic/dotfiles
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Clean up try-call-process

Browse Source
This commit is contained in:
Ivan Malison 2016-08-17 14:58:39 -07:00
parent 433be291d9
commit 52ff09d90e
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
dotfiles/emacs.d/README.org
View File

@ -125,16 +125,12 @@ The following implementation uses eshell's ~eshell-search-path~ to find the bina
#+END_SRC #+END_SRC
This makes it so that we always try to call-process instead of shell-command-to-sting. It may cause undesireable behavior. This makes it so that we always try to call-process instead of shell-command-to-sting. It may cause undesireable behavior.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(defvar imalison:shell-command-count 0)
(defvar imalison:call-process-count 0)
(defun imalison:try-call-process (command) (defun imalison:try-call-process (command)
(incf imalison:shell-command-count)
(let ((call-process-args (let ((call-process-args
(imalison:get-call-process-args-from-shell-command command))) (imalison:get-call-process-args-from-shell-command command)))
(if call-process-args (if call-process-args
(progn (incf imalison:call-process-count)
(apply 'imalison:call-process-to-string call-process-args)) (apply 'imalison:call-process-to-string call-process-args))))
(message "failed with: %s" command))))
(advice-add 'shell-command-to-string :before-until 'imalison:try-call-process) (advice-add 'shell-command-to-string :before-until 'imalison:try-call-process)
#+END_SRC #+END_SRC