emacs for Carbonを作る


海上忍さんのコラム で emacs for Carbonの話が載っていたので、ためしにインストールを試みる。

しかし、ここで掲載されている CVSの使い方では、ソースがダウンロードされないんじゃないか?

$ export CVS_RSH="ssh"
$ cvs -z3 -d:ext:anoncvs@savannah.gnu.org:/cvsroot/emacs co emacs

こちらのページ で確認

% cd /work
% cvs -z3 -d :ext:anoncvs@savannah.gnu.org:/cvsroot/emacs checkout -P emacs

あれ、比較してみるとおなじだぞ。修正されたのかな。昨日見たときには、/cvsrootではなくて/webrootだったような気がするんだが。勘違い?

とりあえずコンパイルできたが、.emacsの設定がうまくいっていない。おいおい確認することにしよう。

【2004.2.18追記】
海上忍さんの次の週のコラム に .emacsの記述が書いてあったのでそれを参考にすると、無事にこれまでのファイルも読めるようになった。フォント設定などは、次週の話になるらしい。このプログラムを使うと、ATOKも使える(ただし、インライン変換ではない)、Xを起動しなくてもemacsが使える、などいいことが多い。

ついでなので、海上さんの .emacs に私の追加分をつけくわえたものを掲載しておく。

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; -*- Coding: iso-2022-jp -*- JIS(ISO-2022-JP)で保存
;; Time-stamp: <2004/02/18 21:36:55 nojima /Users/nojima/.emacs>
(set-language-environment 'Japanese)
(set-default-coding-systems 'euc-jp-unix)
(set-buffer-file-coding-system 'euc-jp-unix)
(set-clipboard-coding-system 'sjis-mac)
(utf-translate-cjk-mode 1)
(set-file-name-coding-system 'utf-8)
(if window-system
(set-keyboard-coding-system 'sjis-mac)
(progn
(set-keyboard-coding-system 'utf-8)
(set-terminal-coding-system 'utf-8)))
;; PATH
(setq exec-path (cons "/usr/local/bin" exec-path))
(setenv "PATH"
(concat '"/usr/local/bin" (getenv "PATH")))
;;Color
(if window-system (progn
(setq initial-frame-alist '((width . 80) (height . 45)))
(set-background-color "RoyalBlue4")
(set-foreground-color "LightGray")
(set-cursor-color "Gray")
))
(load "time-stamp")
(setq time-stamp-format "%:y/%02m/%02d %02H:%02M:%02S %U %F")

(add-hook 'write-file-hooks 'time-stamp)
(add-hook 'text-mode-hook 'turn-on-auto-fill)

(defun my-insert-current-time-string ()
"時間を記録する"
(interactive)
(save-excursion
(insert (current-time-string))))
(setq text-mode-hook '(lambda () (auto-fill-mode 1)
(setq fill-column 70)) )
(define-key global-map "¥M-t" 'my-insert-current-time-string)

投稿日時: 日 - 2月 15, 2004 at 10:19 åflëO        


©