mirror of
https://github.com/dimitri/el-get.git
synced 2024-09-29 13:08:51 +08:00
Code fixes in el-get-status.el
This commit is contained in:
parent
f31b503ed1
commit
8aea873464
|
@ -161,7 +161,7 @@
|
|||
"Evaluate BODY with `el-get-sources' bound to recipes from status file."
|
||||
`(let ((el-get-sources (el-get-package-status-recipes)))
|
||||
(progn ,@body)))
|
||||
(put 'el-get-with-status-recipes 'lisp-indent-function
|
||||
(put 'el-get-with-status-sources 'lisp-indent-function
|
||||
(get 'progn 'lisp-indent-function))
|
||||
|
||||
(defvar el-get-status-recipe-updatable-properties
|
||||
|
@ -216,8 +216,8 @@ updated recipe is always saved to the status file."
|
|||
;; the recipe file.
|
||||
(loop for src in el-get-sources
|
||||
when (string= package-or-source (el-get-source-name src))
|
||||
if (symbolp src) (list :name src)
|
||||
else src)))
|
||||
if (symbolp src) return (list :name src)
|
||||
else return src)))
|
||||
(pkg (el-get-as-symbol (el-get-source-name source)))
|
||||
(cached-recipe (or (el-get-read-package-status-recipe
|
||||
pkg
|
||||
|
@ -263,7 +263,7 @@ updated recipe is always saved to the status file."
|
|||
(plist-put (cdr (assq package package-status-alist))
|
||||
'recipe updated-recipe)
|
||||
;; Else save to status file
|
||||
(el-get-save-package-status pkg "installed" updated-recipe)))
|
||||
(el-get-save-package-status pkg "installed" updated-recipe))))
|
||||
(el-get-verbose-message "No properties to update on package %s" pkg))))
|
||||
|
||||
(provide 'el-get-status)
|
||||
|
|
Loading…
Reference in New Issue
Block a user