TakeV/spacemacs
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Fix bug in spacemacs//cider-eval-in-repl-no-focus

Browse source 
- Move to point-max before inserting text.
- Only indent the newly inserted form instead of the whole buffer.
This commit is contained in:
luxbock 2015-08-14 16:41:00 +07:00 committed by syl20bnr
parent 534dd9a5db
commit 7240654d32
1 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
contrib/!lang/clojure/packages.el
View file

@ -45,12 +45,13 @@
(defun spacemacs//cider-eval-in-repl-no-focus (form)
"Insert FORM in the REPL buffer and eval it."
(let ((start-pos (point)))
(while (string-match "\\`[ \t\n\r]+\\|[ \t\n\r]+\\'" form)
(setq form (replace-match "" t t form)))
(with-current-buffer (cider-current-repl-buffer)
(while (string-match "\\`[ \t\n\r]+\\|[ \t\n\r]+\\'" form)
(setq form (replace-match "" t t form)))
(with-current-buffer (cider-current-repl-buffer)
(let ((pt-max (point-max)))
(goto-char pt-max)
(insert form)
(indent-region start-pos (point))
(indent-region pt-max (point))
(cider-repl-return))))
(defun spacemacs/cider-send-last-sexp-to-repl ()