gitback/el-get
1
0
Fork 0
mirror of https://github.com/dimitri/el-get.git synced 2024-09-29 04:58:53 +08:00
Code Issues Packages Projects Releases Wiki Activity

Merge pull request #511 from DarwinAwardWinner/minor-refactor

Browse Source 
Minor refactor
This commit is contained in:
Julien Danjou 2012-01-16 01:17:23 -08:00
commit 13c893b38b
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
el-get-core.el
View File

@ -290,6 +290,7 @@ Any other property will get put into the process object.
(condition-case err
(if commands
(let* ((c (car commands))
(next (cdr commands))
(cdir (plist-get c :default-directory))
(cname (plist-get c :command-name))
(cbuf (plist-get c :buffer-name))
@ -316,8 +317,7 @@ Any other property will get put into the process object.
(dummy (message "el-get is waiting for %S to complete" cname))
(status (apply startf program infile cbuf t args))
(message (plist-get c :message))
(errorm (plist-get c :error))
(next (cdr commands)))
(errorm (plist-get c :error)))
(when el-get-verbose
(message "%S" (with-current-buffer cbuf (buffer-string))))
(if (eq 0 status)
@ -338,7 +338,7 @@ Any other property will get put into the process object.
(process-put proc :el-get-sources el-get-sources)
(process-put proc :el-get-package package)
(process-put proc :el-get-final-func final-func)
(process-put proc :el-get-start-process-list (cdr commands))
(process-put proc :el-get-start-process-list next)
(when stdin
(process-send-string proc (prin1-to-string stdin))
(process-send-eof proc))

2
el-get-custom.el
View File

@ -77,7 +77,7 @@ definition provided by `el-get' recipes locally.
The name of the package. It can be different from the name of
the directory where the package is stored (after a `git
clone' for example, in which case a symlink will be created.
clone' for example), in which case a symlink will be created.
:depends