/[cmucl]/src/hemlock/main.lisp
ViewVC logotype

Diff of /src/hemlock/main.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6 by chiles, Fri Jul 26 10:03:43 1991 UTC revision 1.7 by chiles, Fri Oct 4 17:00:30 1991 UTC
# Line 215  Line 215 
215      "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
216       modeline which is used for general information."       modeline which is used for general information."
217      :value (list (make-modeline-field      :value (list (make-modeline-field
218                    :name :hemlock-banner :width 26                    :name :hemlock-banner :width 28
219                    :function #'(lambda (buffer window)                    :function #'(lambda (buffer window)
220                                  (declare (ignore buffer window))                                  (declare (ignore buffer window))
221                                  (format nil "Hemlock ~A  "                                  (format nil "Hemlock ~A  "

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

  ViewVC Help
Powered by ViewVC 1.1.5