home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #3 / NN_1993_3.iso / spool / gnu / emacs / sources / 977 < prev    next >
Encoding:
Text File  |  1993-01-28  |  4.4 KB  |  111 lines
  1. Newsgroups: gnu.emacs.sources
  2. Path: sparky!uunet!UB.com!pacbell.com!decwrl!elroy.jpl.nasa.gov!sdd.hp.com!saimiri.primate.wisc.edu!ames!agate!stanford.edu!nntp.Stanford.EDU!nntp!interran
  3. From: interran@uluru.Stanford.EDU (John Interrante)
  4. Subject: patch to make background behave like shell-command
  5. Message-ID: <INTERRAN.93Jan26223729@uluru.Stanford.EDU>
  6. Sender: news@leland.Stanford.EDU (Mr News)
  7. Organization: Stanford University
  8. Date: 27 Jan 1993 05:37:29 GMT
  9. Lines: 100
  10.  
  11. I felt that background should behave like shell-command; that is, it
  12. should display the process buffer if and only if the background job
  13. produces any output.  Here're my changes to background.el.  I deleted
  14. the user variables background-show and background-select and I added a
  15. process filter to display the buffer the first time the background job
  16. produces any output.  I have been using these changes for one week
  17. before posting them and they have not given me any problems.
  18.  
  19. John Interrante / interran@uluru.stanford.edu
  20. Computer Systems Laboratory, Stanford University
  21.  
  22. *** comint-2.03/background.el.save    Sat Aug 24 13:36:36 1991
  23. --- comint-2.03/background.el    Wed Jan 20 10:36:23 1993
  24. ***************
  25. *** 17,38 ****
  26.   ;; - Fixed up the sentinel to protect match-data around invocations.
  27.   ;;   Also slightly rearranged the cd match code for similar reasons.
  28.   ;;   Olin 7/16/91
  29.   
  30.   (provide 'background)
  31.   (require 'comint)
  32.   
  33. - ;; user variables
  34. - (defvar background-show t
  35. -   "*If non-nil, background jobs' buffers are shown when they're started.")
  36. - (defvar background-select nil
  37. -   "*If non-nil, background jobs' buffers are selected when they're started.")
  38. - 
  39.   (defun background (command)
  40. !   "Run COMMAND in the background like csh.  
  41.   A message is displayed when the job starts and finishes.  The buffer is in
  42.   comint mode, so you can send input and signals to the job.  The process object
  43. ! is returned if anyone cares.  See also comint-mode and the variables
  44. ! background-show and background-select."
  45.     (interactive "s%% ")
  46.     (let ((job-number 1)
  47.       (job-name "%1")
  48. --- 17,34 ----
  49.   ;; - Fixed up the sentinel to protect match-data around invocations.
  50.   ;;   Also slightly rearranged the cd match code for similar reasons.
  51.   ;;   Olin 7/16/91
  52. + ;; - Made background behave like shell-command in that it displays the
  53. + ;;   process buffer if and only if the background job produces any output.
  54. + ;;   J. Interrante 1/18/93
  55.   
  56.   (provide 'background)
  57.   (require 'comint)
  58.   
  59.   (defun background (command)
  60. !   "Run COMMAND in the background like csh; display output, if any.
  61.   A message is displayed when the job starts and finishes.  The buffer is in
  62.   comint mode, so you can send input and signals to the job.  The process object
  63. ! is returned if anyone cares.  See also comint-mode."
  64.     (interactive "s%% ")
  65.     (let ((job-number 1)
  66.       (job-name "%1")
  67. ***************
  68. *** 39,47 ****
  69.       (dir default-directory))
  70.       (while (process-status job-name)
  71.         (setq job-name (concat "%" (setq job-number (1+ job-number)))))
  72. !     (if background-select (pop-to-buffer job-name)
  73. !       (if background-show (with-output-to-temp-buffer job-name)) ; cute
  74. !       (set-buffer (get-buffer-create job-name)))
  75.       (erase-buffer)
  76.   
  77.       (setq default-directory dir) ; Do this first, in case cd is relative path.
  78. --- 35,41 ----
  79.       (dir default-directory))
  80.       (while (process-status job-name)
  81.         (setq job-name (concat "%" (setq job-number (1+ job-number)))))
  82. !     (set-buffer (get-buffer-create job-name))
  83.       (erase-buffer)
  84.   
  85.       (setq default-directory dir) ; Do this first, in case cd is relative path.
  86. ***************
  87. *** 60,65 ****
  88. --- 54,60 ----
  89.         (comint-mode)
  90.         ;; COND because the proc may have died before the G-B-P is called.
  91.         (cond (proc (set-process-sentinel proc 'background-sentinel)
  92. +           (set-process-filter proc 'background-filter)
  93.             (message "[%d] %d" job-number (process-id proc))))
  94.         (setq mode-name "Background")
  95.         proc)))
  96. ***************
  97. *** 90,92 ****
  98. --- 85,96 ----
  99.                  (if at-end (goto-char (point-max))))
  100.                (set-buffer-modified-p nil)))))
  101.         (store-match-data ms))))
  102. + 
  103. + (defun background-filter (process output)
  104. +   "Called to make buffer visible when a background job produces output."
  105. +   (save-excursion
  106. +     (display-buffer (set-buffer (process-buffer process)))
  107. +     (goto-char (point-max))
  108. +     (insert output)
  109. +     (set-marker (process-mark process) (point))
  110. +     (set-process-filter process nil)))
  111.