Editor/emacs の履歴(No.12)

Editor

目次†

↑

Links†

Meadow/Emacs memo
Programming in Emacs Lisp [ja]
Emacs 活用法
navi.el（関数の一覧表示とジャンプ）
- fume-mode.el は XEmacsでしか使えないが、これはemacsで使える。
Emacs Lispまとめ

CEDET
- Undo-tree.el

↑

emacs / XEmacs 共通†

↑

表示関連†

(setq frame-title-format (format "emacs@%s : %%f" (system-name)))	; タイトルバーの表示書式にファイル名を入れる

↑

Time-stamp†

; Time-stamp
; http://homepage.mac.com/zenitani/elisp-j.html#time-stamp
(require 'time-stamp)
(setq time-stamp-start "Last updated: <")	; 開始文字列の設定。通常は "Time-stamp: <>"
;; 日本語で日付を入れたくないのでlocaleをCにする
(defun time-stamp-with-locale-c ()
  (let ((system-time-locale "C"))
    (time-stamp)
    nil))
(if (not (memq 'time-stamp-with-locale-c write-file-hooks))
    (add-hook 'write-file-hooks 'time-stamp-with-locale-c))
; (setq time-stamp-format "%3a %3b %02d %02H:%02M:%02S %Z %:y")
(setq time-stamp-format "%04y/%02m/%02d %02H:%02M:%02S %Z")	; YYYY/MM/DD HH:MM:SS JST

↑

文字数を数える†

対象領域を選択し、
```
M-x: count-lines-region
```
または
```
M-=
```
とする。
行数と文字数が表示される。文字数は、全角も半角もそれぞれ１文字として扱われる。

↑

isearch で、カーソルの位置にある単語を検索対象にする†

isearch時に、 C-w と打てばOK

↑

shell-mode で制御文字を処理する†

; shell-mode で制御文字を処理する。
(autoload 'ansi-color-for-comint-mode-on "ansi-color"
          "Set `ansi-color-for-comint-mode' to t." t)
(add-hook 'shell-mode-hook 'ansi-color-for-comint-mode-on)

↑

ファイルを read-only で開く†

C-x C-r

↑

バックアップファイルを作らないようにする†

(setq make-backup-files nil)  ; *.~ とかのバックアップファイルを作らない
(setq auto-save-default nil)  ; .#* とかのバックアップファイルを作らない

↑

選択領域を [DEL] で一気に消せるようにする†

; (setq delete-selection-mode t)
(delete-selection-mode)

↑

HTML文書編集での自動補完†

yahtmlを使う（yahtmlは、YaTeXに付属しているもの）。
参考リンク

↑

色設定†

${HOME}/.bashrc での、emacs/XEmacs の色設定

alias emacsk='emacs -bg "#303030" -fg white'
alias emacsb='emacs -bg azure'
alias emacsy='emacs -bg lightyellow'
alias emacsg='emacs -bg "#e0ffe0"'
alias emacsr='emacs -bg "#fff5f5"'

alias xemacs='/usr/bin/xemacs21'
alias xemacsb='xemacs -bg azure'
alias xemacsy='xemacs -bg lightyellow'
alias xemacsg='xemacs -bg "#e0ffe0"'
alias xemacsr='xemacs -bg "#fff5f5"'

↑

emacs only†

↑

{menu|tool}-barを消す†

(tool-bar-mode 0)		; tool bar を表示しない
(menu-bar-mode 0)		; menu bar を表示しない
(which-function-mode 1)	; 現在の関数名をモードラインに表示

↑

前のウインドウに戻る†

; XEmacsにはあるが、emacsにはない（！）
; http://matome.replore.com/index.php?title=Emacs_Lisp%E3%81%BE%E3%81%A8%E3%82%81
; xemacsに合わせて、関数名を backward-other-window に変更。
; (defun other-window-backward (&optional n)
(defun backward-other-window (&optional n)
  "Select nth previous window."
  (interactive "P")
  (other-window (- (prefix-numeric-value n))))

↑

起動済みのemacs にファイルを渡す (emacsclient)†

emacs起動時に、emacs-serverが起動するようにしておく必要がある。
- .emacs に以下の行がなければ追記する：
```
(server-start)
```
起動済みのemacsに、コマンドラインからファイルを渡す方法
```
$ emacsclient <file-name> &
```
- ファイルを送っただけのようで、実際には送り先のemacsとは別プロセスとして稼働するらしい。 '&' を付けないと、コマンドを打った端末のフォアグラウンドジョブになってしまう。
- 上記コマンドを打った端末を終了すると、送り先のemacsからも、送られたファイルのエントリが消えてしまうので注意すること。
- どうしてもemacsclientを起動した端末が死んでも構わないようにしたいなら、nohupコマンドから起動すればよい。
```
$ nohup emacslient <file-name> &
```
  →Process#never-kill

↑

XEmacs only†

↑

fume-mode†

;=========================================================
; fume-mode (XEmacs only)
(defun function-menu-mode()
  (interactive)
  (fume-mode t)
  (fume-add-menubar-entry t)) ; モード行に現在カーソルがある関数の名前を表示

(global-set-key "\C-\M-l" 'function-menu-mode)	; function-menu-mode に入る

↑

using Unicode†

emacsでは使えるのに、何故かXEmacsのdefaultでは使えないUnicode. 使えるようにするには、以下をinit.elに追記する：

(require 'un-define)
(unless (emacs-version>= 21 5 6)
  (require 'mule-ucs-unicode "unicode"))
(set-coding-category-system 'utf-8 'utf-8)
(set-coding-priority-list '(utf-8))


(load "term/keyswap")
(global-set-key [backspace] 'backward-delete-char)
(keyboard-translate ?\C-h 'backspace)
(global-set-key [delete] 'delete-char)

↑

ホイールマウスのスクロールを有効にする†

(autoload
  'mwheel-install "mwheel" "Enabal mouse wheel support.")
(mwheel-install)

↑

多言語入力†

↑

ドイツ語†

M-x set-input-method german
ウムラウトは以下のキー入力にて。ちなみに z と y が入れ替わるので、慣れてない人は注意！
Character Key binding

ä C-x 8 " a

ü C-x 8 " u

ö C-x 8 " o

Character	Key binding
ä	C-x 8 " a
ü	C-x 8 " u
ö	C-x 8 " o