Skip to content

Commit

Permalink
[Fix clojure-emacs#629] Remove use of paredit in 'cider-test'.
Browse files Browse the repository at this point in the history
  • Loading branch information
jeffvalk authored and dgtized committed Jun 24, 2014
1 parent ebf7382 commit 55ce583
Showing 1 changed file with 13 additions and 6 deletions.
19 changes: 13 additions & 6 deletions cider-test.el
Original file line number Diff line number Diff line change
Expand Up @@ -206,10 +206,16 @@ With the actual value, the outermost '(not ...)' s-expression is removed."
(clojure-mode))
(with-current-buffer actual-buffer
(insert actual)
(clojure-mode)
(paredit-backward-down)
(paredit-backward)
(paredit-splice-sexp-killing-backward))
(goto-char (point-min))
(forward-char)
(forward-sexp)
(forward-whitespace 1)
(let ((beg (point)))
(forward-sexp)
(let ((actual* (buffer-substring beg (point))))
(erase-buffer)
(insert actual*)))
(clojure-mode))
(apply 'ediff-buffers
(setq cider-test-ediff-buffers
(list (buffer-name expected-buffer)
Expand Down Expand Up @@ -323,9 +329,10 @@ With the actual value, the outermost '(not ...)' s-expression is removed."
(nrepl-dbind-response test (type line message expected actual)
(save-excursion
(goto-line line)
(paredit-forward-down)
(forward-whitespace 1)
(forward-char)
(let ((beg (point)))
(paredit-forward)
(forward-sexp)
(let ((overlay (make-overlay beg (point))))
(overlay-put overlay 'face (cider-test-type-face type))
(overlay-put overlay 'type type)
Expand Down

0 comments on commit 55ce583

Please sign in to comment.