(setq aquamacs-ring-bell-on-error nil)
(require 'aquamacs-mac-fontsets)

(setq initial-frame-alist '((font . "fontset-lucida13")))

(defun change-frame ()


  (modify-frame-parameters nil
			  '( 
;			    (font . "-*-*-medium-r-*-*-13-*-*-*-*-*-fontset-courier13")
			    (left-fringe . 0)
			    (right-fringe . 0) 
			    (scroll-bar-width . 16) 
			    )
			   )
  )

; (change-frame)