diff options
author | Artur Malabarba <bruce.connor.am@gmail.com> | 2016-04-12 10:39:04 -0300 |
---|---|---|
committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2016-04-12 10:43:18 -0300 |
commit | 21b8e625d2199799887b5ecd608fcf2dd2af2d0b (patch) | |
tree | 5745774910aa94718bc9d02963a92d1344ff371b /cider-mode.el | |
parent | 007cb2a3004d973c307967b45fddec66aa7748ef (diff) |
[Fix #1667] Never throw errors in help-echo
Diffstat (limited to 'cider-mode.el')
-rw-r--r-- | cider-mode.el | 23 |
1 files changed, 12 insertions, 11 deletions
diff --git a/cider-mode.el b/cider-mode.el index 6e962dc8..3ddf69a1 100644 --- a/cider-mode.el +++ b/cider-mode.el @@ -645,17 +645,18 @@ before point." See \(info \"(elisp) Special Properties\")" (when (and (bufferp obj) (cider-connected-p)) (with-current-buffer obj - (save-excursion - (goto-char pos) - (let* ((sym (cider-symbol-at-point)) - (info (cider-var-info sym))) - (with-temp-buffer - (cider-docview-render (current-buffer) sym info) - (goto-char (point-max)) - (forward-line -1) - (replace-regexp-in-string - "[`']" "\\\\=\\&" - (buffer-substring-no-properties (point-min) (1- (point)))))))))) + (ignore-errors + (save-excursion + (goto-char pos) + (let* ((sym (cider-symbol-at-point)) + (info (cider-sync-request:info sym))) + (with-temp-buffer + (cider-docview-render (current-buffer) sym info) + (goto-char (point-max)) + (forward-line -1) + (replace-regexp-in-string + "[`']" "\\\\=\\&" + (buffer-substring-no-properties (point-min) (1- (point))))))))))) (defun cider--wrap-fontify-locals (func) "Return a function that will call FUNC after parsing local variables. |