summaryrefslogtreecommitdiff
path: root/cider-mode.el
diff options
context:
space:
mode:
authorArtur Malabarba <bruce.connor.am@gmail.com>2016-04-12 10:39:04 -0300
committerArtur Malabarba <bruce.connor.am@gmail.com>2016-04-12 10:43:18 -0300
commit21b8e625d2199799887b5ecd608fcf2dd2af2d0b (patch)
tree5745774910aa94718bc9d02963a92d1344ff371b /cider-mode.el
parent007cb2a3004d973c307967b45fddec66aa7748ef (diff)
[Fix #1667] Never throw errors in help-echo
Diffstat (limited to 'cider-mode.el')
-rw-r--r--cider-mode.el23
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.