diff options
author | Vasilij Schneidermann <v.schneidermann@gmail.com> | 2016-04-12 08:26:44 +0200 |
---|---|---|
committer | Bozhidar Batsov <bozhidar.batsov@gmail.com> | 2016-04-11 23:26:44 -0700 |
commit | 014fb4081d24dfd0686dcc0a290577f75828957e (patch) | |
tree | 3c4ab405f1c74d46906f56812b05de607e542121 /cider-test.el | |
parent | 7dcdce7a6e2ea0728344e9136d3bd5261dacc028 (diff) |
Tag and remove cider-test overlays only (#1663)
Fixes #1643
Diffstat (limited to 'cider-test.el')
-rw-r--r-- | cider-test.el | 18 |
1 files changed, 10 insertions, 8 deletions
diff --git a/cider-test.el b/cider-test.el index 1f1fb9b4..e4f6383c 100644 --- a/cider-test.el +++ b/cider-test.el @@ -33,6 +33,7 @@ (require 'cider-popup) (require 'cider-stacktrace) (require 'cider-compat) +(require 'cider-overlays) (require 'button) (require 'easymenu) @@ -468,13 +469,13 @@ The optional arg TEST denotes an individual test name." (search-forward "(" nil t) (let ((beg (point))) (forward-sexp) - (let ((overlay (make-overlay beg (point)))) - (overlay-put overlay 'font-lock-face (cider-test-type-face type)) - (overlay-put overlay 'type type) - (overlay-put overlay 'help-echo message) - (overlay-put overlay 'message message) - (overlay-put overlay 'expected expected) - (overlay-put overlay 'actual actual)))))))) + (cider--make-overlay beg (point) 'cider-test + 'font-lock-face (cider-test-type-face type) + 'type type + 'help-echo message + 'message message + 'expected expected + 'actual actual))))))) (defun cider-find-var-file (ns var) "Return the buffer visiting the file in which the NS VAR is defined. @@ -507,7 +508,8 @@ Or nil if not found." (dolist (var (nrepl-dict-keys vars)) (when-let ((buffer (cider-find-var-file ns var))) (with-current-buffer buffer - (remove-overlays))))) + (remove-overlays (point-min) (point-max) + 'cider-type 'cider-test))))) cider-test-last-results))) |