From c97f68e9f3f173c9a91e39acac873f41d7e41804 Mon Sep 17 00:00:00 2001 From: Chris Barrett Date: Thu, 25 Aug 2022 21:04:45 +1200 Subject: [PATCH] Allow error inspection in dlocks via lisp debugger --- lisp/org-roam-dblocks.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/org-roam-dblocks.el b/lisp/org-roam-dblocks.el index 13828e0..c9a2d20 100644 --- a/lisp/org-roam-dblocks.el +++ b/lisp/org-roam-dblocks.el @@ -221,7 +221,7 @@ predicates.") ;; (org-roam-dblocks--parse-filter-fn :foo '(equal it 0)) (cl-macrolet ((lambda-with-error-handling (binding &rest body) `(lambda ,binding - (condition-case err + (condition-case-unless-debug err (progn ,@body) (error (error "Error evaluating %s form: %s" @@ -341,7 +341,7 @@ and old content." ;;; Backlinks dblock type (defun org-roam-dblocks-format-backlinks (params) - (condition-case err + (condition-case-unless-debug err (progn (org-roam-dblocks-args-assert params t) (-let* ((id (org-roam-dblocks-args-id params)) @@ -371,7 +371,7 @@ and old content." ;;; Roam notes search dblock type (defun org-roam-dblocks-format-notes (params) - (condition-case err + (condition-case-unless-debug err (progn (org-roam-dblocks-args-assert params t) (cl-assert (or (org-roam-dblocks-args-match params)