初期化ファイルの例

Lisp式を用いてよく行なわれる操作の例を示します．

• Cモードでポイントが行の中ほどにあるときにはTABでタブ文字を挿入する ようにします．

  (setq c-tab-always-indent nil)
  

  ここでは`真'を表すのに変数の値をtに，逆に`偽'を表すのにnil にします．
• 大文字，小文字を区別した探索をデフォルトとします．これについての設定を行 なっていないすべてのバッファに有効になります．

  (setq-default case-fold-search nil)
  

  これはデフォルトの設定をします．この変数にローカルに値を設定していないす べてのバッファに有効です．case-fold-searchにsetqを使って値 を設定しても，それはカレントバッファのローカル値を変えるだけです．これは 初期化ファイルで行なっても意味がないでしょう．
• Textモードを新しいバッファのデフォルトモードにします．

  (setq default-major-mode 'text-mode)
  

  text-modeは望みのモードにはいるためのコマンドですので，これを使用 します．引用符(')をその前につけてシンボルを定数にしています．これがない とtext-modeは変数名として扱われます．
• Textモードおよびその関連モードでAuto Fillモードを自動的にオンにします．

  (setq text-mode-hook
    '(lambda () (auto-fill-mode 1)))
  

  ここではその値がLisp関数である変数を使っています．ここで与えた関数は lambdaで始まるリストで，それが(setqのために)リスト定数であっ て式ではないことを示す引用符が前に付けられています．Lisp関数はここでは説 明されていませんが，モードフックのためには，(auto-fill-mode 1)は Textモードにはいったときに実行される式であり，望みのどんな他の式や，式の 列に置き換えてもよいことをしっておけば十分です．

  (setq text-mode-hook 'turn-on-auto-fill)
  

  これは同じ結果をもたらすもう1つの方法です．turn-on-auto-fillはシ ンボルであり，その関数定義は(lambda () (auto-fill-mode 1))です．
• Emacsに組み込まれたLispライブラリ`foo'(実際の名前は，Emacsの標準の ディレクトリにある`foo.elc'か`foo.el'でしょう)をロードします．

  (load "foo")
  

  loadの引数が`/'や`~'で始まらない相対的なパス名ならば， loadはload-pathのディレクトリを探索します(see section ライブラリのロード)．
• コンパイルされたLispファイル`foo.elc'を利用者のホームディレクトリか らロードします．

  (load "~/foo.elc")
  

  ファイル名が絶対パスで指定されているので，ファイルの探索はしません．
• C-x lがmake-symbolic-link関数を実行するように再定義します．

  (global-set-key "\C-xl" 'make-symbolic-link)
  

  または

  (define-key global-map "\C-xl" 'make-symbolic-link)
  

  繰り返しますが，make-symbolic-linkが変数ではなくシンボルであるこ とを示すために引用符が使われていることに注意しましょう．
• Cモードだけで同じ操作を行ないます．

  (define-key c-mode-map "\C-xl" 'make-symbolic-link)
  

• Fundamentalモードでnext-lineを実行するキーを再割当して，変わりに forward-lineを実行するようにします．

  (substitute-key-definition 'next-line 'forward-line
                             global-map)
  

• C-x C-vを未定義にします．

  (global-unset-key "\C-x\C-v")
  

  キーを未定義にする目的の1つはそれを接頭辞として使えるようにするためです． C-x C-v anythingと定義するだけでこれは接頭辞になります．ただ し，C-x C-vは接頭辞以外の定義がなされていていはいけません．
• `$'がTextモードで句読点の構文クラスになるようにします．`$'を表 す文字定数を使っていることに注意しましょう．

  (modify-syntax-entry ?\$ "." text-mode-syntax-table)
  

• eval-expressionコマンドが利用者への問い合わせなしに使用できるよう にします．

  (put 'eval-expression 'disabled nil)