[slime-cvs] CVS slime

[CVS User alendvai]

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv26265

Modified Files:
	slime.el 
Log Message:
Added separate host and port history for slime-connect.

--- /project/slime/cvsroot/slime/slime.el	2010/10/08 09:03:24	1.1344
+++ /project/slime/cvsroot/slime/slime.el	2010/10/15 16:21:32	1.1345
@@ -198,6 +198,9 @@
   :type 'integer
   :group 'slime-lisp)
 
+(defvar slime-connect-host-history (list slime-lisp-host))
+(defvar slime-connect-port-history (list (prin1-to-string slime-port)))
+
 (defvar slime-net-valid-coding-systems
   '((iso-latin-1-unix nil "iso-latin-1-unix")
     (iso-8859-1-unix  nil "iso-latin-1-unix")
@@ -1170,9 +1173,12 @@
 
 (defun slime-connect (host port &optional coding-system)
   "Connect to a running Swank server. Return the connection."
-  (interactive (list (read-from-minibuffer "Host: " slime-lisp-host)
-                     (read-from-minibuffer "Port: " (format "%d" slime-port)
-                                           nil t)))
+  (interactive (list (read-from-minibuffer
+                      "Host: " (first slime-connect-host-history)
+                      nil nil '(slime-connect-host-history . 1))
+                     (read-from-minibuffer
+                      "Port: " (first slime-connect-port-history)
+                      nil nil '(slime-connect-port-history . 1))))
   (when (and (interactive-p) slime-net-processes
              (y-or-n-p "Close old connections first? "))
     (slime-disconnect-all))