Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Support
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
E
el-get
Project
Project
Details
Activity
Releases
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
0
Issues
0
List
Boards
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Wiki
Wiki
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
Benoit Bayol
el-get
Commits
8eda8bd5
Commit
8eda8bd5
authored
Feb 02, 2012
by
Ryan C. Thompson
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Fix el-get-register-derived-method to call el-get-register-method with keywords
parent
3a5e6aca
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
3 additions
and
11 deletions
+3
-11
el-get-core.el
el-get-core.el
+3
-11
No files found.
el-get-core.el
View file @
8eda8bd5
...
...
@@ -59,23 +59,15 @@ call for doing the named package action in the given method.")
(
put
'el-get-register-method
'lisp-indent-function
(
get
'prog1
'lisp-indent-function
))
(
defun*
el-get-register-derived-method
(
name
derived-from-name
&key
install
update
remove
install-hook
remove-hook
compute-checksum
)
(
defun*
el-get-register-derived-method
(
name
derived-from-name
&rest
keys
&key
&allow-other-keys
)
"Register the method for backend NAME.
Defaults for all optional arguments are taken from
already-defined method DERIVED-FROM-NAME."
(
unless
(
el-get-method-defined-p
derived-from-name
)
(
error
"Cannot derive new el-get method from unknown method %s"
derived-from-name
))
(
el-get-register-method
name
(
or
install
(
el-get-method
derived-from-name
:install
))
(
or
update
(
el-get-method
derived-from-name
:update
))
(
or
remove
(
el-get-method
derived-from-name
:remove
))
(
or
install-hook
(
el-get-method
derived-from-name
:install-hook
))
(
or
remove-hook
(
el-get-method
derived-from-name
:remove-hook
))
(
or
compute-checksum
(
el-get-method
derived-from-name
:compute-checksum
))))
(
apply
#'
el-get-register-method
name
(
append
keys
(
plist-get
el-get-methods
derived-from-name
))))
(
put
'el-get-register-derived-method
'lisp-indent-function
(
get
'prog2
'lisp-indent-function
))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment