branch: elpa/inf-clojure
commit 9841b38dde980789b3b5d13479c3b299fa3fcbd8
Author: Bozhidar Batsov <bozhi...@batsov.com>
Commit: Bozhidar Batsov <bozhi...@batsov.com>
Remove some redundant code
Seems I went overboard with the previous set of changes.
---
inf-clojure.el | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/inf-clojure.el b/inf-clojure.el
index 6d1bbab..12b0cb0 100644
--- a/inf-clojure.el
+++ b/inf-clojure.el
@@ -750,8 +750,9 @@ process buffer for a list of commands.)"
nil
'confirm-after-completion))))
(let* ((project-dir (clojure-project-dir))
- (repl-buffer-name (if project-dir (format "*inf-clojure %s*"
(inf-clojure--project-name project-dir)) "*inf-clojure*"))
- (comint-name (string-trim repl-buffer-name "*" "*")))
+ (repl-buffer-name (if project-dir
+ (format "*inf-clojure %s*"
(inf-clojure--project-name project-dir))
+ "*inf-clojure*")))
(if (not (comint-check-proc repl-buffer-name))
;; run the new process in the project's root when in a project
folder
(let ((default-directory (or project-dir default-directory))
@@ -764,7 +765,7 @@ process buffer for a list of commands.)"
(inf-clojure--prompt-repl-type))))
(message "Starting Clojure REPL via `%s'..." cmd)
(with-current-buffer (apply #'make-comint
- comint-name (car cmdlist) nil (cdr
cmdlist))
+ "inf-clojure" (car cmdlist) nil
(cdr cmdlist))
(inf-clojure-mode)
(setq-local inf-clojure-repl-type repl-type)
(hack-dir-local-variables-non-file-buffer))))
