[View] [Edit] [Attachments] [History] [Home] [Changes] [Search] [Help]

elisp メジャーモード


まだメジャーモードがどういうものか良く分かっていないが、とりあえず最低限動くものを。
参考 http://www.gentei.org/~yuuji/elisp/elisplec_toc.html

;;; カーソル移動が逆になるモード
(defun reverse-mode ()
  (interactive)
  (setq major-mode 'reverse-mode)		; モードを表す好きなシンボルを入れる。
  (setq mode-name "Reverse")		; モードを表す好きな文字列を入れる
  (let ((keymap (make-keymap)))			; キーマップの準備
	(define-key keymap "\C-p" 'next-line)
	(define-key keymap "\C-n" 'previous-line)
	(define-key keymap "\C-f" 'backward-char)
	(define-key keymap "\C-b" 'forward-char)
	(use-local-map keymap))				; 作成したキーマップを適用
)

ようするにモードというのは、バッファローカルな変数を纏めた物と言えるのかな?


Link to this Page

propella home