mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 18:40:39 -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

3
lisp/ChangeLog
View file

@ -1,5 +1,8 @@
2002-01-18 Richard M. Stallman <rms@gnu.org>
* comint.el (comint-redirect-send-command-to-process):
Restore previous current buffer.
* window.el (window-body-height): New function.
2002-01-18 Zoltan Kemenczy <kemenczy@rogers.com>

4
lisp/comint.el
View file

@ -3164,7 +3164,7 @@ 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
@ -3209,7 +3209,7 @@ If NO-DISPLAY is non-nil, do not show the output buffer."
(get-buffer-create
(if (listp output-buffer)
(car output-buffer)
output-buffer))))))
output-buffer)))))))
;;;###autoload
(defun comint-redirect-results-list (command regexp regexp-group)