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

[Luke Gorrie]

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

Modified Files:
	slime.el 
Log Message:
(slime-init-output-buffer): XEmacs portability fix, and use
header-line-format to show info about Lisp in Emacs21.

Date: Fri Jan 16 01:01:38 2004
Author: lgorrie

Index: slime/slime.el
diff -u slime/slime.el:1.177 slime/slime.el:1.178
--- slime/slime.el:1.177	Thu Jan 15 13:23:51 2004
+++ slime/slime.el	Fri Jan 16 01:01:38 2004
@@ -1815,11 +1815,17 @@
 (defun slime-init-output-buffer ()
   (with-current-buffer (slime-output-buffer)
     (goto-char (point-max))
-    (slime-repl-insert-prompt 
-     (format "; %s  Port: %s  Pid: %s"
-             (slime-eval '(cl:lisp-implementation-type))
-             (process-contact (slime-connection))
-             (slime-pid)))
+    (let ((banner (format "%s  Port: %s  Pid: %s"
+                          (slime-eval '(cl:lisp-implementation-type))
+                          (if (featurep 'xemacs)
+                              (process-id (slime-connection))
+                            (process-contact (slime-connection)))
+                          (slime-pid))))
+      ;; Emacs21 has the fancy persistent header-line.
+      (if (boundp 'header-line-format)
+          (progn (setq header-line-format banner)
+                 (slime-repl-insert-prompt ""))
+        (slime-repl-insert-prompt (concat "; " banner))))
     (pop-to-buffer (current-buffer))))
 
 (defun slime-note-transcript-start (string)