(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.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 24bedb699c452786a70c8c806108857311b5c08e..2c87d4f734e063339fdfa4f5ce1b33787b6ac375 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2000-10-18  Miles Bader  <miles@gnu.org>
+
+       * comint.el (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.
+
 2000-10-18  Eli Zaretskii  <eliz@is.elta.co.il>
 
        * diff-mode.el (diff-header-face, diff-file-header-face)

diff --git a/lisp/comint.el b/lisp/comint.el
index dbcd6683fdfa70f829872a5e58e3fbb8c4e6bd3d..8edd77340ee4d7357c81e49989eae8d30170cccb 100644 (file)
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -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 @@ Entry to this mode runs the hooks on `comint-mode-hook'."
   (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 @@ Entry to this mode runs the hooks on `comint-mode-hook'."
   ;; 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 @@ This function could be in the list `comint-output-filter-functions'."
 \f
 ;; 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 @@ Does not delete the prompt."
        (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 @@ REGEXP-GROUP is the regular expression group in REGEXP to use."
 ;;     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
 ;;