[slime-cvs] CVS slime

[CVS User sboukarev]

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

Modified Files:
	ChangeLog slime.el 
Log Message:
* slime.el (slime-xemacs-recompute-modelines): Add
`slime-xemacs-recompute-modelines' to `pre-idle-hook', this solves
the problem of synchronization of modelines.
Thanks to Aidan Kehoe.


--- /project/slime/cvsroot/slime/ChangeLog	2010/08/21 21:31:28	1.2129
+++ /project/slime/cvsroot/slime/ChangeLog	2010/08/22 10:51:10	1.2130
@@ -1,3 +1,10 @@
+2010-08-22  Stas Boukarev  <stassats at gmail.com>
+
+	* slime.el (slime-xemacs-recompute-modelines): Add
+	`slime-xemacs-recompute-modelines' to `pre-idle-hook', this solves
+	the problem of synchronization of modelines.
+	Thanks to Aidan Kehoe.
+
 2010-08-21  Stas Boukarev  <stassats at gmail.com>
 
 	* slime.el (slime-recompute-modelines): Recompute modelines only
--- /project/slime/cvsroot/slime/slime.el	2010/08/21 21:31:28	1.1335
+++ /project/slime/cvsroot/slime/slime.el	2010/08/22 10:51:11	1.1336
@@ -485,11 +485,17 @@
          ;; Only do the unwind-protect of #'with-current-buffer if we're
          ;; actually interested in this buffer
          (with-current-buffer object
-           (setq slime-modeline-string (slime-modeline-string)
-                 redraw-modeline t))))
-     'never t)
+           (setq redraw-modeline
+                 (or (not (equal slime-modeline-string
+                                 (setq slime-modeline-string
+                                       (slime-modeline-string))))
+                     redraw-modeline)))))
+     'never 'visible)
     (and redraw-modeline (redraw-modeline t))))
 
+(and (featurep 'xemacs)
+     (pushnew 'slime-xemacs-recompute-modelines pre-idle-hook))
+
 
 ;;;;; Key bindings