Show
Ignore:
Timestamp:
05/27/06 10:35:24 (2 years ago)
Author:
miyoshi
Message:

Sync up with Emacs CVS HEAD.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/lisp/comint.el

    r4079 r4091  
    23582358             (remove-list-of-text-properties (1- pt) pt '(read-only))))))) 
    23592359 
    2360 (defun comint-kill-whole-line (&optional arg) 
     2360(defun comint-kill-whole-line (&optional count) 
    23612361  "Kill current line, ignoring read-only and field properties. 
    2362 With prefix arg, kill that many lines starting from the current line. 
    2363 If arg is negative, kill backward.  Also kill the preceding newline, 
     2362With prefix arg COUNT, kill that many lines starting from the current line. 
     2363If COUNT is negative, kill backward.  Also kill the preceding newline, 
    23642364instead of the trailing one.  \(This is meant to make \\[repeat] work well 
    23652365with negative arguments.) 
    2366 If arg is zero, kill current line but exclude the trailing newline. 
     2366If COUNT is zero, kill current line but exclude the trailing newline. 
    23672367The read-only status of newlines is updated with `comint-update-fence', 
    23682368if necessary." 
    23692369  (interactive "p") 
    23702370  (let ((inhibit-read-only t) (inhibit-field-text-motion t)) 
    2371     (kill-whole-line arg) 
    2372     (when (>= arg 0) (comint-update-fence)))) 
     2371    (kill-whole-line count) 
     2372    (when (>= count 0) (comint-update-fence)))) 
    23732373 
    23742374(defun comint-kill-region (beg end &optional yank-handler)