summaryrefslogtreecommitdiff
path: root/cider-doc.el
diff options
context:
space:
mode:
authorArtur Malabarba <bruce.connor.am@gmail.com>2015-07-01 09:26:03 +0100
committerArtur Malabarba <bruce.connor.am@gmail.com>2015-07-01 20:50:09 +0100
commitd705a2c8b3c6d6c5b83237ce754e123b34112bdd (patch)
tree525d5296736969442e7235138c0f073d154a370f /cider-doc.el
parentfe7675ca1dc7cf0c54eca155a35cc87952350fe4 (diff)
More informative error on cider-docview-file
Diffstat (limited to 'cider-doc.el')
-rw-r--r--cider-doc.el13
1 files changed, 9 insertions, 4 deletions
diff --git a/cider-doc.el b/cider-doc.el
index b2c833e9..dff73104 100644
--- a/cider-doc.el
+++ b/cider-doc.el
@@ -175,10 +175,15 @@
"Open the source for the current symbol, if available."
(interactive)
(if cider-docview-file
- (let ((buffer (and cider-docview-file
- (not (cider--tooling-file-p cider-docview-file))
- (cider-find-file cider-docview-file))))
- (cider-jump-to buffer (cons cider-docview-line nil) nil))
+ (-if-let (buffer (and (not (cider--tooling-file-p cider-docview-file))
+ (cider-find-file cider-docview-file)))
+ (cider-jump-to buffer (if cider-docview-line
+ (cons cider-docview-line nil)
+ cider-docview-symbol)
+ nil)
+ (user-error
+ (substitute-command-keys
+ "Can't find the source because it wasn't defined with `cider-eval-buffer'")))
(error "No source location for %s" cider-docview-symbol)))
(defun cider-docview-grimoire ()