mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(comint-mode-map): Merge menu bar item Output into Input.

Browse source 
Rename Completion to Complete.
This commit is contained in:
Richard M. Stallman 1993-10-27 03:32:10 +00:00
parent 281f8b0919
commit dcab7fbdad
1 changed files with 16 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

35
lisp/comint.el
View file

@ -428,7 +428,7 @@ Entry to this mode runs the hooks on `comint-mode-hook'."
;; Menu bars:
;; completion:
(define-key comint-mode-map [menu-bar completion]
(cons "Completion" (make-sparse-keymap "Completion")))
(cons "Complete" (make-sparse-keymap "Complete")))
(define-key comint-mode-map [menu-bar completion complete-expand]
'("Expand File Name" . comint-replace-by-expanded-filename))
(define-key comint-mode-map [menu-bar completion complete-listing]
@ -445,11 +445,25 @@ Entry to this mode runs the hooks on `comint-mode-hook'."
'("Complete Before Point" . comint-dynamic-complete))
;; Input history:
(define-key comint-mode-map [menu-bar input]
(cons "Input" (make-sparse-keymap "Input")))
(cons "In/Out" (make-sparse-keymap "In/Out")))
(define-key comint-mode-map [menu-bar input kill-output]
'("Kill Current Output Group" . comint-kill-output))
(define-key comint-mode-map [menu-bar input next-prompt]
'("Forward Output Group" . comint-next-prompt))
(define-key comint-mode-map [menu-bar input previous-prompt]
'("Backward Output Group" . comint-previous-prompt))
(define-key comint-mode-map [menu-bar input show-maximum-output]
'("Show Maximum Output" . comint-show-maximum-output))
(define-key comint-mode-map [menu-bar input show-output]
'("Show Current Output Group" . comint-show-output))
(define-key comint-mode-map [menu-bar input kill-input]
'("Kill Current Input" . comint-kill-input))
(define-key comint-mode-map [menu-bar input copy-input]
'("Copy Old Input" . comint-copy-old-input))
(define-key comint-mode-map [menu-bar input forward-matching-history]
'("Forward Matching Input..." . comint-forward-matching-input))
(define-key comint-mode-map [menu-bar input backward-matching-history]
'("Backward Matching Input..." . comint-backward-matching-input))
(define-key comint-mode-map [menu-bar input next-matching-history]
'("Next Matching Input..." . comint-next-matching-input))
(define-key comint-mode-map [menu-bar input previous-matching-history]
@ -466,23 +480,6 @@ Entry to this mode runs the hooks on `comint-mode-hook'."
'("List Input History" . comint-dynamic-list-input-ring))
(define-key comint-mode-map [menu-bar input expand-history]
'("Expand History Before Point" . comint-replace-by-expanded-history))
;; Output:
(define-key comint-mode-map [menu-bar output]
(cons "Output" (make-sparse-keymap "Output")))
(define-key comint-mode-map [menu-bar output kill-output]
'("Kill Current Output Group" . comint-kill-output))
(define-key comint-mode-map [menu-bar input forward-matching-history]
'("Forward Matching Input..." . comint-forward-matching-input))
(define-key comint-mode-map [menu-bar input backward-matching-history]
'("Backward Matching Input..." . comint-backward-matching-input))
(define-key comint-mode-map [menu-bar output next-prompt]
'("Forward Output Group" . comint-next-prompt))
(define-key comint-mode-map [menu-bar output previous-prompt]
'("Backward Output Group" . comint-previous-prompt))
(define-key comint-mode-map [menu-bar output show-maximum-output]
'("Show Maximum Output" . comint-show-maximum-output))
(define-key comint-mode-map [menu-bar output show-output]
'("Show Current Output Group" . comint-show-output))
;; Signals
(define-key comint-mode-map [menu-bar signals]
(cons "Signals" (make-sparse-keymap "Signals")))