/[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.7 by chiles, Fri Oct 4 17:00:30 1991 UTC revision 1.8 by chiles, Fri Oct 4 17:18:47 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 28                    :name :hemlock-banner :width 27
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.7  
changed lines
  Added in v.1.8

  ViewVC Help
Powered by ViewVC 1.1.5