[slime-cvs] CVS slime

[CVS User heller]

Update of /project/slime/cvsroot/slime
In directory tiger.common-lisp.net:/tmp/cvs-serv25480

Modified Files:
	ChangeLog slime.el 
Log Message:
* slime.el (slime-read-interactive-args): Use read-shell-command
to enable completion.  Patch by Daimrod/Greg.

--- /project/slime/cvsroot/slime/ChangeLog	2013/03/08 11:12:25	1.2396
+++ /project/slime/cvsroot/slime/ChangeLog	2013/03/12 17:49:47	1.2397
@@ -1,3 +1,8 @@
+2013-03-12  Helmut Eller  <heller at common-lisp.net>
+
+	* slime.el (slime-read-interactive-args): Use read-shell-command
+	to enable completion.  Patch by Daimrod/Greg.
+
 2013-03-08  Mark Evenson  <evenson at tethys.local>
 
 	* swank-abcl.lisp: Allow SLIME inspector to perform class
--- /project/slime/cvsroot/slime/slime.el	2013/02/20 17:33:14	1.1428
+++ /project/slime/cvsroot/slime/slime.el	2013/03/12 17:49:47	1.1429
@@ -1090,7 +1090,7 @@
 
 (defvar slime-inferior-lisp-program-history '()
   "History list of command strings.  Used by `slime'.")
-                                                  
+
 (defun slime-read-interactive-args ()
   "Return the list of args which should be passed to `slime-start'.
 
@@ -1112,18 +1112,18 @@
   (let ((table slime-lisp-implementations))
     (cond ((not current-prefix-arg) (slime-lisp-options))
           ((eq current-prefix-arg '-)
-           (let ((key (completing-read 
-                       "Lisp name: " (mapcar (lambda (x) 
-                                               (list (symbol-name (car x)))) 
+           (let ((key (completing-read
+                       "Lisp name: " (mapcar (lambda (x)
+                                               (list (symbol-name (car x))))
                                              table)
                        nil t)))
              (slime-lookup-lisp-implementation table (intern key))))
           (t
            (destructuring-bind (program &rest program-args)
-               (split-string (read-string 
+               (split-string (read-shell-command
                               "Run lisp: " inferior-lisp-program
                               'slime-inferior-lisp-program-history))
-             (let ((coding-system 
+             (let ((coding-system
                     (if (eq 16 (prefix-numeric-value current-prefix-arg))
                         (read-coding-system "set slime-coding-system: "
                                             slime-net-coding-system)