aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman2004-10-19 16:51:14 +0000
committerRichard M. Stallman2004-10-19 16:51:14 +0000
commitc64e2e679f89a519052f8378238be6147d27b91f (patch)
treea6cb581045e770bd19c91e3f13741b4d4636e3ad
parent7ebc19f9798c44dc0441c9d70fe4ab26c6f78f66 (diff)
downloademacs-c64e2e679f89a519052f8378238be6147d27b91f.tar.gz
emacs-c64e2e679f89a519052f8378238be6147d27b91f.zip
(comint-insert-input): Use @ in `interactive'.
(comint-input-filter-functions): Doc fix. (comint-kill-whole-line, comint-get-source): Doc fix.
-rw-r--r--lisp/comint.el8
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/comint.el b/lisp/comint.el
index cfbd618c896..16fd9782116 100644
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -369,7 +369,7 @@ Takes one argument, the input. If non-nil, the input may be saved on the input
369history list. Default is to save anything that isn't all whitespace.") 369history list. Default is to save anything that isn't all whitespace.")
370 370
371(defvar comint-input-filter-functions '() 371(defvar comint-input-filter-functions '()
372 "Special hook run before input is sent to the process. 372 "Abnormal hook run before input is sent to the process.
373These functions get one argument, a string containing the text to send.") 373These functions get one argument, a string containing the text to send.")
374 374
375(defvar comint-output-filter-functions '(comint-postoutput-scroll-to-bottom comint-watch-for-password-prompt) 375(defvar comint-output-filter-functions '(comint-postoutput-scroll-to-bottom comint-watch-for-password-prompt)
@@ -788,7 +788,7 @@ buffer. The hook `comint-exec-hook' is run after each exec."
788 788
789(defun comint-insert-input (&optional event) 789(defun comint-insert-input (&optional event)
790 "In a Comint buffer, set the current input to the previous input at point." 790 "In a Comint buffer, set the current input to the previous input at point."
791 (interactive (list last-input-event)) 791 (interactive "@")
792 (if event (mouse-set-point event)) 792 (if event (mouse-set-point event))
793 (let ((pos (point))) 793 (let ((pos (point)))
794 (if (not (eq (get-char-property pos 'field) 'input)) 794 (if (not (eq (get-char-property pos 'field) 'input))
@@ -2282,7 +2282,7 @@ preceding newline is removed."
2282 2282
2283(defun comint-kill-whole-line (&optional arg) 2283(defun comint-kill-whole-line (&optional arg)
2284 "Kill current line, ignoring read-only and field properties. 2284 "Kill current line, ignoring read-only and field properties.
2285With prefix ARG, kill that many lines starting from the current line. 2285With prefix arg, kill that many lines starting from the current line.
2286If arg is negative, kill backward. Also kill the preceding newline, 2286If arg is negative, kill backward. Also kill the preceding newline,
2287instead of the trailing one. \(This is meant to make \\[repeat] work well 2287instead of the trailing one. \(This is meant to make \\[repeat] work well
2288with negative arguments.) 2288with negative arguments.)
@@ -2430,7 +2430,7 @@ Provides a default, if there is one, and returns the result filename.
2430 2430
2431See `comint-source-default' for more on determining defaults. 2431See `comint-source-default' for more on determining defaults.
2432 2432
2433PROMPT is the prompt string. PREV-DIR/FILE is the (directory . file) pair 2433PROMPT is the prompt string. PREV-DIR/FILE is the (DIRECTORY . FILE) pair
2434from the last source processing command. SOURCE-MODES is a list of major 2434from the last source processing command. SOURCE-MODES is a list of major
2435modes used to determine what file buffers contain source files. (These 2435modes used to determine what file buffers contain source files. (These
2436two arguments are used for determining defaults). If MUSTMATCH-P is true, 2436two arguments are used for determining defaults). If MUSTMATCH-P is true,