Mercurial > emacs
comparison lisp/term.el @ 93674:44fab469d68d
* outline.el (outline-mode-menu-bar-map):
* term.el (terminal-signal-menu): Add :help.
* net/eudc.el (eudc-mode-map): Declare and define in one step.
(eudc-tail-menu, eudc-server-menu, eudc-tools-menu): Add :help.
* emacs-lisp/re-builder.el (reb-mode-map):
* textmodes/nroff-mode.el (nroff-mode-map): Add menus.
author | Dan Nicolaescu <dann@ics.uci.edu> |
---|---|
date | Fri, 04 Apr 2008 22:45:01 +0000 |
parents | 402ee2cfca27 |
children | 0e59bf9fa65c |
comparison
equal
deleted
inserted
replaced
93673:928315b10669 | 93674:44fab469d68d |
---|---|
775 (unless (featurep 'xemacs) | 775 (unless (featurep 'xemacs) |
776 ;; terminal: | 776 ;; terminal: |
777 (let (newmap) | 777 (let (newmap) |
778 (setq newmap (make-sparse-keymap "Terminal")) | 778 (setq newmap (make-sparse-keymap "Terminal")) |
779 (define-key newmap [terminal-pager-enable] | 779 (define-key newmap [terminal-pager-enable] |
780 '("Enable paging" . term-fake-pager-enable)) | 780 '(menu-item "Enable paging" term-fake-pager-enable |
781 :help "Enable paging feature")) | |
781 (define-key newmap [terminal-pager-disable] | 782 (define-key newmap [terminal-pager-disable] |
782 '("Disable paging" . term-fake-pager-disable)) | 783 '(menu-item "Disable paging" term-fake-pager-disable |
784 :help "Disable paging feature")) | |
783 (define-key newmap [terminal-char-mode] | 785 (define-key newmap [terminal-char-mode] |
784 '("Character mode" . term-char-mode)) | 786 '(menu-item "Character mode" term-char-mode |
787 :help "Switch to char (raw) sub-mode of term mode")) | |
785 (define-key newmap [terminal-line-mode] | 788 (define-key newmap [terminal-line-mode] |
786 '("Line mode" . term-line-mode)) | 789 '(menu-item "Line mode" term-line-mode |
790 :help "Switch to char (raw) sub-mode of term mode.")) | |
787 (setq term-terminal-menu (cons "Terminal" newmap)) | 791 (setq term-terminal-menu (cons "Terminal" newmap)) |
788 | 792 |
789 ;; completion: (line mode only) | 793 ;; completion: (line mode only) |
790 (defvar term-completion-menu (make-sparse-keymap "Complete")) | 794 (defvar term-completion-menu (make-sparse-keymap "Complete")) |
791 (define-key term-mode-map [menu-bar completion] | 795 (define-key term-mode-map [menu-bar completion] |
839 (define-key term-inout-menu [expand-history] | 843 (define-key term-inout-menu [expand-history] |
840 '("Expand History Before Point" . term-replace-by-expanded-history)) | 844 '("Expand History Before Point" . term-replace-by-expanded-history)) |
841 | 845 |
842 ;; Signals | 846 ;; Signals |
843 (setq newmap (make-sparse-keymap "Signals")) | 847 (setq newmap (make-sparse-keymap "Signals")) |
844 (define-key newmap [eof] '("EOF" . term-send-eof)) | |
845 (define-key newmap [kill] '("KILL" . term-kill-subjob)) | |
846 (define-key newmap [quit] '("QUIT" . term-quit-subjob)) | |
847 (define-key newmap [cont] '("CONT" . term-continue-subjob)) | |
848 (define-key newmap [stop] '("STOP" . term-stop-subjob)) | |
849 (define-key newmap [] '("BREAK" . term-interrupt-subjob)) | |
850 (define-key term-mode-map [menu-bar signals] | 848 (define-key term-mode-map [menu-bar signals] |
851 (setq term-signals-menu (cons "Signals" newmap))) | 849 (setq term-signals-menu (cons "Signals" newmap))) |
850 (define-key newmap [eof] | |
851 '(menu-item "EOF" term-send-eof | |
852 :help "Send an EOF to the current buffer's process")) | |
853 (define-key newmap [kill] | |
854 '(menu-item "KILL" term-kill-subjob | |
855 :help "Send kill signal to the current subjob")) | |
856 (define-key newmap [quit] | |
857 '(menu-item "QUIT" term-quit-subjob | |
858 :help "Send quit signal to the current subjob.")) | |
859 (define-key newmap [cont] | |
860 '(menu-item "CONT" term-continue-subjob | |
861 :help "Send CONT signal to process buffer's process group")) | |
862 (define-key newmap [stop] | |
863 '(menu-item "STOP" term-stop-subjob | |
864 :help "Stop the current subjob")) | |
865 (define-key newmap [brk] | |
866 '(menu-item "BREAK" term-interrupt-subjob | |
867 :help "Interrupt the current subjob")) | |
852 )) | 868 )) |
853 | 869 |
854 ;; Set up term-raw-map, etc. | 870 ;; Set up term-raw-map, etc. |
855 | 871 |
856 (defun term-set-escape-char (c) | 872 (defun term-set-escape-char (c) |