Changeset 11182


Ignore:
Timestamp:
03/04/07 17:57:18 (15 years ago)
Author:
piso
Message:

work in progress

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/examples/init.lisp

    r10487 r11182  
    11;;; init.lisp
    2 ;;; $Id: init.lisp,v 1.34 2005-11-18 01:45:42 piso Exp $
     2;;; $Id: init.lisp,v 1.35 2007-03-04 17:57:18 piso Exp $
    33
    44;;; ~/.j/init.lisp (if it exists) is loaded automatically when j starts up.
     
    2727
    2828(defun adjust-appearance ()
    29   (unless (featurep :windows)
    30     (when (member (subseq (java-version) 0 5)
    31                   '("1.4.0" "1.4.1" "1.4.2" "1.5.0" "1.6.0")
    32                   :test #'string=)
    33       (set-global-property "adjustAscent" -2)
    34       (set-global-property "adjustLeading" -2)
    35       (reset-display))))
     29  (when (member (subseq (java-version) 0 5)
     30                '("1.4.0" "1.4.1" "1.4.2" "1.5.0" "1.6.0" "1.7.0")
     31                :test #'string=)
     32    (set-global-property "adjustAscent" -2)
     33    (set-global-property "adjustLeading" -2)
     34    (reset-display)))
    3635
    3736;; Do it now!
     
    124123(maybe-load "/home/peter/.j/update-check-enabled.lisp")
    125124
    126 (maybe-load #+windows "c:/perforce/depot/j/build-abcl.lisp"
    127             #-windows "/home/peter/depot/j/build-abcl.lisp")
     125(maybe-load #+windows "c:/cygwin/home/peter/j/build-abcl.lisp"
     126            #-windows "/home/peter/j/build-abcl.lisp")
    128127
    129128(map-key-for-mode ")" "electricCloseParen" "Lisp Shell")
Note: See TracChangeset for help on using the changeset viewer.