Emacsメモ

Carbon Emacsがずいぶんまともになってきたので、 10年ぶりくらいにEmacsを使うことにした。 日本語関係の設定はデフォルトで十分使えるのだけど、 多少いじりたいところもあるので、 備忘録を兼ねて~/.emacs.elファイル。

; なにはさておき \C-h をまともにする
(global-set-key "\C-h" 'delete-backward-char)

; ウィンドウ上部のアイコンの列は使わないので消す
(tool-bar-mode 0)

; text を書くときは行幅60文字で自動fill
(add-hook 'text-mode-hook
	  (function
	   (lambda ()
	     (progn
	       (refill-mode 1)
	       (setq fill-column 60)))))

; TeX では Shift-JIS
(add-hook 'TeX-mode-hook
	  (function
	   (lambda ()
	     (setq buffer-file-coding-system 'sjis)
	     (refill-mode 1)
	     (setq fill-column 60))))

; using Gauche as Scheme interpreter
(setq scheme-program-name "gosh")
(require 'cmuscheme)

(defun scheme-other-window ()
  "Run scheme on other window"
  (interactive)
  (switch-to-buffer-other-window
   (get-buffer-create "*scheme*"))
  (run-scheme scheme-program-name))

(define-key global-map
  "\C-cS" 'scheme-other-window)

(require 'w3m-load)

(add-hook 'w3m-mode-hook
	  (function
	   (lambda ()
	     (progn
	       (setq w3m-use-cookies 1)))))

; w3m の form textarea で改行が LF のままだと通じないので CRLF に
(add-hook 'w3m-form-input-textarea-mode-hook
	  (function
	   (lambda ()
	     (progn
	       (set-buffer-file-coding-system 'utf-8-dos)))))
  

Kaname Funakoshi [home]