branch: elpa/inf-clojure
commit 1e99b8246bb1fe7666d613a9ae566e2a939fc2bb
Author: dpsutton <d...@dpsutton.com>
Commit: GitHub <nore...@github.com>
The redundant bit of code was actually required (#191)
Oh, well... Bozhidar needs to pay attention to what he's deleting.
Cheers,
Bozhidar
---
inf-clojure.el | 10 ++++++----
1 file changed, 6 insertions(+), 4 deletions(-)
diff --git a/inf-clojure.el b/inf-clojure.el
index 88a9c86..c9ede40 100644
--- a/inf-clojure.el
+++ b/inf-clojure.el
@@ -750,9 +750,11 @@ 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*")))
+ (process-buffer-name (if project-dir
+ (format "inf-clojure %s"
(inf-clojure--project-name project-dir))
+ "inf-clojure"))
+ ;; comint adds the asterisks to both sides
+ (repl-buffer-name (format "*%s*" process-buffer-name)))
;; Create a new comint buffer if needed
(unless (comint-check-proc repl-buffer-name)
;; run the new process in the project's root when in a project folder
@@ -766,7 +768,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
- "inf-clojure" (car cmdlist) nil (cdr
cmdlist))
+ process-buffer-name (car cmdlist) nil (cdr
cmdlist))
(inf-clojure-mode)
(setq-local inf-clojure-repl-type repl-type)
(hack-dir-local-variables-non-file-buffer))))
