[Emacs-diffs] Changes to emacs/lisp/vmsproc.el

[Stefan Monnier]

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."