From dc7dc90808ee1fdb943247e4c79691d83228d108 Mon Sep 17 00:00:00 2001 From: Nathan Weizenbaum Date: Tue, 17 Aug 2010 16:50:47 -0700 Subject: [PATCH] Properly quote hook names. --- magit.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/magit.el b/magit.el index b0a2f99c..c4969850 100644 --- a/magit.el +++ b/magit.el @@ -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