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