- (let ((inout-menu (make-sparse-keymap "In/Out")))
- (define-key map [menu-bar inout]
- (cons "In/Out" inout-menu))
- (define-key inout-menu [kill-output]
- '("Kill Current Output Group" . term-kill-output))
- (define-key inout-menu [next-prompt]
- '("Forward Output Group" . term-next-prompt))
- (define-key inout-menu [previous-prompt]
- '("Backward Output Group" . term-previous-prompt))
- (define-key inout-menu [show-maximum-output]
- '("Show Maximum Output" . term-show-maximum-output))
- (define-key inout-menu [show-output]
- '("Show Current Output Group" . term-show-output))
- (define-key inout-menu [kill-input]
- '("Kill Current Input" . term-kill-input))
- (define-key inout-menu [copy-input]
- '("Copy Old Input" . term-copy-old-input))
- (define-key inout-menu [forward-matching-history]
- '("Forward Matching Input..." . term-forward-matching-input))
- (define-key inout-menu [backward-matching-history]
- '("Backward Matching Input..." . term-backward-matching-input))
- (define-key inout-menu [next-matching-history]
- '("Next Matching Input..." . term-next-matching-input))
- (define-key inout-menu [previous-matching-history]
- '("Previous Matching Input..." . term-previous-matching-input))
- (define-key inout-menu [next-matching-history-from-input]
- '("Next Matching Current Input" . term-next-matching-input-from-input))
- (define-key inout-menu [previous-matching-history-from-input]
- '("Previous Matching Current Input" .
- term-previous-matching-input-from-input))
- (define-key inout-menu [next-history]
- '("Next Input" . term-next-input))
- (define-key inout-menu [previous-history]
- '("Previous Input" . term-previous-input))
- (define-key inout-menu [list-history]
- '("List Input History" . term-dynamic-list-input-ring))
- (define-key inout-menu [expand-history]
- '("Expand History Before Point" . term-replace-by-expanded-history)))
-
- (define-key map [menu-bar signals] term-signals-menu)
-
- map))
+ (easy-menu-define nil map "In/Out menu for Term mode."
+ '("In/Out"
+ ["Expand History Before Point" term-replace-by-expanded-history
+ term-input-autoexpand]
+ ["List Input History" term-dynamic-list-input-ring t]
+ ["Previous Input" term-previous-input t]
+ ["Next Input" term-next-input t]
+ ["Previous Matching Current Input"
+ term-previous-matching-input-from-input t]
+ ["Next Matching Current Input" term-next-matching-input-from-input t]
+ ["Previous Matching Input..." term-previous-matching-input t]
+ ["Next Matching Input..." term-next-matching-input t]
+ ["Backward Matching Input..." term-backward-matching-input t]
+ ["Forward Matching Input..." term-forward-matching-input t]
+ ["Copy Old Input" term-copy-old-input t]
+ ["Kill Current Input" term-kill-input t]
+ ["Show Current Output Group" term-show-output t]
+ ["Show Maximum Output" term-show-maximum-output t]
+ ["Backward Output Group" term-previous-prompt t]
+ ["Forward Output Group" term-next-prompt t]
+ ["Kill Current Output Group" term-kill-output t]))
+ map)
+ "Keymap for Term mode.")