From d85eff3397903813f3ef83172ab0cecea8e1a109 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Fri, 3 Feb 2017 08:02:50 -0500 Subject: [PATCH] Add __PACKAGE__ support to add-hook! --- core/core-lib.el | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/core/core-lib.el b/core/core-lib.el index 119cd2ce7..f437e4298 100644 --- a/core/core-lib.el +++ b/core/core-lib.el @@ -31,10 +31,15 @@ Examples: (add-hook! some-mode '(enable-something and-another)) (add-hook! '(one-mode-hook second-mode-hook) 'enable-something) (add-hook! (one-mode second-mode) 'enable-something) - (add-hook! (one-mode second-mode) (setq v 5) (setq a 2))" + (add-hook! (one-mode second-mode) (setq v 5) (setq a 2)) + +If HOOK is omitted, then default to `__PACKAGE__' to determine HOOK." (declare (indent defun) (debug t)) (unless func-or-forms - (error "add-hook!: FUNC-OR-FORMS is empty")) + (unless (bound-and-true-p __PACKAGE__) + (error "add-hook!: FUNC-OR-FORMS is empty")) + (setq func-or-forms hook + hook __PACKAGE__)) (let* ((val (car func-or-forms)) (quoted-p (eq (car-safe hook) 'quote)) (hook (if quoted-p (cadr hook) hook))