[slime-cvs] CVS update: slime/slime.el

[Luke Gorrie]

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

Modified Files:
	slime.el 
Log Message:
Renamed connection timer to slime-startup-retry-timer.

Date: Fri Oct 31 14:53:39 2003
Author: lgorrie

Index: slime/slime.el
diff -u slime/slime.el:1.64 slime/slime.el:1.65
--- slime/slime.el:1.64	Fri Oct 31 14:35:28 2003
+++ slime/slime.el	Fri Oct 31 14:53:39 2003
@@ -647,9 +647,9 @@
                      (slime-swank-port-file)))
           (setq slime-state-name (format "[polling:%S]" (incf attempt)))
           (force-mode-line-update)
-          (when slime-connect-retry-timer
-            (cancel-timer slime-connect-retry-timer))
-          (setq slime-connect-retry-timer nil) ; remove old timer
+          (when slime-startup-retry-timer
+            (cancel-timer slime-startup-retry-timer))
+          (setq slime-startup-retry-timer nil) ; remove old timer
           (cond ((file-exists-p (slime-swank-port-file))
                  (let ((port (slime-read-swank-port)))
                    (message "Connecting to Swank on port %S.." port)
@@ -662,7 +662,7 @@
                  (message "Failed to connect to Swank."))
                 (t
                  (when retries (decf retries))
-                 (setq slime-connect-retry-timer
+                 (setq slime-startup-retry-timer
                        (run-with-timer 1 nil #'attempt-connection))))))
       (attempt-connection))))
 
@@ -672,8 +672,8 @@
   (cond ((slime-connected-p)
          (delete-process slime-net-process)
          (message "Disconnected."))
-        (slime-connect-retry-timer
-         (cancel-timer slime-connect-retry-timer)
+        (slime-startup-retry-timer
+         (cancel-timer slime-startup-retry-timer)
          (message "Cancelled connection attempt."))
         (t
          (message "Not connected."))))