awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-03 12:27:26 -05:00
Code Issues Packages Projects Releases Wiki Activity

Add __PACKAGE__ support to add-hook!

Browse Source
This commit is contained in:
Henrik Lissner
2017-02-03 08:02:50 -05:00
parent 194490680a
commit d85eff3397
1 changed files with 7 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
core/core-lib.el
View File

@ -31,10 +31,15 @@ Examples:
(add-hook! some-mode '(enable-something and-another)) (add-hook! some-mode '(enable-something and-another))
(add-hook! '(one-mode-hook second-mode-hook) 'enable-something) (add-hook! '(one-mode-hook second-mode-hook) 'enable-something)
(add-hook! (one-mode second-mode) '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)) (declare (indent defun) (debug t))
(unless func-or-forms (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)) (let* ((val (car func-or-forms))
(quoted-p (eq (car-safe hook) 'quote)) (quoted-p (eq (car-safe hook) 'quote))
(hook (if quoted-p (cadr hook) hook)) (hook (if quoted-p (cadr hook) hook))