# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1122668211 0
# Node ID d8a052666f20c14a61f5f952b6571709f524530b
# Parent  ddfb3e6e7046cdf64a2b82d60b0c5e773cf405bf
(subprocess-buf): Declare to quieten compiler.

diff -r ddfb3e6e7046 -r d8a052666f20 lisp/vmsproc.el
--- a/lisp/vmsproc.el	Fri Jul 29 20:14:37 2005 +0000
+++ b/lisp/vmsproc.el	Fri Jul 29 20:16:51 2005 +0000
@@ -34,6 +34,8 @@
   "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,12 +46,9 @@
   "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)
+  (with-current-buffer subprocess-buf
     (goto-char (point-max))
-    (insert str)
-    (insert ?\n)
-    (set-buffer old-buffer)))
+    (insert str ?\n)))
 
 (defun subprocess-exit (name)
   "Called by Emacs upon subprocess exit."