Mercurial > emacs

changeset 42831:ba5189cc6432

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(comint-redirect-send-command-to-process): Restore previous current buffer.
author Richard M. Stallman <rms@gnu.org>
date Fri, 18 Jan 2002 23:25:16 +0000
parents 20fac7788e1f
children 3080d125a03a
files lisp/comint.el
diffstat 1 files changed, 34 insertions(+), 34 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/comint.el	Fri Jan 18 18:59:27 2002 +0000
+++ b/lisp/comint.el	Fri Jan 18 23:25:16 2002 +0000
@@ -3164,52 +3164,52 @@
 			   process))
 	 (proc (get-buffer-process process-buffer)))
     ;; Change to the process buffer
-    (set-buffer process-buffer)
-
-    ;; Make sure there's a prompt in the current process buffer
-    (and comint-redirect-perform-sanity-check
-	 (save-excursion
-	   (goto-char (point-max))
-	   (or (re-search-backward comint-prompt-regexp nil t)
-	       (error "No prompt found or `comint-prompt-regexp' not set properly"))))
+    (with-current-buffer process-buffer
+
+      ;; Make sure there's a prompt in the current process buffer
+      (and comint-redirect-perform-sanity-check
+	   (save-excursion
+	     (goto-char (point-max))
+	     (or (re-search-backward comint-prompt-regexp nil t)
+		 (error "No prompt found or `comint-prompt-regexp' not set properly"))))
 
     ;;;;;;;;;;;;;;;;;;;;;
-    ;; Set up for redirection
+      ;; Set up for redirection
     ;;;;;;;;;;;;;;;;;;;;;
-    (comint-redirect-setup
-     ;; Output Buffer
-     output-buffer
-     ;; Comint Buffer
-     (current-buffer)
-     ;; Finished Regexp
-     comint-prompt-regexp
-     ;; Echo input
-     echo)
+      (comint-redirect-setup
+       ;; Output Buffer
+       output-buffer
+       ;; Comint Buffer
+       (current-buffer)
+       ;; Finished Regexp
+       comint-prompt-regexp
+       ;; Echo input
+       echo)
 
     ;;;;;;;;;;;;;;;;;;;;;
-    ;; Set the filter
+      ;; Set the filter
     ;;;;;;;;;;;;;;;;;;;;;
-    ;; Save the old filter
-    (setq comint-redirect-original-filter-function
-	  (process-filter proc))
-    (set-process-filter proc 'comint-redirect-filter)
+      ;; Save the old filter
+      (setq comint-redirect-original-filter-function
+	    (process-filter proc))
+      (set-process-filter proc 'comint-redirect-filter)
 
     ;;;;;;;;;;;;;;;;;;;;;
-    ;; Send the command
+      ;; Send the command
     ;;;;;;;;;;;;;;;;;;;;;
-    (process-send-string
-     (current-buffer)
-     (concat command "\n"))
+      (process-send-string
+       (current-buffer)
+       (concat command "\n"))
 
     ;;;;;;;;;;;;;;;;;;;;;
-    ;; Show the output
+      ;; Show the output
     ;;;;;;;;;;;;;;;;;;;;;
-    (or no-display
-	 (display-buffer
-	  (get-buffer-create
-	   (if (listp output-buffer)
-	       (car output-buffer)
-	     output-buffer))))))
+      (or no-display
+	  (display-buffer
+	   (get-buffer-create
+	    (if (listp output-buffer)
+		(car output-buffer)
+	      output-buffer)))))))
 
 ;;;###autoload
 (defun comint-redirect-results-list (command regexp regexp-group)