Emacs 23.2 で ~/.emacs.d/init.el は
(setq inhibit-startup-message t)
(global-set-key "\C-cG" 'goto-line)
; ----------- 日本語の設定はこれで良いと言われています --------
(set-language-environment 'Japanese)
(prefer-coding-system 'utf-8)
; ---------------------- 日本語入力 ---------------------------
;(setq default-input-method "MacOSX"); ことえりを使う。
(setq default-input-method "japanese-egg-anthy"); Anthyを使う。
(load-library "egg/anthy")
; 句点は全角ピリオド
(setq its-hira-period "。")
; 句点は全角カンマ
(setq its-hira-comma "，")
;
(eval-after-load "its"
'(define-its-state-machine-append its-hira-map
(its-defrule "dhi" "でぃ")
(its-defrule "dhu" "でゅ")
(its-defrule "thi" "てぃ")
)
)
(global-set-key '[67109029] 'toggle-input-method); C-\ 大好き
; ------ Backspace は C-h にしたい、Backspace で消したいという場合 ------
;(global-set-key "\C-h" 'delete-backward-char)
; ----------------------- YaTeX ------------------------------
(load "yatex-startup.el")
(setq dvi2-command "pxdvi -geo -0+0 -paper a4 -s 6")
(defvar YaTeX-dvi2-command-ext-alist
'(("open" . ".pdf")
("gv" . ".ps")
("pxdvi\\|xdvi\\|dvipdfmx" . ".dvi")
)
)
; -------------------------- Mew ------------------------------
(autoload 'mew "mew" nil t)
(autoload 'mew-send "mew" nil t)
(if (boundp 'read-mail-command)
(setq read-mail-command 'mew))
(autoload 'mew-user-agent-compose "mew" nil t)
(if (boundp 'mail-user-agent)
(setq mail-user-agent 'mew-user-agent))
(if (fboundp 'define-mail-user-agent)
(define-mail-user-agent
'mew-user-agent
'mew-user-agent-compose
'mew-draft-send-message
'mew-draft-kill
'mew-send-hook))
(setq mew-from-list '("Katsurada Masashi <[email protected]>" "Katsurada Masashi <[email protected]>"))
; -----------------------------------------------------------
; The next three lines are for html-helper-mode
(autoload 'html-helper-mode "html-helper-mode" "Yay HTML" t)
(setq auto-mode-alist (cons '("\\.html$" . html-helper-mode) auto-mode-alist))
(setq html-helper-build-new-buffer t)
(setq html-helper-do-write-file-hooks t)
(setq html-helper-address-string
"<a href=\"mailto:gonbe＠math.meiji.ac.jp\">gonbe＠math.meiji.ac.jp</a> （＠はASCIIの@）")
;;;;;;;;;;;
(defun insert-time ()
(interactive)
(let ((tim (decode-time (current-time))))
(insert (format "%4d/%d/%d %02d:%02d:%02d"
(nth 5 tim) (nth 4 tim)
(nth 3 tim) (nth 2 tim)
(nth 1 tim) (nth 0 tim)))
))
(global-set-key "\C-xt" 'insert-time)
|