mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(comint-redirect-send-command-to-process): Restore previous current buffer.

Browse source
This commit is contained in:
Richard M. Stallman 2002-01-18 23:25:34 +00:00
parent a1e3dda0c3
commit 98bd0dd38c
2 changed files with 36 additions and 33 deletions
Download patch file Download diff file Expand all files Collapse all files

66
lisp/comint.el
View file

@ -3164,52 +3164,52 @@ If NO-DISPLAY is non-nil, do not show the output buffer."
process))
(proc (get-buffer-process process-buffer)))
;; Change to the process buffer
(set-buffer process-buffer)
(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"))))
;; 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)