view-modeの設定

ソースを見るときやっぱリードオンリーにすべきだよなって
ことで、C-x C-qを押すようにしています。そうなると片手でも
動かしたいよね、ってことで設定しました。

Emacsテクニックバイブルそのままですけど。

;; view-mode
(setq view-read-only t)
(require 'view)
;; less like
(define-key view-mode-map (kbd "N") 'View-search-last-regexp-backward)
(define-key view-mode-map (kbd "?") 'View-search-regexp-backward )
(define-key view-mode-map (kbd "G") 'View-goto-line-last)
(define-key view-mode-map (kbd "b") 'View-scroll-page-backward)
(define-key view-mode-map (kbd "f") 'View-scroll-page-forward)
;; vi/w3m like
(define-key view-mode-map (kbd "h") 'backward-char)
(define-key view-mode-map (kbd "j") 'next-line)
(define-key view-mode-map (kbd "k") 'previous-line)
(define-key view-mode-map (kbd "l") 'forward-char)
(define-key view-mode-map (kbd "J") 'View-scroll-line-forward)
(define-key view-mode-map (kbd "K") 'View-scroll-line-backward)

本読んで使えそうな設定はどんどん取り込もう。

追記

View-goto-line-lastって関数は Emacs23.2ではないみたい。
なんで以下の定義を追加しました.

(defun View-goto-line-last (&optional line)
  "goto last line"
  (interactive "P")
  (goto-line (line-number-at-pos (point-max))))

Emacsテクニックバイブル　?作業効率をカイゼンする200の技?