diff options
author | Tianxiang Xiong <tianxiang.xiong@fundingcircle.com> | 2017-07-07 18:55:26 -0700 |
---|---|---|
committer | Bozhidar Batsov <bozhidar.batsov@gmail.com> | 2017-07-08 07:30:38 +0300 |
commit | 2e51d4073998f0e9059160a6f0f256b44e284c39 (patch) | |
tree | cfba906ff0f1b3769e39354710bf7518eb612f1f | |
parent | 72544bc0b4b4aa7ccacbecb95da1ce94b503409d (diff) |
Only handle mouse event on highlighted text
-rw-r--r-- | cider-browse-spec.el | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/cider-browse-spec.el b/cider-browse-spec.el index 2a6a198b..3958bde0 100644 --- a/cider-browse-spec.el +++ b/cider-browse-spec.el @@ -114,10 +114,12 @@ Display TITLE at the top and SPECS are indented underneath." (goto-char (point-max)) (insert (cider-propertize title 'emph) "\n") (dolist (spec-name specs) - (insert (format " %s\n" - (if (char-equal (elt spec-name 0) ?:) - (cider-browse-spec--propertize-keyword spec-name) - (cider-browse-spec--propertize-fn spec-name))))) + (let ((propertize-fn (if (char-equal (elt spec-name 0) ?:) + #'cider-browse-spec--propertize-keyword + #'cider-browse-spec--propertize-fn))) + (thread-first (concat " " (funcall propertize-fn spec-name) "\n") + (propertize 'spec-name spec-name) + insert))) (goto-char (point-min))))) (defun cider--qualified-keyword-p (str) @@ -338,7 +340,8 @@ If FILTER-REGEX is empty, list all specs in the registry." (defun cider-browse-spec-handle-mouse (event) "Handle mouse click EVENT." (interactive "e") - (cider-browse-spec--browse-at-point)) + (when (eq 'highlight (get-text-property (point) 'mouse-face)) + (cider-browse-spec--browse-at-point))) (provide 'cider-browse-spec) |