emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/inf-clojure 1e99b82 306/313: The redundant bit of code was


From: ELPA Syncer
Subject: [nongnu] elpa/inf-clojure 1e99b82 306/313: The redundant bit of code was actually required (#191)
Date: Wed, 11 Aug 2021 10:00:39 -0400 (EDT)

branch: elpa/inf-clojure
commit 1e99b8246bb1fe7666d613a9ae566e2a939fc2bb
Author: dpsutton <dan@dpsutton.com>
Commit: GitHub <noreply@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))))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]