From fb8b7c38d293454fbf015045773550d89c58d84a Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Tue, 14 May 2019 22:26:21 -0400 Subject: [PATCH] Make lookup handlers easier to debug If debug-mode is on, errors in lookup handlers will not emit a full backtrace. --- modules/tools/lookup/autoload/lookup.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/modules/tools/lookup/autoload/lookup.el b/modules/tools/lookup/autoload/lookup.el index b57c3434b..a3efffa19 100644 --- a/modules/tools/lookup/autoload/lookup.el +++ b/modules/tools/lookup/autoload/lookup.el @@ -113,9 +113,9 @@ This can be passed nil as its second argument to unset handlers for MODES. e.g. (defun +lookup--run-handlers (handler identifier origin) (doom-log "Looking up '%s' with '%s'" identifier handler) - (condition-case e + (condition-case-unless-debug e (let ((wconf (current-window-configuration)) - (result (condition-case e + (result (condition-case-unless-debug e (+lookup--run-handler handler identifier) (error (doom-log "Lookup handler %S threw an error: %s" handler e) @@ -130,7 +130,7 @@ This can be passed nil as its second argument to unset handlers for MODES. e.g. (/= (point-marker) origin)) (prog1 (point-marker) (set-window-configuration wconf))))) - ((error user-error debug) + ((error user-error) (message "Lookup handler %S: %s" handler e) nil)))