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

[Luke Gorrie]

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

Modified Files:
	slime.el 
Log Message:
(slime-header-line-p): Customize variable to enable/disable the
header-line in the REPL.

Date: Wed Jan 19 03:58:41 2005
Author: lgorrie

Index: slime/slime.el
diff -u slime/slime.el:1.450 slime/slime.el:1.451
--- slime/slime.el:1.450	Tue Jan 18 08:21:27 2005
+++ slime/slime.el	Wed Jan 19 03:58:39 2005
@@ -2276,6 +2276,11 @@
 
 ;;;; Stream output
 
+(defcustom slime-header-line-p t
+  "If non-nil, display a header line in Slime buffers."
+  :type 'boolean
+  :group 'slime-repl)
+
 (make-variable-buffer-local
  (defvar slime-output-start nil
    "Marker for the start of the output for the evaluation."))
@@ -2314,7 +2319,8 @@
                          (slime-connection-port (slime-connection))
                          (slime-pid)))
          ;; Emacs21 has the fancy persistent header-line.
-         (use-header-p (boundp 'header-line-format))
+         (use-header-p (and slime-header-line-p
+                            (boundp 'header-line-format)))
          ;; and dancing text
          (animantep (and (fboundp 'animate-string)
                          slime-startup-animation