awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
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
parent bd3f3d708a 17957a666d
commit dcf468ae70
1 changed files with 6 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
modules/lang/clojure/config.el
View File

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