[slime-cvs] CVS slime

[CVS User sboukarev]

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

Modified Files:
	ChangeLog slime.el 
Log Message:
* slime.el (slime-insert-threads): Use header-line-format only when
it's present (XEmacs doesn't support it).


--- /project/slime/cvsroot/slime/ChangeLog	2010/04/04 21:47:10	1.2052
+++ /project/slime/cvsroot/slime/ChangeLog	2010/04/04 21:51:54	1.2053
@@ -1,5 +1,10 @@
 2010-04-04  Stas Boukarev  <stassats at gmail.com>
 
+	* slime.el (slime-insert-threads): Use header-line-format only when
+	it's present (XEmacs doesn't support it).
+
+2010-04-04  Stas Boukarev  <stassats at gmail.com>
+
 	* slime.el (slime-with-popup-buffer): Make &optional parameters
 	&key parameters, add modes parameter.
 	slime-with-popup-buffer sets up some buffer local variables,
--- /project/slime/cvsroot/slime/slime.el	2010/04/04 21:47:10	1.1293
+++ /project/slime/cvsroot/slime/slime.el	2010/04/04 21:51:54	1.1294
@@ -6249,13 +6249,16 @@
 
 (defun slime-insert-threads (threads)
   (let* ((threads (slime-format-threads-labels threads))
-         (longest-lines (slime-longest-lines threads)))
-    (setq header-line-format
-          (concat (propertize " " 'display '((space :align-to 0)))
-                  (let (*slime-threads-table-properties*)
-                    (with-temp-buffer
-                      (slime-insert-thread (car threads) longest-lines)
-                      (buffer-string)))))
+         (longest-lines (slime-longest-lines threads))
+         (labels (let (*slime-threads-table-properties*)
+                   (with-temp-buffer
+                     (slime-insert-thread (car threads) longest-lines)
+                     (buffer-string)))))
+    (if (boundp 'header-line-format)
+        (setq header-line-format
+              (concat (propertize " " 'display '((space :align-to 0)))
+                      labels))
+        (insert labels))
     (loop for thread-id from 0
           for thread in (cdr threads)
           do