iriya_ufo’s blog

Curiosity was simply the first derivative of knowledge.

M-x info-lookup-symbol

これなんだろう?

と思った時に,

M-x info

と打ってリファレンスから探すという時間の無駄をしていた.

該当しない箇所をなんとなく眺める,というのもいいことだとは思うけど,
時間が無いような時にピンポイントで探すには全然向いてない.

ささっと探したいときは,

M-x info-lookup-symbol

とするとよい.

以下は Gauche で使うと便利な elisp です.

;;====================================
;; Gauche info
;;====================================
(eval-after-load "info-look"
  '(progn
     (info-lookup-add-help
      :topic 'symbol
      :mode 'scheme-mode
      :regexp "[^()`',\"\t\n]+"
      :ignore-case t
      :doc-spec '(("(gauche-refj.info)Index - 手続きと構文索引" nil
                   "^ -+ [^:]+: *" "[\n ]")
                  ("(gauche-refj.info)Index - モジュール索引" nil
                   "^ -+ [^:]+: *" "[\n ]")
                  ("(gauche-refj.info)Index - クラス索引" nil
                   "^ -+ [^:]+: *" "[\n ]")
                  ("(gauche-refj.info)Index - 変数索引" nil
                   "^ -+ [^:]+: *" "[\n ]")
                  ("(slib.info)Index" (lambda (item) (concat item " <slib>"))
                   "^ -+ [^:]+: *" "[\n ]")
                  ("(r5rs)Index" (lambda (item) (concat item " <r5rs>"))
                   "^[ \t]+-+ [^:]+:[ \t]*" "[\n ]"))
      :parse-rule "[^()`',\" \t\n]+"
      :other-modes nil)

     (info-lookup-add-help
      :mode 'inferior-scheme-mode
      :other-modes '(scheme-mode))
     ))

id:masa_edw さんより,(define-key global-map "\M-?" 'info-lookup-symbol) って,elisp 付け足しておくといいかもね,と助言あったので書き足しました.便利.