Merge pull request #1984 from yuhan0/fix-clojure-advice

lang/clojure: check for nrepl-server-buffer in advice
This commit is contained in:
Henrik Lissner 2019-11-01 13:14:43 -04:00 committed by GitHub
commit dcf468ae70
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23

View file

@ -57,11 +57,12 @@
(add-hook! 'cider-connected-hook
(defun +clojure--cider-dump-nrepl-server-log-h ()
"Copy contents of *nrepl-server* to beginning of *cider-repl*."
(when (buffer-live-p nrepl-server-buffer)
(save-excursion
(goto-char (point-min))
(insert
(with-current-buffer nrepl-server-buffer
(buffer-string))))))
(buffer-string)))))))
;; The CIDER welcome message obscures error messages that the above code is
;; supposed to be make visible.