Index: emacs/lisp/vmsproc.el
diff -c emacs/lisp/vmsproc.el:1.12 emacs/lisp/vmsproc.el:1.13
*** emacs/lisp/vmsproc.el:1.12 Fri Jul 29 20:14:37 2005
--- emacs/lisp/vmsproc.el Fri Jul 29 20:16:51 2005
***************
*** 34,39 ****
--- 34,41 ----
"String to insert to distinguish commands entered by user.")
(defvar subprocess-running nil)
+ (defvar subprocess-buf nil)
+
(defvar command-mode-map
(let ((map (make-sparse-keymap)))
(define-key map "\C-m" 'command-send-input)
***************
*** 44,55 ****
"Handles input from a subprocess. Called by Emacs."
(if display-subprocess-window
(display-buffer subprocess-buf))
! (let ((old-buffer (current-buffer)))
! (set-buffer subprocess-buf)
(goto-char (point-max))
! (insert str)
! (insert ?\n)
! (set-buffer old-buffer)))
(defun subprocess-exit (name)
"Called by Emacs upon subprocess exit."
--- 46,54 ----
"Handles input from a subprocess. Called by Emacs."
(if display-subprocess-window
(display-buffer subprocess-buf))
! (with-current-buffer subprocess-buf
(goto-char (point-max))
! (insert str ?\n)))
(defun subprocess-exit (name)
"Called by Emacs upon subprocess exit."
_______________________________________________
Emacs-diffs mailing list
Emacs-diffs@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-diffs
