 (defvar win-default-frame-height '55)
 (defvar res (downcase (or (getenv "SCREENRES") "none")))
 (setq initial-frame-alist
-      '((top . 0) (left . 0) 
+      '((top . 0) (left . 0)
         (width . 80) (height . 46)
         (user-position t))
       )
-(cond 
+(cond
  ((equal res "800x600")
   (setq win-default-frame-height '37)
-  (set-default-font 
+  (set-default-font
    "-*-Lucida Console-normal-r-*-*-12-*-*-*-c-*-*")
   )
  ((equal res "1024x768")
   (setq win-default-frame-height '45)
-  (set-default-font 
+  (set-default-font
 ;;   "-*-Lucida Sans Typewriter-normal-r-*-*-13-*-*-*-*-*-*")
    "-*-Lucida Console-normal-r-*-*-15-*-*-*-c-*-*")
   )
  ((equal res "1152x864")
   ;; For NT, the height is '53.  For XP, it's down to '51
   ;;;(setcdr (assoc 'height initial-frame-alist) '51)
-  ;;;(set-default-font 
+  ;;;(set-default-font
   ;;; "-*-Lucida Console-normal-r-*-*-15-*-*-*-c-*-*")
   ;; For larger fonts, one could do this:
   (setq win-default-frame-height '43)
-  (set-default-font 
+  (set-default-font
    "-*-Lucida Console-normal-r-*-*-17-*-*-*-c-*-*")
   )
  ((equal res "1280x1024")
   (setq win-default-frame-height '55)
-  (set-default-font 
+  (set-default-font
    "-*-Lucida Console-normal-r-*-*-17-*-*-*-c-*-*")
   )
   ;;else
  (t
   (setq win-default-frame-height '24)
-  (set-default-font 
+  (set-default-font
    "-*-Lucida Console-normal-r-*-*-13-*-*-*-c-*-*")
   )
  );;end cond

;;(setq ss-trace 'nil)

;; The list of VSS projects.
;;;(setq jpw-vss-projects 
;;;      (list
;;;       '("^C:/home/jweiss/SomeProjectDir.working"
;;;         "$/TheVSSRepository/" vss-db)


;(set-fontset-font name charset-symbol fontname)
;;; To query font info, use these interactive commands:
;;
;;(describe-font) ;; gives details (including fullname) of current font
;;(describe-fontset) ;; gives details (including fullname) of current fontset
;;(list-fontsets)
