4. 個人環境設定

4.1 Alt キーを Meta ではなく、Alt キーそのものとして使いたいのですが。
4.2 どうすればリージョンをハイライトする事ができますか？
4.3 どうすれば対応する括弧をハイライトする事ができますか？
4.4 メニューバーやスクロールバーが欝陶しいのですが。
4.5 スクロールバーの表示を切り替えると、スクロールバーが左に現われてしまいます。
4.6 カーソルの位置が何行目かを表示するにはどうしたらいいのでしょうか？
4.7 カーソルの位置が何桁目かを表示するにはどうしたらいいのでしょうか？
4.8 インデント時に、自動的に前の行と同じインデントになるようにするには、 どうしたらいいのでしょうか？
4.9 IME の on と off でカーソルの色を変えたいのですが。
4.10 どうすれば Meadow をもっと Windows のアプリケーションのようにできますか？
4.11 どうすれば *Message* バッファをなくす事ができますか？
4.12 カーソルが行頭にあるときに、C-k を1回打つだけで その行全体が削除されるようにするにはどうしたらいいのでしょうか？
4.13 どうすればモード行のフォントを変える事ができますか？
4.14 どうすれば時間をモード行に表示する事ができますか？
4.15 どうすればモード行の色を変える事ができますか？
4.16 フェイスで使用可能な色の名前は何処にありますか？
4.17 バッファの最後で next-line を実行しても、 新しい行が挿入されないようにして欲しいのですが。
4.18 どうすれば C-, と C-. を画面の一行スクロールにバインドする事ができますか？
4.19 buffer の先頭で previous-line を実行すると、 beginning-of-buffer といってうるさいのですが。
4.20 (setq xxx-hook yyyy) とやってもうまく hook が設定されないのですが。
4.21 minibuffer だけ独立した frame を作るには どうしたらいいのでしょうか？
4.22 ビープ音が鳴るのがうるさいのですが。
4.23 ビープ音を変える事ができますか？

4.1 Alt キーを Meta ではなく、Alt キーそのものとして使いたいのですが。

(w32-set-modifier-key 18 nil) (w32-set-modifier-key 18 'none)

を `.emacs' に書いて下さい。 ちなみに、一行目だけを書くと Alt キーは M-x になります。

4.2 どうすればリージョンをハイライトする事ができますか？

(transient-mark-mode 1)

を `.emacs' に書いて下さい。

4.3 どうすれば対応する括弧をハイライトする事ができますか？

(show-paren-mode 1)

を `.emacs' に書いて下さい。

4.4 メニューバーやスクロールバーが欝陶しいのですが。

• default-frame-alist に追加する方法:

  (setq default-frame-alist '(append (list '(menu-bar . nil) (vertical-scroll-bars . nil)) default-frame-alist))

• 別個にやる方法:

  (menu-bar-mode -1) (scroll-bar-mode -1)

のどちらかを `.emacs' に書いて下さい。

メニューバーを消してからもう一度表示すると、Meadow の画面が一行小さくなっ てしまうようです。これは Meadow 1.10 では修正されています。

4.5 スクロールバーの表示を切り替えると、スクロールバーが左に現われてしまいます。

(setq scroll-bar-mode 'right)

を `.emacs' に書いて下さい。

4.6 カーソルの位置が何行目かを表示するにはどうしたらいいのでしょうか？

(line-number-mode 1)

を `.emacs' に書いて下さい。

4.7 カーソルの位置が何桁目かを表示するにはどうしたらいいのでしょうか？

(column-number-mode 1)

を `.emacs' に書いて下さい。

4.8 インデント時に、自動的に前の行と同じインデントになるようにするには、 どうしたらいいのでしょうか？

(setq indent-line-function
      'indent-relative-maybe)

を `.emacs' に入れて下さい。そうすれば、indent-line-function を再バインドしないモードでは、C-j で前の行と同じインデントにする事 ができます。

4.9 IME の on と off でカーソルの色を変えたいのですが。

(add-hook 'mw32-ime-on-hook (function (lambda () (set-cursor-color "red")))) (add-hook 'mw32-ime-off-hook (function (lambda () (set-cursor-color "black"))))

4.10 どうすれば Meadow をもっと Windows のアプリケーションのようにできますか？

CUA-modeを使えば、 C-c, C-v, C-x 等を Windows と同じように使う事ができま す。また、Meadow に付属している pc-bindings-mode や pc-selection-mode を 使う事ができます。こちらの詳細は、C-h f (describe-function) でそれ ぞれのモードの説明を見て下さい。

4.11 どうすれば *Message* バッファをなくす事ができますか？

(setq message-log-max nil)

(kill-buffer *Message*)

4.12 カーソルが行頭にあるときに、C-k を1回打つだけで その行全体が削除されるようにするにはどうしたらいいのでしょうか？

(setq kill-whole-line t)

を `.emacs' に書いて下さい。

4.13 どうすればモード行のフォントを変える事ができますか？

set-face-font に modeline を指定して下さい。

(set-face-font 'modeline "FONTSET-NAME")

4.14 どうすれば時間をモード行に表示する事ができますか？

(display-time)

4.15 どうすればモード行の色を変える事ができますか？

(set-face-foreground 'modeline "black")
(set-face-background 'modeline "white")

4.16 フェイスで使用可能な色の名前は何処にありますか？

4.17 バッファの最後で next-line を実行しても、 新しい行が挿入されないようにして欲しいのですが。

(setq next-line-add-newlines nil)

を `.emacs' に書いて下さい。

4.18 どうすれば C-, と C-. を画面の一行スクロールにバインドする事ができますか？

(defun scroll-up-one-line ()
  (interactive)
  (scroll-up 1))

(defun scroll-down-one-line ()
  (interactive)
  (scroll-down 1))

(global-set-key [?\C-,] 'scroll-up-one-line)
(global-set-key [?\C-.] 'scroll-down-one-line)

4.19 buffer の先頭で previous-line を実行すると、 beginning-of-buffer といってうるさいのですが。

(defun previous-line (arg) (interactive "p") (if (interactive-p) (condition-case nil (line-move (- arg)) ((beginning-of-buffer end-of-buffer))) (line-move (- arg))) nil)

4.20 (setq xxx-hook yyyy) とやってもうまく hook が設定されないのですが。

(add-hook 'c-mode-hook '(lambda () (setq tab-width 4)))

4.21 minibuffer だけ独立した frame を作るには どうしたらいいのでしょうか？

(setq default-minibuffer-frame
      (make-frame '((name . "Minibuffer")
                    (minibuffer . only)
                    (width . 95)
                    (height . 1)
                    (left . 0)
                    (top . -1)
                    (auto-raise . t)))
      default-frame-alist
      '((minibuffer . nil)
        (width . 80)
        (height . 40)
        (auto-raise . t)))

4.22 ビープ音が鳴るのがうるさいのですが。

(setq visible-bell t)

を `.emacs' に書くと、 画面の1/4位が一瞬反転表示してエラーを知らせるようになります。 注: Meadow 1.00, Meadow 1.01 では動作しないようです。

4.23 ビープ音を変える事ができますか？

(set-message-beep SOUND)

で変える事ができます。 SOUND は 'asterisk, 'exclamation, 'hand, 'question, 'ok を使う事ができます。 nil の場合は普通のビープ音になります。