Mercurial > emacs
comparison lisp/term.el @ 15420:877d4b6fd768
(term-terminal-menu): Don't make a self-recursive keymap.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Wed, 12 Jun 1996 21:45:45 +0000 |
parents | ba353653c03a |
children | ea6697d31d1c |
comparison
equal
deleted
inserted
replaced
15419:424ef4258b34 | 15420:877d4b6fd768 |
---|---|
521 '("Disable paging" . term-fake-pager-disable)) | 521 '("Disable paging" . term-fake-pager-disable)) |
522 (define-key newmap [terminal-char-mode] | 522 (define-key newmap [terminal-char-mode] |
523 '("Character mode" . term-char-mode)) | 523 '("Character mode" . term-char-mode)) |
524 (define-key newmap [terminal-line-mode] | 524 (define-key newmap [terminal-line-mode] |
525 '("Line mode" . term-line-mode)) | 525 '("Line mode" . term-line-mode)) |
526 (define-key newmap [menu-bar terminal] | 526 (setq term-terminal-menu (cons "Terminal" newmap)) |
527 (setq term-terminal-menu (cons "Terminal" newmap))) | |
528 | 527 |
529 ;; completion: (line mode only) | 528 ;; completion: (line mode only) |
530 (defvar term-completion-menu (make-sparse-keymap "Complete")) | 529 (defvar term-completion-menu (make-sparse-keymap "Complete")) |
531 (define-key term-mode-map [menu-bar completion] | 530 (define-key term-mode-map [menu-bar completion] |
532 (cons "Complete" term-completion-menu)) | 531 (cons "Complete" term-completion-menu)) |