From 6813afe4277491e91ee32ea30e9213b7b54fb868 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Mon, 22 Sep 2025 23:30:26 +0100 Subject: ...and, while we're at it, not printing spurious error messages --- elisp/geiser-capf.el | 19 +++++++++---------- 1 file changed, 9 insertions(+), 10 deletions(-) (limited to 'elisp') diff --git a/elisp/geiser-capf.el b/elisp/geiser-capf.el index cf0b3dc..e7c1139 100644 --- a/elisp/geiser-capf.el +++ b/elisp/geiser-capf.el @@ -39,16 +39,15 @@ (current-buffer)))))) (defun geiser-capf--company-location (id) - (condition-case _err - (when (and geiser-impl--implementation (not (geiser-autodoc--inhibit))) - (let ((id (if (stringp id) (geiser-syntax--form-from-string id) id))) - (if-let* ((mloc (geiser-edit-module-location id)) - (f (geiser-edit--location-file mloc))) - (cons f 1) - (if-let* ((sloc (geiser-edit-symbol-location id)) - (f (geiser-edit--location-file sloc))) - (cons f (or (geiser-edit--location-line sloc) 1)))))) - (error (message "Location not found for %s" id)))) + (ignore-errors + (when (and geiser-impl--implementation (not (geiser-autodoc--inhibit))) + (let ((id (if (stringp id) (geiser-syntax--form-from-string id) id))) + (if-let* ((mloc (geiser-edit-module-location id)) + (f (geiser-edit--location-file mloc))) + (cons f 1) + (if-let* ((sloc (geiser-edit-symbol-location id)) + (f (geiser-edit--location-file sloc))) + (cons f (or (geiser-edit--location-line sloc) 1)))))))) (defun geiser-capf--thing-at-point (module &optional _predicate) (with-syntax-table scheme-mode-syntax-table -- cgit v1.2.3