# HG changeset patch # User Reiner Steib # Date 1148661893 0 # Node ID 098d9b195f6e07562a298dbb877a47b2b7755152 # Parent 72943032cdc278c9440a8db84c43b2e1f2bfe4c8 (comint-kill-whole-line): Rename arg to count. Fix doc string. diff -r 72943032cdc2 -r 098d9b195f6e lisp/ChangeLog --- a/lisp/ChangeLog Fri May 26 15:22:24 2006 +0000 +++ b/lisp/ChangeLog Fri May 26 16:44:53 2006 +0000 @@ -1,3 +1,8 @@ +2006-05-26 Reiner Steib + + * comint.el (comint-kill-whole-line): Rename arg to count. Fix + doc string. + 2006-05-26 Chong Yidong * files.el (backup-buffer-copy): Remove deleted MUSTBENEW argument diff -r 72943032cdc2 -r 098d9b195f6e lisp/comint.el --- a/lisp/comint.el Fri May 26 15:22:24 2006 +0000 +++ b/lisp/comint.el Fri May 26 16:44:53 2006 +0000 @@ -2357,19 +2357,19 @@ (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.