File tree Expand file tree Collapse file tree 1 file changed +8
-4
lines changed Expand file tree Collapse file tree 1 file changed +8
-4
lines changed Original file line number Diff line number Diff line change @@ -296,10 +296,14 @@ See http://blog.jorgenschaefer.de/2014/05/race-conditions-in-emacs-process-filte
296
296
(defun inf-clojure--set-repl-type (proc )
297
297
" Set the REPL type if has not already been set.
298
298
It requires a REPL PROC for inspecting the correct type."
299
- (with-current-buffer inf-clojure-buffer
300
- (if (not inf-clojure-repl-type)
301
- (setq inf-clojure-repl-type (inf-clojure--detect-repl-type proc))
302
- inf-clojure-repl-type)))
299
+ (if (not inf-clojure-repl-type)
300
+ (let ((repl-type (inf-clojure--detect-repl-type proc)))
301
+ ; ; set the REPL process buffer
302
+ (with-current-buffer inf-clojure-buffer
303
+ (setq-local inf-clojure-repl-type repl-type))
304
+ ; ; set in the current buffer
305
+ (setq-local inf-clojure-repl-type repl-type))
306
+ inf-clojure-repl-type))
303
307
304
308
(defun inf-clojure--single-linify (string )
305
309
" Convert a multi-line STRING in a single-line STRING.
You can’t perform that action at this time.
0 commit comments