我的 Emacs 配置文件

(setq inhibit-startup-message t)
 
(add-to-list 'load-path "~/.emacs.d/elisp/color-theme")
(require 'color-theme)
(eval-after-load "color-theme"
  '(progn
     (color-theme-initialize)
     (color-theme-arjen)))
 
(custom-set-faces
  ;; custom-set-faces was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 '(default ((t (:inherit nil :stipple nil :background "black" :foreground "White" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 91 :width normal :foundry "bitstream" :family "Courier 10 Pitch")))))
 
(setq display-time-day-and-date t)
(setq display-time-24hr-format t)
(display-time-mode)
 
(show-paren-mode t)
(tool-bar-mode -1)
 
(setq scroll-margin 3 scroll-conservatively 10000)
 
(add-to-list 'load-path "~/.emacs.d/elisp")
(require 'mmm-mode)
 
(setq mmm-global-mode 'maybe)
;(mmm-add-mode-ext-class nil "\\.php\\'" 'html-php)
;(mmm-add-classes
; '((html-php
;    :submode php-mode
;    :front "<\\?\\(php\\)?"
 
;    :back "\\?>"
;    )))
(load "php-mode")
 
(add-to-list 'auto-mode-alist
	     '("\\.php[34]?\\'\\|]].phtml\\'" . php-mode))
 
(custom-set-variables
  ;; custom-set-variables was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 '(column-number-mode t))
 
(setq frame-title-format "emacs@%b")