Skip to content
Snippets Groups Projects
Commit f7072859 authored by chiles's avatar chiles
Browse files

*** empty log message ***

parent 539b5c8d
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/main.lisp,v 1.7 1991/10/04 17:00:30 chiles Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/main.lisp,v 1.8 1991/10/04 17:18:47 chiles Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -215,7 +215,7 @@ ...@@ -215,7 +215,7 @@
"This is the default list of modeline-fields for the echo area window's "This is the default list of modeline-fields for the echo area window's
modeline which is used for general information." modeline which is used for general information."
:value (list (make-modeline-field :value (list (make-modeline-field
:name :hemlock-banner :width 28 :name :hemlock-banner :width 27
:function #'(lambda (buffer window) :function #'(lambda (buffer window)
(declare (ignore buffer window)) (declare (ignore buffer window))
(format nil "Hemlock ~A " (format nil "Hemlock ~A "
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment