Mercurial > emacs
changeset 32613:6aece997f0f9
(comint-delete-output): Renamed from `comint-kill-output'.
(comint-kill-output): Changed into an alias for `comint-delete-output',
and made obsolete.
(comint-mode-map): Rename references to comint-kill-output.
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Wed, 18 Oct 2000 14:08:27 +0000 |
| parents | b581c3736c4f |
| children | f7e2af2956f4 |
| files | lisp/comint.el |
| diffstat | 1 files changed, 9 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/comint.el Wed Oct 18 12:08:07 2000 +0000 +++ b/lisp/comint.el Wed Oct 18 14:08:27 2000 +0000 @@ -80,7 +80,7 @@ ;; c-c c-c comint-interrupt-subjob ^c ;; c-c c-z comint-stop-subjob ^z ;; c-c c-\ comint-quit-subjob ^\ -;; c-c c-o comint-kill-output Delete last batch of process output +;; c-c c-o comint-delete-output Delete last batch of process output ;; c-c c-r comint-show-output Show last batch of process output ;; c-c c-l comint-dynamic-list-input-ring List input history ;; @@ -118,7 +118,7 @@ ;; comint-prompt-regexp string comint-bol uses to match prompt ;; comint-delimiter-argument-list list For delimiters and arguments ;; comint-last-input-start marker Handy if inferior always echoes -;; comint-last-input-end marker For comint-kill-output command +;; comint-last-input-end marker For comint-delete-output command ;; comint-input-ring-size integer For the input history ;; comint-input-ring ring mechanism ;; comint-input-ring-index number ... @@ -548,7 +548,7 @@ (define-key comint-mode-map "\C-c\C-z" 'comint-stop-subjob) (define-key comint-mode-map "\C-c\C-\\" 'comint-quit-subjob) (define-key comint-mode-map "\C-c\C-m" 'comint-copy-old-input) - (define-key comint-mode-map "\C-c\C-o" 'comint-kill-output) + (define-key comint-mode-map "\C-c\C-o" 'comint-delete-output) (define-key comint-mode-map "\C-c\C-r" 'comint-show-output) (define-key comint-mode-map "\C-c\C-e" 'comint-show-maximum-output) (define-key comint-mode-map "\C-c\C-l" 'comint-dynamic-list-input-ring) @@ -572,8 +572,8 @@ ;; Input history: (define-key comint-mode-map [menu-bar inout] (cons "In/Out" (make-sparse-keymap "In/Out"))) - (define-key comint-mode-map [menu-bar inout kill-output] - '("Kill Current Output Group" . comint-kill-output)) + (define-key comint-mode-map [menu-bar inout delete-output] + '("Delete Current Output Group" . comint-delete-output)) (define-key comint-mode-map [menu-bar inout next-prompt] '("Forward Output Group" . comint-next-prompt)) (define-key comint-mode-map [menu-bar inout previous-prompt] @@ -1870,7 +1870,7 @@ ;; Random input hackage -(defun comint-kill-output () +(defun comint-delete-output () "Kill all output from interpreter since last input. Does not delete the prompt." (interactive) @@ -1887,6 +1887,8 @@ (delete-region pmark (point)))) ;; Output message and put back prompt (comint-output-filter proc replacement))) +(defalias 'comint-kill-output 'comint-delete-output) +(make-obsolete 'comint-kill-output 'comint-delete-output "21.1") (defun comint-show-output () "Display start of this batch of interpreter output at top of window. @@ -3035,7 +3037,7 @@ ;; stop-shell-subjob comint-stop-subjob ;; quit-shell-subjob comint-quit-subjob ;; kill-shell-subjob comint-kill-subjob -;; kill-output-from-shell comint-kill-output +;; kill-output-from-shell comint-delete-output ;; show-output-from-shell comint-show-output ;; copy-last-shell-input Use comint-previous-input/comint-next-input ;;