emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

feature/lookup: silence cl-destructuring-bind errors

Browse source 
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.
This commit is contained in:
Henrik Lissner 2018-08-08 21:41:11 +02:00
parent 60f6418db2
commit 916210d5a8
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 7 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

13
modules/feature/lookup/autoload/lookup.el
View file

@ -164,12 +164,13 @@ evil-mode is active."
((and (featurep 'evil) ((and (featurep 'evil)
evil-mode evil-mode
(cl-destructuring-bind (beg . end) (ignore-errors
(bounds-of-thing-at-point 'symbol) (cl-destructuring-bind (beg . end)
(evil-goto-definition) (bounds-of-thing-at-point 'symbol)
(let ((pt (point))) (evil-goto-definition)
(not (and (>= pt beg) (let ((pt (point)))
(< pt end))))))) (not (and (>= pt beg)
(< pt end))))))))
((error "Couldn't find '%s'" identifier)))) ((error "Couldn't find '%s'" identifier))))