Editor/emacs の履歴(No.2)

Editor

目次†

目次
Links
emacs / XEmacs 共通
emacs only
- {menu|tool}-barを消す
- 前のウインドウに戻る
XEmacs only
- fume-mode
- using Unicode

↑

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

↑

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

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

↑

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))))

↑

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)