Mercurial > emacs
comparison lisp/progmodes/icon.el @ 32299:4888d3b1cf29
(icon-mode-map): Add name to menu-bar keymap.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Sun, 08 Oct 2000 17:39:40 +0000 |
| parents | d218ef159e45 |
| children | 5323492591dd |
comparison
equal
deleted
inserted
replaced
| 32298:f3d3118f2946 | 32299:4888d3b1cf29 |
|---|---|
| 46 (define-key icon-mode-map "\e\C-e" 'end-of-icon-defun) | 46 (define-key icon-mode-map "\e\C-e" 'end-of-icon-defun) |
| 47 (define-key icon-mode-map "\e\C-q" 'indent-icon-exp) | 47 (define-key icon-mode-map "\e\C-q" 'indent-icon-exp) |
| 48 (define-key icon-mode-map "\177" 'backward-delete-char-untabify) | 48 (define-key icon-mode-map "\177" 'backward-delete-char-untabify) |
| 49 (define-key icon-mode-map "\t" 'icon-indent-command) | 49 (define-key icon-mode-map "\t" 'icon-indent-command) |
| 50 | 50 |
| 51 (define-key icon-mode-map [menu-bar] (make-sparse-keymap)) | 51 (define-key icon-mode-map [menu-bar] (make-sparse-keymap "Icon")) |
| 52 (define-key icon-mode-map [menu-bar icon] | 52 (define-key icon-mode-map [menu-bar icon] |
| 53 (cons "Icon" map)) | 53 (cons "Icon" map)) |
| 54 (define-key map [beginning-of-icon-defun] '("Beginning of function" . beginning-of-icon-defun)) | 54 (define-key map [beginning-of-icon-defun] '("Beginning of function" . beginning-of-icon-defun)) |
| 55 (define-key map [end-of-icon-defun] '("End of function" . end-of-icon-defun)) | 55 (define-key map [end-of-icon-defun] '("End of function" . end-of-icon-defun)) |
| 56 (define-key map [comment-region] '("Comment Out Region" . comment-region)) | 56 (define-key map [comment-region] '("Comment Out Region" . comment-region)) |