[slime-cvs] CVS slime

[CVS User heller]

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

Modified Files:
	ChangeLog slime.el 
Log Message:
* slime.el (slime-restart-or-init-modeline-update-timer): Don't
run the timer repeatedly.
(slime-change-directory): Also change the directory in the
connection-buffer.

--- /project/slime/cvsroot/slime/ChangeLog	2009/02/11 20:55:01	1.1678
+++ /project/slime/cvsroot/slime/ChangeLog	2009/02/14 12:33:16	1.1679
@@ -51,6 +51,13 @@
 
 	Patch by Stas Boukarev.
 
+2009-01-30  Helmut Eller  <heller at common-lisp.net>
+
+	* slime.el (slime-restart-or-init-modeline-update-timer): Don't
+	run the timer repeatedly.
+	(slime-change-directory): Also change the directory in the
+	connection-buffer.
+
 2009-01-23  Tobias C. Rittweiler  <tcr at freebits.de>
 
 	* slime.el (slime-editing-keys): New variable; splitted from
--- /project/slime/cvsroot/slime/slime.el	2009/02/11 20:55:01	1.1122
+++ /project/slime/cvsroot/slime/slime.el	2009/02/14 12:33:17	1.1123
@@ -468,7 +468,7 @@
   (when slime-modeline-update-timer
     (cancel-timer slime-modeline-update-timer))
   (setq slime-modeline-update-timer
-        (run-with-idle-timer 0.5 0.5 'slime-update-all-modelines)))
+        (run-with-idle-timer 0.1 nil 'slime-update-all-modelines)))
 
 (slime-restart-or-init-modeline-update-timer)
 
@@ -4444,6 +4444,7 @@
   (let ((dir (expand-file-name directory)))
     (prog1 (slime-eval `(swank:set-default-directory
                          ,(slime-to-lisp-filename dir)))
+      (slime-with-connection-buffer nil (cd-absolute dir))
       (run-hook-with-args 'slime-change-directory-hooks dir))))
  
 (defun slime-cd (directory)