; MPW does not allow saving a file with name beginning with a period.
; Use Emacs or SimpleText to edit and save this file instead.

(cond ((fboundp 'global-font-lock-mode)
       ;; Turn on font-lock in all modes that support it
       (global-font-lock-mode t)
       ;; Maximum colors
       (setq font-lock-maximum-decoration t)))

; My preference for RMAIL.
(setq rmail-summary-window-size 10)
(setq mail-yank-prefix "> ")

; See the time on the status line.
(display-time)

; Most people should want to use the Mac command key as the meta key
; so dead key processing with the Mac option key will work.
(setq mac-command-key-is-meta t)

; Uncomment the following to edit files directly in Mac Roman
; encoding.  Visit a file with M-x find-file-literally instead of C-x
; C-f.
;
; (let
;     ((i 128))
;   (while (<= i 255)
;     (global-set-key (vector i) 'self-insert-command)
;     (setq i (1+ i))))
;
; (standard-display-8bit 128 255)

; Uncomment the following line to use Mac keyboard layouts for
; entering ISO Latin-1 characters.
;
;   (setq mac-keyboard-text-encoding kTextEncodingISOLatin1)
;

; Uncomment the following lines to use traditional Chinese.
;
; (set-language-environment 'Chinese-BIG5)
; (set-input-method 'chinese-b5-tsangchi)
;
; Uncomment the following line to use a traditional Chinese input
; method supported by the Mac OS (e.g., Mac OS + the Chinese Language
; Kit),
;
; (set-keyboard-coding-system 'chinese-big5)

; Uncomment the following line to use Japanese.
;
; (set-language-environment 'Japanese)
;
; To use a Japanese input method supported by the Mac OS (e.g., Mac OS
; + the Japanese Language Kit), uncomment the following line
;
; (set-keyboard-coding-system 'sjis)

; My attempt at making font-lock colors a little nicer.
(custom-set-variables)
(custom-set-faces
 '(font-lock-comment-face ((t (:italic t :foreground "DarkOliveGreen"))))
 '(font-lock-string-face ((t (:foreground "Brown"))))
 '(font-lock-keyword-face ((t (:bold t :foreground "Purple4"))))
 '(font-lock-constant-face ((t (:bold t :foreground "IndianRed4"))))
 '(font-lock-type-face ((t (:bold t :foreground "grey40"))))
 '(font-lock-variable-name-face ((t (:bold t :foreground "Navy"))))
 '(font-lock-builtin-face ((t (:bold t :foreground "Orchid4")))))

; Here is how the font for an indiviual character set can be chosen.
(if (fboundp 'new-fontset)
    (create-fontset-from-fontset-spec
     "-*-fixed-medium-r-normal-*-16-*-*-*-*-*-fontset-mac,
        thai-tis620:-ETL-Fixed-*-*-*-*-16-*-*-*-*-*-tis620.2529-1,
        lao:-Misc-Fixed-*-*-*-*-16-*-*-*-*-*-MuleLao-1,
        vietnamese-viscii-lower:-ETL-Fixed-*-*-*-*-16-*-*-*-*-*-viscii1.1-1,
        vietnamese-viscii-upper:-ETL-Fixed-*-*-*-*-16-*-*-*-*-*-viscii1.1-1,
        chinese-big5-1:-*-Nice Taipei Mono-*-*-*-*-12-*-*-*-*-*-big5,
        chinese-big5-2:-*-Nice Taipei Mono-*-*-*-*-12-*-*-*-*-*-big5,
        chinese-gb2312:-*-Beijing-*-*-*-*-16-*-*-*-*-*-gb2312,
        japanese-jisx0208:-*-\x8d\xd7\x96\xbe\x92\xa9\x91\xcc-*-*-*-*-16-*-*-*-*-*-jisx0208-sjis,
        katakana-jisx0201:-*-*-*-*-*-*-16-*-*-*-*-*-JISX0201.1976-0,
        korean-ksc5601:-*-Seoul-*-*-*-*-16-*-*-*-*-*-ksc5601"
     t))

; Use the fontset we just created
(modify-frame-parameters
 (selected-frame)
 '((height . 44)
   (width . 80)
   (font . "fontset-mac")))

; Here is where I keep my Emacs Lisp info files
(setq
 Info-default-directory-list
 '("~emacs/../elisp-manual-20-2.5/" "~emacs/info"))