emacs: Fix clojure nesting
This commit is contained in:
parent
95c69be2c6
commit
9cb8126a8c
@ -2441,14 +2441,14 @@ This checks if it’s a ts mode then runs their counterparts.
|
|||||||
(string= joe/cider-last-reported-exception error-str))))
|
(string= joe/cider-last-reported-exception error-str))))
|
||||||
(unless same-error-p
|
(unless same-error-p
|
||||||
(setq joe/cider-last-reported-exception error-str)
|
(setq joe/cider-last-reported-exception error-str)
|
||||||
(cider-interactive-eval "(throw @error-reporting/last-exception)")))
|
(cider-interactive-eval "(throw @error-reporting/last-exception)"))))
|
||||||
|
|
||||||
(defun joe/cider-repl-preoutput-hook (output)
|
(defun joe/cider-repl-preoutput-hook (output)
|
||||||
(if (string-match "EMACS-CIDER-REPORT-EXCEPTION" output)
|
(if (string-match "EMACS-CIDER-REPORT-EXCEPTION" output)
|
||||||
(progn
|
(progn
|
||||||
(joe/clojure-cider-throw-last-error)
|
(joe/clojure-cider-throw-last-error)
|
||||||
"")
|
"")
|
||||||
output)))
|
output))
|
||||||
|
|
||||||
(add-hook 'cider-repl-preoutput-hook #'joe/cider-repl-preoutput-hook)
|
(add-hook 'cider-repl-preoutput-hook #'joe/cider-repl-preoutput-hook)
|
||||||
|
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user