From 916210d5a8bb6d20d0e11a22558ad9efe884c2cb Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Wed, 8 Aug 2018 21:41:11 +0200 Subject: [PATCH] feature/lookup: silence cl-destructuring-bind errors In likely case where (bounds-of-thing-at-point 'symbol) returns nil, cl-destructuring-bind would throw a wrong-number-of-args error we don't care about. --- modules/feature/lookup/autoload/lookup.el | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/modules/feature/lookup/autoload/lookup.el b/modules/feature/lookup/autoload/lookup.el index e65dcc018..d74457fe6 100644 --- a/modules/feature/lookup/autoload/lookup.el +++ b/modules/feature/lookup/autoload/lookup.el @@ -164,12 +164,13 @@ evil-mode is active." ((and (featurep 'evil) evil-mode - (cl-destructuring-bind (beg . end) - (bounds-of-thing-at-point 'symbol) - (evil-goto-definition) - (let ((pt (point))) - (not (and (>= pt beg) - (< pt end))))))) + (ignore-errors + (cl-destructuring-bind (beg . end) + (bounds-of-thing-at-point 'symbol) + (evil-goto-definition) + (let ((pt (point))) + (not (and (>= pt beg) + (< pt end)))))))) ((error "Couldn't find '%s'" identifier))))