mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-26 10:49:33 +00:00
Code Issues Releases Activity

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

Browse Source 
doc string.
This commit is contained in:
Reiner Steib 2006-05-26 16:44:53 +00:00
parent f9184978f6
commit a8dc674f5f
2 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -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

12
lisp/comint.el
View File

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