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

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

[nongnu] elpa/inf-clojure 9841b38 303/313: Remove some redundant code


From: ELPA Syncer
Subject: [nongnu] elpa/inf-clojure 9841b38 303/313: Remove some redundant code
Date: Wed, 11 Aug 2021 10:00:38 -0400 (EDT)

branch: elpa/inf-clojure
commit 9841b38dde980789b3b5d13479c3b299fa3fcbd8
Author: Bozhidar Batsov <bozhidar@batsov.com>
Commit: Bozhidar Batsov <bozhidar@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))))



reply via email to

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