[Top][All Lists]

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

master eb4a120: Allow using spaces in `inferior-lisp' command names

From: Lars Ingebrigtsen
Subject: master eb4a120: Allow using spaces in `inferior-lisp' command names
Date: Thu, 15 Jul 2021 04:33:31 -0400 (EDT)

branch: master
commit eb4a120ea580bf628f65ff7e571016d5efa2293e
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Allow using spaces in `inferior-lisp' command names
    * lisp/progmodes/inf-lisp.el (inferior-lisp): Allow using spaces
    in the command names (by splitting using shell syntax) (bug#16005).
 lisp/progmodes/inf-lisp.el | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/lisp/progmodes/inf-lisp.el b/lisp/progmodes/inf-lisp.el
index 0a72ae9..e69a9ff 100644
--- a/lisp/progmodes/inf-lisp.el
+++ b/lisp/progmodes/inf-lisp.el
@@ -62,6 +62,7 @@
 (require 'comint)
 (require 'lisp-mode)
+(require 'shell)
 (defgroup inferior-lisp nil
@@ -289,15 +290,20 @@ to continue it."
   "Run an inferior Lisp process, input and output via buffer `*inferior-lisp*'.
 If there is a process already running in `*inferior-lisp*', just switch
 to that buffer.
 With argument, allows you to edit the command line (default is value
 of `inferior-lisp-program').  Runs the hooks from
 `inferior-lisp-mode-hook' (after the `comint-mode-hook' is run).
+If any parts of the command name contains spaces, they should be
+quoted using shell quote syntax.
 \(Type \\[describe-mode] in the process buffer for a list of commands.)"
   (interactive (list (if current-prefix-arg
                         (read-string "Run lisp: " inferior-lisp-program)
   (if (not (comint-check-proc "*inferior-lisp*"))
-      (let ((cmdlist (split-string cmd)))
+      (let ((cmdlist (split-string-shell-command cmd)))
        (set-buffer (apply (function make-comint)
                           "inferior-lisp" (car cmdlist) nil (cdr cmdlist)))

reply via email to

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