(comint-redirect-results-list)

(comint-redirect-results-list-from-process): Remove interactive
spec.

diff --git a/lisp/comint.el b/lisp/comint.el
index 438043c124a60b802bf39960f61cf1afbbfb09b0..d0b40e909132b678e207b7820d96e1d8a0ff9862 100644 (file)
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -2688,7 +2688,6 @@ If NO-DISPLAY is non-nil, do not show the output buffer."
   "Send COMMAND to current process. 
 Return a list of expressions in the output which match REGEXP.
 REGEXP-GROUP is the regular expression group in REGEXP to use."
-  (interactive)
   (comint-redirect-results-list-from-process 
    (get-buffer-process (current-buffer))
    command regexp regexp-group))
@@ -2698,7 +2697,6 @@ REGEXP-GROUP is the regular expression group in REGEXP to use."
   "Send COMMAND to PROCESS. 
 Return a list of expressions in the output which match REGEXP.
 REGEXP-GROUP is the regular expression group in REGEXP to use."
-  (interactive)
   (let ((output-buffer " *Comint Redirect Work Buffer*")
        results)
     (save-excursion