diff options
| author | Jose Antonio Ortega Ruiz <jao@Mac.home> | 2025-09-22 23:30:26 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@Mac.home> | 2025-09-22 23:30:26 +0100 |
| commit | 6813afe4277491e91ee32ea30e9213b7b54fb868 (patch) | |
| tree | 6bd7f027d8ac0195d671152897d4d632be613768 /elisp/geiser-capf.el | |
| parent | 0a88bd27308e3ca3a62b6c933cdb97a4884237ea (diff) | |
| download | geiser-6813afe4277491e91ee32ea30e9213b7b54fb868.tar.gz geiser-6813afe4277491e91ee32ea30e9213b7b54fb868.tar.bz2 | |
...and, while we're at it, not printing spurious error messages
Diffstat (limited to 'elisp/geiser-capf.el')
| -rw-r--r-- | elisp/geiser-capf.el | 19 |
1 files changed, 9 insertions, 10 deletions
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 |