[Emacs-diffs] Changes to emacs/lisp/comint.el

[Richard M . Stallman]

Index: emacs/lisp/comint.el
diff -c emacs/lisp/comint.el:1.302 emacs/lisp/comint.el:1.303
*** emacs/lisp/comint.el:1.302  Sun Oct 17 06:51:10 2004
--- emacs/lisp/comint.el        Tue Oct 19 16:51:14 2004
***************
*** 369,375 ****
  history list.  Default is to save anything that isn't all whitespace.")
  
  (defvar comint-input-filter-functions '()
!   "Special hook run before input is sent to the process.
  These functions get one argument, a string containing the text to send.")
  
  (defvar comint-output-filter-functions '(comint-postoutput-scroll-to-bottom 
comint-watch-for-password-prompt)
--- 369,375 ----
  history list.  Default is to save anything that isn't all whitespace.")
  
  (defvar comint-input-filter-functions '()
!   "Abnormal hook run before input is sent to the process.
  These functions get one argument, a string containing the text to send.")
  
  (defvar comint-output-filter-functions '(comint-postoutput-scroll-to-bottom 
comint-watch-for-password-prompt)
***************
*** 788,794 ****
  
  (defun comint-insert-input (&optional event)
    "In a Comint buffer, set the current input to the previous input at point."
!   (interactive (list last-input-event))
    (if event (mouse-set-point event))
    (let ((pos (point)))
      (if (not (eq (get-char-property pos 'field) 'input))
--- 788,794 ----
  
  (defun comint-insert-input (&optional event)
    "In a Comint buffer, set the current input to the previous input at point."
!   (interactive "@")
    (if event (mouse-set-point event))
    (let ((pos (point)))
      (if (not (eq (get-char-property pos 'field) 'input))
***************
*** 2282,2288 ****
  
  (defun comint-kill-whole-line (&optional arg)
    "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,
  instead of the trailing one.  \(This is meant to make \\[repeat] work well
  with negative arguments.)
--- 2282,2288 ----
  
  (defun comint-kill-whole-line (&optional arg)
    "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,
  instead of the trailing one.  \(This is meant to make \\[repeat] work well
  with negative arguments.)
***************
*** 2430,2436 ****
  
  See `comint-source-default' for more on determining defaults.
  
! PROMPT is the prompt string.  PREV-DIR/FILE is the (directory . file) pair
  from the last source processing command.  SOURCE-MODES is a list of major
  modes used to determine what file buffers contain source files.  (These
  two arguments are used for determining defaults).  If MUSTMATCH-P is true,
--- 2430,2436 ----
  
  See `comint-source-default' for more on determining defaults.
  
! PROMPT is the prompt string.  PREV-DIR/FILE is the (DIRECTORY . FILE) pair
  from the last source processing command.  SOURCE-MODES is a list of major
  modes used to determine what file buffers contain source files.  (These
  two arguments are used for determining defaults).  If MUSTMATCH-P is true,