Mercurial > emacs
comparison lisp/mouse.el @ 1058:19c6978ab218
*** empty log message ***
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 31 Aug 1992 06:47:03 +0000 |
| parents | d9775f33488d |
| children | af78c65921c8 |
comparison
equal
deleted
inserted
replaced
| 1057:d9775f33488d | 1058:19c6978ab218 |
|---|---|
| 507 (defvar help-manual-map '(keymap "Manual and tutorial")) | 507 (defvar help-manual-map '(keymap "Manual and tutorial")) |
| 508 (defvar help-misc-map '(keymap "Odds and ends")) | 508 (defvar help-misc-map '(keymap "Odds and ends")) |
| 509 (defvar help-modes-map '(keymap "Modes")) | 509 (defvar help-modes-map '(keymap "Modes")) |
| 510 (defvar help-admin-map '(keymap "Administrivia")) | 510 (defvar help-admin-map '(keymap "Administrivia")) |
| 511 | 511 |
| 512 (define-key help-menu-map "a" | 512 (define-key help-menu-map [apropos] |
| 513 (cons "Is there a command that..." help-apropos-map)) | 513 (cons "Is there a command that..." help-apropos-map)) |
| 514 (define-key help-menu-map "k" | 514 (define-key help-menu-map [keys] |
| 515 (cons "Key Commands <==> Functions" help-keys-map)) | 515 (cons "Key Commands <==> Functions" help-keys-map)) |
| 516 (define-key help-menu-map "m" | 516 (define-key help-menu-map [manuals] |
| 517 (cons "Manual and tutorial" help-manual-map)) | 517 (cons "Manual and tutorial" help-manual-map)) |
| 518 (define-key help-menu-map "x" | 518 (define-key help-menu-map [misc] |
| 519 (cons "Odds and ends" help-misc-map)) | 519 (cons "Odds and ends" help-misc-map)) |
| 520 (define-key help-menu-map "M" | 520 (define-key help-menu-map [modes] |
| 521 (cons "Modes" help-modes-map)) | 521 (cons "Modes" help-modes-map)) |
| 522 (define-key help-menu-map "z" | 522 (define-key help-menu-map [admin] |
| 523 (cons "Administrivia" help-admin-map)) | 523 (cons "Administrivia" help-admin-map)) |
| 524 | 524 |
| 525 (define-key help-apropos-map "c" '("Command Apropos" . command-apropos)) | 525 (define-key help-apropos-map "c" '("Command Apropos" . command-apropos)) |
| 526 (define-key help-apropos-map "a" '("Apropos" . apropos)) | 526 (define-key help-apropos-map "a" '("Apropos" . apropos)) |
| 527 | 527 |