;ELC ;;; Compiled by nelhage@mit.edu on Thu May 24 21:08:23 2007 ;;; from file /home/nelhage/.elisp/site/nethack_el-0.9.5/nethack-keys.el ;;; in Emacs version 23.0.0.2 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`nethack-keys.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@35 Vector of accelerator characters. (defvar nh-accelerator-chars [97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 42 35] (#$ . 603)) #@55 A regexp that matches one of the nh-accelerator-chars (defvar nh-accelerator-chars-regexp (byte-code "\301\302\303\304#\305Q\207" [nh-accelerator-chars "[" mapconcat char-to-string nil "]"] 5) (#$ . 871)) #@36 A regexp that matches a menu item. (defvar nh-menu-item-regexp (concat "^\\(" nh-accelerator-chars-regexp "\\) \\([-+]\\|[0-9]+\\) .+$") (#$ . 1083)) #@31 Keymap used in Nethack menus. (defvar nh-menu-mode-map (byte-code "\302 \303!\210\304\305 \"\210\306\307\310#\210\306\311\310#\210\306\312\313#\210\306\314\313#\210\306\315\316#\210\306\317\320#\210\306\321\322#\210\306\323\324#\210\306\325\326#\210\306\327\326#\210)\207" [map nh-accelerator-chars make-sparse-keymap suppress-keymap mapc #[(char) "\302\303 !\304#\207" [map char define-key vector nh-menu-toggle-item] 4] define-key "" nh-menu-submit " " "" nh-menu-cancel "" " " scroll-up "" scroll-down " " nh-menu-goto-next " " nh-menu-goto-prev "," nh-menu-toggle-all-items "-"] 4) (#$ . 1239)) #@33 Keymap used on the Nethack map. (defvar nh-map-mode-map (byte-code "\301 \302!\210\303\304\305#\210\303\306\307#\210\303\310\311#\210\303\312\313#\210\303\314\315#\210\303\316\317#\210\303\320\321#\210\303\322\323#\210\303\324\325#\210\303\326\327#\210\303\330\331#\210\303\332\333#\210\303\334\335#\210\303\336\337#\210\303\340\341#\210\303\342\343#\210\303\344\345#\210\303\346\347#\210\303\350\351#\210\303\352\353#\210\303\354\355#\210\303\356\357#\210\303\360\361#\210\303\362\363#\210\303\364\365#\210\303\366\367#\210\303\370\371#\210\303\372\373#\210\303\374\375#\210\303\376\377#\210\303\201@\201A#\210\303\201B\201C#\210\303\201D\201E#\210\303\201F\201G#\210\303\201H\201I#\210\303\201J\201K#\210\303\201L\201M#\210\303\201N\201O#\210\303\201P\201Q#\210\303\201R\201S#\210\303\201T\201U#\210\303\201V\201W#\210\303\201X\201Y#\210\303\201Z\201[#\210\303\201\\\201]#\210\303\201^\201_#\210\303\201`\201a#\210\303\201b\201c#\210\303\201d\201e#\210\303\201f\201g#\210\303\201h\201i#\210\303\201j\201k#\210\303\201l\201m#\210\303\201n\201o#\210\303\201p\201q#\210\303\201r\201s#\210\303\201t\201u#\210\303\201v\201w#\210\303\201x\201y#\210\303\201z\201{#\210\303\201|\201}#\210\303\201~\201#\210\303\201\200\201\201#\210\303\201\202\201\203#\210\303\201\204\201\205#\210\303\201\206\201\207#\210\303\201\210\201\211#\210\303\201\212\201\213#\210\303\201\214\201\215#\210\303\201\216\201\217#\210\303\201\220\201\221#\210\303\201\222\201\223#\210\303\201\224\201\225#\210\303\201\226\201\227#\210\303\201\230\201\231#\210\303\201\232\201\233#\210\303\201\234\201\235#\210\303\201\236\201\237#\210\303\201\240\201\241#\210\303\201\242\201\243#\210\303\201\244\201\245#\210\303\201\246\201\247#\210\303\201\250\201\251#\210\303\201\252\201\253#\210\303\201\254\201\255#\210\303\201\256\201\257#\210\303\201\260\201\261#\210\303\201\262\201\263#\210\303\201\264\201\265#\210\303\201\266\201\267#\210\303\201\270\201\271#\210\303\201\272\201\273#\210\303\201\274\201\275#\210\303\201\276\201\277#\210\303\201\300\201\301#\210\303\201\302\201\303#\210\303\201\304\201\305#\210\303\201\306\201\307#\210\303\201\310\201\311#\210\303\201\312\201\313#\210\303\201\314\201\315#\210\303\201\316\201\317#\210\303\201\320\201\321#\210\303\201\322\201\323#\210\303\201\324\201\325#\210\303\201\326\201\327#\210\303\201\330\201\331#\210\303\201\332\201\333#\210\303\201\334\201\335#\210\303\201\336\201\337#\210\303\201\340\201\341#\210\303\201\342\201\343#\210\303\201\344\201\345#\210\303\201\346\201\347#\210\303\201\350\201\351#\210\303\201\352\201\353#\210\303\201\354\201\355#\210)\207" [map make-sparse-keymap suppress-keymap define-key "_" nethack-command-travel "^" nethack-command-identify-trap "" nethack-command-redo-previous "" nethack-command-kick "" nethack-command-previous-message "" nethack-command-redraw-screen "" nethack-command-teleport-around-level "\372" nethack-command-suspend-game "a" nethack-command-apply "A" nethack-command-remove-all-armor "b" nethack-command-southwest "B" nethack-command-southwest-until-ontop "\202" nethack-command-southwest-until-near "c" nethack-command-close-door "C" nethack-command-call-monster "d" nethack-command-drop "D" nethack-command-drop-specific-item "e" nethack-command-eat "E" nethack-command-engrave "f" nethack-command-fire "F" nethack-command-force-fight "g" nethack-command-move-until-near "G" nethack-command-move "h" nethack-command-west "H" nethack-command-west-until-ontop "\210" nethack-command-west-until-near "i" nethack-command-inventory "I" nethack-command-type-inventory "j" nethack-command-south "J" nethack-command-south-until-ontop "\212" nethack-command-south-until-near "k" nethack-command-north "K" nethack-command-north-until-ontop "\213" nethack-command-north-until-near "l" nethack-command-east "L" nethack-command-east-until-ontop "\214" nethack-command-east-until-near "m" nethack-command-move-no-pickup-or-fight "M" nethack-command-move-distance-no-pickup "n" nethack-command-southeast "N" nethack-command-southeast-until-ontop "\216" nethack-command-southeast-until-near "o" nethack-command-open "O" nethack-command-settings "p" nethack-command-pay "P" nethack-command-put-on "q" nethack-command-quaff "Q" nethack-command-select-ammo-for-quiver "r" nethack-command-read "R" nethack-command-remove-accessory "s" nethack-command-search "S" nethack-command-save-game "t" nethack-command-throw "T" nethack-command-remove-single-armor "u" nethack-command-northeast "U" nethack-command-northeast-until-ontop "\225" nethack-command-northeast-until-near "v" nethack-command-version "V" nethack-command-version-and-history "w" nethack-command-wield "W" nethack-command-wear-armor "x" nethack-command-swap-weapons "X" nethack-command-explore-mode "y" nethack-command-northwest "Y" nethack-command-northwest-until-ontop "\231" nethack-command-northwest-until-near "z" nethack-command-zap-wand "Z" nethack-command-cast-spell "<" nethack-command-up ">" nethack-command-down "/" nethack-command-what-is-symbol "?" nethack-command-help "&" nethack-command-command-help "!" nethack-command-shell "\\" nethack-command-show-discoveries "." nethack-command-rest-one-move ":" nethack-command-look-here ";" nethack-command-what-is-map-piece "," nethack-command-pick-up "@" nethack-command-toggle-pickup ")" nethack-command-show-wielded-weapon "[" nethack-command-show-worn-armor "=" nethack-command-show-worn-rings "\"" nethack-command-show-worn-amulet "(" nethack-command-show-tool-in-use "*" nethack-command-show-all-equipment-in-use "$" nethack-command-count-gold "+" nethack-command-list-known-spells "\230" nethack-command-show-attributes "" nethack-command-wizard-detect "" nethack-command-wizard-map "\207" nethack-command-wizard-genesis " " nethack-command-wizard-identify "" nethack-command-wizard-where "" nethack-command-wizard-level-teleport "" nethack-command-wizard-wish "p" nethack-command-pray "a" nethack-command-adjust "c" nethack-command-chat "C" nethack-command-conduct "d" nethack-command-dip "e" nethack-command-enhance "f" nethack-command-force "i" nethack-command-invoke "j" nethack-command-jump "l" nethack-command-loot "m" nethack-command-monster "n" nethack-command-name "o" nethack-command-offer "q" nethack-command-quit "r" nethack-command-rub "s" nethack-command-sit "T" nethack-command-turn "t" nethack-command-twoweapon "u" nethack-command-untrap "v" nethack-command-extended-version "w" nethack-command-wipe] 4) (#$ . 1866)) (provide 'nethack-keys)