[slime-cvs] CVS slime

[heller]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv12840

Modified Files:
	slime.el 
Log Message:
(slime-lisp-host): New variable. Replace all references to "127.0.0.1"
with the variable.


--- /project/slime/cvsroot/slime/slime.el	2006/02/22 23:43:11	1.586
+++ /project/slime/cvsroot/slime/slime.el	2006/02/25 14:57:36	1.587
@@ -1321,7 +1321,7 @@
 
 (defun slime-connect (host port &optional coding-system)
   "Connect to a running Swank server."
-  (interactive (list (read-from-minibuffer "Host: " "127.0.0.1")
+  (interactive (list (read-from-minibuffer "Host: " slime-lisp-host)
                      (read-from-minibuffer "Port: " "4005" nil t)))
   (when (and (interactive-p) slime-net-processes
              (y-or-n-p "Close old connections first? "))
@@ -1530,7 +1530,7 @@
                  (let ((port (slime-read-swank-port))
                        (args (slime-inferior-lisp-args process)))
                    (delete-file (slime-swank-port-file))
-                   (let ((c (slime-connect "127.0.0.1" port
+                   (let ((c (slime-connect slime-lisp-host port
                                            (plist-get args :coding-system))))
                      (slime-set-inferior-process c process))))
                 ((and retries (zerop retries))
@@ -1610,6 +1610,9 @@
 ;;; here. They are defined elsewhere by the event-dispatching
 ;;; functions in this file and in swank.lisp.
 
+(defvar slime-lisp-host "127.0.0.1"
+  "The default hostname (or IP address) to connect to.")
+
 (defvar slime-net-processes nil
   "List of processes (sockets) connected to Lisps.")
 
@@ -2766,7 +2769,7 @@
   (let ((stream (open-network-stream "*lisp-output-stream*" 
                                      (slime-with-connection-buffer ()
                                        (current-buffer))
-				     "127.0.0.1" port)))
+				     slime-lisp-host port)))
     (when slime-kill-without-query-p
       (process-kill-without-query stream))
     (set-process-filter stream 'slime-output-filter)