/[emacs]/emacs/lisp/vmsproc.el
ViewVC logotype

Diff of /emacs/lisp/vmsproc.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.12 by monnier, Fri Jul 29 20:14:37 2005 UTC revision 1.13 by monnier, Fri Jul 29 20:16:51 2005 UTC
# Line 34  Line 34 
34    "String to insert to distinguish commands entered by user.")    "String to insert to distinguish commands entered by user.")
35    
36  (defvar subprocess-running nil)  (defvar subprocess-running nil)
37    (defvar subprocess-buf nil)
38    
39  (defvar command-mode-map  (defvar command-mode-map
40    (let ((map (make-sparse-keymap)))    (let ((map (make-sparse-keymap)))
41      (define-key map "\C-m" 'command-send-input)      (define-key map "\C-m" 'command-send-input)
# Line 44  Line 46 
46    "Handles input from a subprocess.  Called by Emacs."    "Handles input from a subprocess.  Called by Emacs."
47    (if display-subprocess-window    (if display-subprocess-window
48        (display-buffer subprocess-buf))        (display-buffer subprocess-buf))
49    (let ((old-buffer (current-buffer)))    (with-current-buffer subprocess-buf
     (set-buffer subprocess-buf)  
50      (goto-char (point-max))      (goto-char (point-max))
51      (insert str)      (insert str ?\n)))
     (insert ?\n)  
     (set-buffer old-buffer)))  
52    
53  (defun subprocess-exit (name)  (defun subprocess-exit (name)
54    "Called by Emacs upon subprocess exit."    "Called by Emacs upon subprocess exit."

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26