Changeset 7139


Ignore:
Timestamp:
Sep 5, 2007, 3:44:43 AM (12 years ago)
Author:
gb
Message:

Suppress warnings about *MODELINE-FONT-NAME*, -SIZE*.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/cocoa-ide/cocoa-prefs.lisp

    r6983 r7139  
    6464(objc:defmethod (#/fontPanelForModelineFont: :void)
    6565                ((self lisp-preferences-window-controller) sender)
     66  (declare (special *modeline-font-name* *modeline-font-size*))
    6667  (let* ((fm (#/sharedFontManager ns:ns-font-manager)))
    6768    (#/setSelectedFont:isMultiple: fm (default-font
     
    8283
    8384(objc:defmethod (#/changeModelineFont: :void) ((self lisp-preferences-window-controller) sender)
     85  (declare (special *modeline-font-name* *modeline-font-size*))
    8486  (let* ((f (#/convertFont: sender (default-font
    8587                                          :name *modeline-font-name*
Note: See TracChangeset for help on using the changeset viewer.