namazu-ml(avocado)

[Hajime BABA <baba@xxxxxxxxxxxxxxxxxxxxxx>]

 Date: Thu, 29 Jan 1998 16:35:45 JST
 From: akira yamada / やまだあきら <akira@xxxxxxxxxxx>
 Subject: [namazu:00048] Re: namazu-mode on emacs

 > H> がいいかな。あと、必要かどうかはちょっとアレですが、先頭と最後に移
 > H> 動するために < と > を追加して頂けますでしょうか。
 > これを追加しました. 

さらにキーバインドを増やしてみました(しつこい？ ^_^;)。
移動系コマンドとして、

		前頁	前項	次項	次頁
  普通		P	p	n	N
  普通その2	C-p	BkSp	Space	C-n
  viライク	h	k	j	l
  カーソル	[left]	[up]	[down]	[right]

となってます(コメントにでも入れておいて下さい)。これだけあればたぶ
んカンペキかな。閲覧は g もしくは Returnキーなのは変わっていません。


(if namazu-mode-map
    nil
  (setq namazu-mode-map (make-keymap))
  (suppress-keymap namazu-mode-map)
  (define-key namazu-mode-map "P"    'namazu-prev-page)
  (define-key namazu-mode-map "p"    'namazu-jump-prev)
  (define-key namazu-mode-map "n"    'namazu-jump-next)
  (define-key namazu-mode-map "N"    'namazu-next-page)
  (define-key namazu-mode-map "\C-p" 'namazu-prev-page)
  (define-key namazu-mode-map "\177" 'namazu-jump-prev)
  (define-key namazu-mode-map " "    'namazu-jump-next)
  (define-key namazu-mode-map "\C-n" 'namazu-next-page)
  (define-key namazu-mode-map "h"    'namazu-prev-page)
  (define-key namazu-mode-map "k"    'namazu-jump-prev)
  (define-key namazu-mode-map "j"    'namazu-jump-next)
  (define-key namazu-mode-map "l"    'namazu-next-page)
  (define-key namazu-mode-map [left] 'namazu-prev-page)
  (define-key namazu-mode-map [up]   'namazu-jump-prev)
  (define-key namazu-mode-map [down] 'namazu-jump-next)
  (define-key namazu-mode-map [right] 'namazu-next-page)
  (define-key namazu-mode-map "<"    'beginning-of-buffer)
  (define-key namazu-mode-map ">"    'end-of-buffer)
  (define-key namazu-mode-map "\r"   'namazu-view)
  (define-key namazu-mode-map "g"    'namazu-view)
  (define-key namazu-mode-map "r"    'namazu-re-search)
  (define-key namazu-mode-map "q"    'bury-buffer))

--
馬場  肇 ( Hajime BABA )            E-mail: baba@xxxxxxxxxxxxxxxxxxxxxx
京都大学理学部宇宙物理学教室 博士課程一回生
--