Return to mh-keymap.ml CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / mh / miscellany / mhe

Annotation of 43BSD/contrib/mh/miscellany/mhe/mh-keymap.ml, revision 1.1

1.1     ! root        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" "")
        !            24:            (local-bind-to-key "&mh-move" "^")
        !            25:            (local-bind-to-key "&mh-re-move" "!")
        !            26:            (local-bind-to-key "&mh-previous-line" "\")
        !            27:            (local-bind-to-key "&mh-previous-line" "\")
        !            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" "\")
        !            35:            (local-bind-to-key "redraw-display" "\")
        !            36:            (local-bind-to-key "search-forward" "\")
        !            37:            (local-bind-to-key "search-reverse" "\")
        !            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" "\")
        !            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" "")
        !            52:            (local-bind-to-key "scroll-one-line-down" "\e")
        !            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" "\")
        !            56:            (local-bind-to-key "&mh-unmark" "u")
        !            57:            (local-bind-to-key "&mh-unmark" "U")
        !            58:            (local-bind-to-key "exit-emacs" "\\")
        !            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" "\")
        !            70:            (local-bind-to-key "&mh-new-folder" "\\")
        !            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" "")
        !            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" "")
        !            95:        )
        !            96:     )

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.