;ELC ;;; compiled by cthomp@willow on Mon Aug 9 12:13:32 1993 ;;; from file /era/era-0.80/editor/lisp/comint/background.el ;;; emacs version 19.8 (beta6) Lucid. ;;; bytecomp version 2.15; 14-jul-93. ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "This file was compiled for Emacs 19.")) (byte-code "!!" [provide background require comint] 2) (defvar background-show t "\ *If non-nil, background jobs' buffers are shown when they're started.") (defvar background-select nil "\ *If non-nil, background jobs' buffers are selected when they're started.") (fset 'background #[(command) "\n\"!Tn \" ! !q \"OӕO !!)\nر D%! \"!#%-" [1 nil default-directory dir buffer-name job-name job-number get-process format "background-%d" "*%s*" background-select pop-to-buffer background-show get-buffer-create erase-buffer string-match "^cd[ ]+\\([^ ;]+\\)[ ]*;[ ]*" command 0 file-name-as-directory expand-file-name "--- working directory: " "\n% " 10 get-buffer-process comint-exec shell-file-name "-c" proc comint-mode set-process-sentinel background-sentinel message "[%d] %d" process-id "Background" mode-name] 8 "\ Run COMMAND in the background like csh. A message is displayed when the job starts and finishes. The buffer is in comint mode, so you can send input and signals to the job. The process object is returned if anyone cares. See also comint-mode and the variables background-show and background-select." "s%% "]) (fset 'background-sentinel #[(process msg) " Ž ĘŪ \" OP GU̪ O OP!O !8$!!\"!>!qmdb O۱)db)!)+" [match-data ms ((store-match-data ms)) msg "finished\n" "Done" string-match "^exited" "Exit " 28 -1 0 "Continuing" 1 message "[%s] %s %s" process-name process nil 2 process-command buffer-name process-buffer set-process-buffer process-status (signal exit) at-end 10 32 current-time-string 11 19 set-buffer-modified-p] 7 "\ Called when a background job changes state."])