ui/modeline: make set-modeline-hook! append to hook

So later invokations override earlier ones.
This commit is contained in:
Henrik Lissner 2019-12-17 15:20:08 -05:00
parent c0302e79aa
commit 980fa74630
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -144,7 +144,7 @@ If DEFAULT is non-nil, apply to all future buffers. Modelines are defined with
See `def-modeline!' on how modelines are defined." See `def-modeline!' on how modelines are defined."
(let ((fn (intern (format "+modeline-set-%s-format-h" name)))) (let ((fn (intern (format "+modeline-set-%s-format-h" name))))
(dolist (hook (doom-enlist hooks)) (dolist (hook (doom-enlist hooks))
(add-hook hook fn)))) (add-hook hook fn 'append))))
(defmacro def-modeline! (name lhs rhs) (defmacro def-modeline! (name lhs rhs)
"Define a modeline format by NAME. "Define a modeline format by NAME.