awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-17 13:33:36 -05:00
Code Issues Packages Projects Releases Wiki Activity

Don't suppress user-error errors

Browse Source 
Refactor doom-run-hooks warning.
This commit is contained in:
Henrik Lissner
2021-05-14 15:02:07 -04:00
parent 755d4c7b15
commit 9e5ba5fd6c
1 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
core/core.el
View File

@@ -516,8 +516,6 @@ Meant to be used with `run-hook-wrapped'."
(doom-log "Running doom hook: %s" hook) (doom-log "Running doom hook: %s" hook)
(condition-case-unless-debug e (condition-case-unless-debug e
(funcall hook) (funcall hook)
(user-error
(warn "Warning: %s" (error-message-string e)))
(error (error
(signal 'doom-hook-error (list hook e)))) (signal 'doom-hook-error (list hook e))))
;; return nil so `run-hook-wrapped' won't short circuit ;; return nil so `run-hook-wrapped' won't short circuit
@@ -531,7 +529,11 @@ Is used as advice to replace `run-hooks'."
(run-hook-wrapped hook #'doom-run-hook) (run-hook-wrapped hook #'doom-run-hook)
(doom-hook-error (doom-hook-error
(unless debug-on-error (unless debug-on-error
(lwarn hook :error "Error running hook %S because: %s" (cadr e) (caddr e))) (lwarn hook :error "Error running hook %S because: %s"
(if (symbolp (cadr e))
(symbol-name (cadr e))
(cadr e))
(caddr e)))
(signal 'doom-hook-error (cons hook (cdr e))))))) (signal 'doom-hook-error (cons hook (cdr e)))))))
(defun doom-run-hook-on (hook-var trigger-hooks) (defun doom-run-hook-on (hook-var trigger-hooks)