diff --git a/hemlock/main.lisp b/hemlock/main.lisp index fcf021e6151a1e5af0e3cd80c79a1f03cc6ad687..d8cf987c135cb0535bc9b34f5c0952d868cb262f 100644 --- a/hemlock/main.lisp +++ b/hemlock/main.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (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 @@ "This is the default list of modeline-fields for the echo area window's modeline which is used for general information." :value (list (make-modeline-field - :name :hemlock-banner :width 28 + :name :hemlock-banner :width 27 :function #'(lambda (buffer window) (declare (ignore buffer window)) (format nil "Hemlock ~A "