diplodocus.org Git - nmh/blob - docs/historical/mh-6.8.5/miscellany/mhe/mh-keymap.ml

   1 ; This file, when loaded, creates the mh keymap. Explicitly loaded from the
   2 ; root.
   3
   4     (progn loop
   5         (save-excursion
   6             (temp-use-buffer "+inbox")
   7             (define-keymap "&mh-keymap")
   8             (define-keymap "&mh-x-keymap")
   9             (use-local-map "&mh-keymap")
  10             (setq loop 0)
  11             (while (<= loop 127)
  12                 (local-bind-to-key "&mh-summary" loop)
  13                 (setq loop (+ loop 1))
  14             )
  15             (setq loop '0')
  16             (while (<= loop '9')
  17                 (local-bind-to-key "digit" loop)
  18                 (setq loop (+ loop 1))
  19             )
  20             (local-bind-to-key "&mh-help" "?")
  21             (local-bind-to-key "&mh-Mark-file-deleted" "d")
  22             (local-bind-to-key "&mh-Mark-file-deleted" "D")
  23             (local-bind-to-key "&mh-Mark-file-deleted" "\ 4")
  24             (local-bind-to-key "&mh-move" "^")
  25             (local-bind-to-key "&mh-re-move" "!")
  26             (local-bind-to-key "&mh-previous-line" "\\b")
  27             (local-bind-to-key "&mh-previous-line" "\\ 2")
  28             (local-bind-to-key "&mh-previous-line" "p")
  29             (local-bind-to-key "&mh-previous-line" "P")
  30             (local-bind-to-key "previous-line" "\^P")
  31             (local-bind-to-key "next-line" "\^N")
  32             (local-bind-to-key "&mh-next-line" "n")
  33             (local-bind-to-key "&mh-next-line" "N")
  34             (local-bind-to-key "&mh-next-line" "\\ 6")
  35             (local-bind-to-key "redraw-display" "\\f")
  36             (local-bind-to-key "search-forward" "\\13")
  37             (local-bind-to-key "search-reverse" "\\12")
  38             (local-bind-to-key "argument-prefix" "\^U")
  39             (local-bind-to-key "previous-window" "\^Xp")
  40             (local-bind-to-key "previous-window" "\^XP")
  41             (local-bind-to-key "next-window" "\^Xn")
  42             (local-bind-to-key "next-window" "\^XN")
  43             (local-bind-to-key "delete-window" "\^Xd")
  44             (local-bind-to-key "delete-window" "\^XD")
  45             (local-bind-to-key "delete-other-windows" "\^X1")
  46             (local-bind-to-key "visit-file" "\^X\^V")
  47             (local-bind-to-key "next-page" "\^V")
  48             (local-bind-to-key "redraw-display" "\\f")
  49             (local-bind-to-key "previous-page" "\ev")
  50             (local-bind-to-key "previous-page" "\eV")
  51             (local-bind-to-key "scroll-one-line-up" "\1a")
  52             (local-bind-to-key "scroll-one-line-down" "\e\1a")
  53             (local-bind-to-key "beginning-of-file" "\e<")
  54             (local-bind-to-key "end-of-file" "\e>")
  55             (local-bind-to-key "return-to-monitor" "\\1f")
  56             (local-bind-to-key "&mh-unmark" "u")
  57             (local-bind-to-key "&mh-unmark" "U")
  58             (local-bind-to-key "exit-emacs" "\\18\\ 3")
  59             (local-bind-to-key "&mh-show" "t")
  60             (local-bind-to-key "&mh-show" "T")
  61             (local-bind-to-key "&mh-edit" "e")
  62             (local-bind-to-key "&mh-edit" "E")
  63             (local-bind-to-key "&mh-repl" "R")
  64             (local-bind-to-key "&mh-repl" "r")
  65             (local-bind-to-key "&mh-send" "m")
  66             (local-bind-to-key "&mh-send" "M")
  67             (local-bind-to-key "&mh-forw" "f")
  68             (local-bind-to-key "&mh-forw" "F")
  69             (local-bind-to-key "&mh-remove" "\\v")
  70             (local-bind-to-key "&mh-new-folder" "\\18\\ 6")
  71             (local-bind-to-key "&mh-new-folder" "g")
  72             (local-bind-to-key "&mh-new-folder" "G")
  73             (local-bind-to-key "&mh-bboard" "b")
  74             (local-bind-to-key "&mh-bboard" "B")
  75             (local-bind-to-key "&mh-inc" "i")
  76             (local-bind-to-key "&mh-inc" "I")
  77             (local-bind-to-key "&mh-extras" "x")
  78             (local-bind-to-key "&mh-extras" "X")
  79
  80             (temp-use-buffer "mh-xcommands")
  81             (use-local-map "&mh-x-keymap")
  82             (setq loop 0)
  83             (while (<= loop 255)
  84                    (local-bind-to-key "&mh-beep" loop)
  85                    (setq loop (+ loop 1))
  86             )
  87             (local-bind-to-key "exit-emacs" "q")
  88             (local-bind-to-key "next-page" "\16")
  89             (local-bind-to-key "previous-page" "\ev")
  90             (local-bind-to-key "previous-page" "\eV")
  91             (local-bind-to-key "beginning-of-file" "\e<")
  92             (local-bind-to-key "end-of-file" "\e>")
  93             (local-bind-to-key "exit-emacs" "Q")
  94             (local-bind-to-key "exit-emacs" "\18\ 3")
  95         )
  96     )