gwh/slackbuilds
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Properly quote hook names.

Browse source
This commit is contained in:
Nathan Weizenbaum 2010-08-17 16:50:47 -07:00
parent 5888c37335
commit dc7dc90808
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
magit.el
View file

@ -1318,7 +1318,7 @@ error otherwise."
clauses)
,@(when opname
`(((run-hook-with-args-until-success
,(make-symbol (format "magit-%s-action-hook" opname)))
',(make-symbol (format "magit-%s-action-hook" opname)))
t)
((not ,type)
(error "Nothing to %s here" ,opname))
@ -1342,7 +1342,7 @@ the actions."
(let ((section (car head))
(info (cadr head))
(type (caddr head)))
`(add-hook ,(make-symbol (format "magit-%s-action-hook" type))
`(add-hook ',(make-symbol (format "magit-%s-action-hook" type))
(lambda ()
,(macroexpand
;; Don't pass in the opname so we don't recursively