From: Reiner Steib <Reiner.Steib@gmx.de>
Date: Fri, 26 May 2006 16:44:53 +0000 (+0000)
Subject: (comint-kill-whole-line): Rename arg to count.  Fix
X-Git-Tag: emacs-pretest-22.0.90~2292
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a8dc674f5f0842870c3f5121f2af7ad82d7237e2;p=emacs.git

(comint-kill-whole-line): Rename arg to count.  Fix
doc string.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 94cffb889dd..b5d0653be1b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-05-26  Reiner Steib  <Reiner.Steib@gmx.de>
+
+	* comint.el (comint-kill-whole-line): Rename arg to count.  Fix
+	doc string.
+
 2006-05-26  Chong Yidong  <cyd@stupidchicken.com>
 
 	* files.el (backup-buffer-copy): Remove deleted MUSTBENEW argument
diff --git a/lisp/comint.el b/lisp/comint.el
index 1b9d8df738f..20b7817b9dc 100644
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -2357,19 +2357,19 @@ preceding newline is removed."
 	   (when (eq (get-text-property (1- pt) 'read-only) 'fence)
 	     (remove-list-of-text-properties (1- pt) pt '(read-only)))))))
 
-(defun comint-kill-whole-line (&optional arg)
+(defun comint-kill-whole-line (&optional count)
   "Kill current line, ignoring read-only and field properties.
-With prefix arg, kill that many lines starting from the current line.
-If arg is negative, kill backward.  Also kill the preceding newline,
+With prefix arg COUNT, kill that many lines starting from the current line.
+If COUNT is negative, kill backward.  Also kill the preceding newline,
 instead of the trailing one.  \(This is meant to make \\[repeat] work well
 with negative arguments.)
-If arg is zero, kill current line but exclude the trailing newline.
+If COUNT is zero, kill current line but exclude the trailing newline.
 The read-only status of newlines is updated with `comint-update-fence',
 if necessary."
   (interactive "p")
   (let ((inhibit-read-only t) (inhibit-field-text-motion t))
-    (kill-whole-line arg)
-    (when (>= arg 0) (comint-update-fence))))
+    (kill-whole-line count)
+    (when (>= count 0) (comint-update-fence))))
 
 (defun comint-kill-region (beg end &optional yank-handler)
   "Like `kill-region', but ignores read-only properties, if safe.