setq-hook!: don't append setq hooks

Now settings can take effect in time for hooks that could see them.
This commit is contained in:
Henrik Lissner 2019-07-29 21:04:04 +02:00
parent c3e2ec0157
commit 99c73cea0b
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -343,7 +343,7 @@ If N and M = 1, there's no benefit to using this macro over `remove-hook'.
,(format "%s = %s" var (pp-to-string val)) ,(format "%s = %s" var (pp-to-string val))
(setq-local ,var ,val)) (setq-local ,var ,val))
collect `(remove-hook ',hook #',fn) ; ensure set order collect `(remove-hook ',hook #',fn) ; ensure set order
collect `(add-hook ',hook #',fn 'append)))) collect `(add-hook ',hook #',fn))))
(defmacro unsetq-hook! (hooks &rest vars) (defmacro unsetq-hook! (hooks &rest vars)
"Unbind setq hooks on HOOKS for VARS. "Unbind setq hooks on HOOKS for VARS.