Mercurial > emacs

comparison lisp/term.el @ 15420:877d4b6fd768

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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))