Mercurial > hg > xemacs-beta

comparison lisp/comint/background.el @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents b82b59fe008d
children b9518feda344
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
2 2
3 ;; Copyright (C) 1988 Joe Keane <jk3k+@andrew.cmu.edu> 3 ;; Copyright (C) 1988 Joe Keane <jk3k+@andrew.cmu.edu>
4 ;; Keywords: processes 4 ;; Keywords: processes
5 5
6 ;; This file is part of XEmacs. 6 ;; This file is part of XEmacs.
7 7 ;;
8 ;; XEmacs is free software; you can redistribute it and/or modify 8 ;; XEmacs is free software; you can redistribute it and/or modify
9 ;; it under the terms of the GNU General Public License as published by 9 ;; it under the terms of the GNU General Public License as published by
10 ;; the Free Software Foundation; either version 2 of the License, or 10 ;; the Free Software Foundation; either version 2 of the License, or
11 ;; (at your option) any later version. 11 ;; (at your option) any later version.
12 12 ;;
13 ;; XEmacs is distributed in the hope that it will be useful, 13 ;; XEmacs is distributed in the hope that it will be useful,
14 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of 14 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
15 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 15 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 ;; GNU General Public License for more details. 16 ;; GNU General Public License for more details.
17 17 ;;
18 ;; You should have received a copy of the GNU General Public License 18 ;; You should have received a copy of the GNU General Public License
19 ;; along with XEmacs; if not, write to the Free Software 19 ;; along with XEmacs; if not, write to the Free Software
20 ;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 20 ;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
21 ;; 02111-1307, USA.
22
23 ;;; Synched up with: Not in FSF
24
25 ;;; Commentary:
26 21
27 ;; - Adapted to use comint and cleaned up somewhat. Olin Shivers 5/90 22 ;; - Adapted to use comint and cleaned up somewhat. Olin Shivers 5/90
28 ;; - Background failed to set the process buffer's working directory 23 ;; - Background failed to set the process buffer's working directory
29 ;; in some cases. Fixed. Olin 6/14/90 24 ;; in some cases. Fixed. Olin 6/14/90
30 ;; - Background failed to strip leading cd's off the command string 25 ;; - Background failed to strip leading cd's off the command string
40 ;; Also slightly rearranged the cd match code for similar reasons. 35 ;; Also slightly rearranged the cd match code for similar reasons.
41 ;; Olin 7/16/91 36 ;; Olin 7/16/91
42 ;; - Dec 29 1995: changed for new stuff (shell-command-switch, second 37 ;; - Dec 29 1995: changed for new stuff (shell-command-switch, second
43 ;; arg to shell-command --> BUFFER-NAME arg to background) from 38 ;; arg to shell-command --> BUFFER-NAME arg to background) from
44 ;; FSF 19.30. Ben Wing 39 ;; FSF 19.30. Ben Wing
45
46 ;;; Code:
47 40
48 (provide 'background) 41 (provide 'background)
49 (require 'comint) 42 (require 'comint)
50 43
51 ;; user variables 44 ;; user variables
121 (insert ?\n msg ? 114 (insert ?\n msg ?
122 (substring (current-time-string) 11 19) ?\n)) 115 (substring (current-time-string) 11 19) ?\n))
123 (if at-end (goto-char (point-max)))) 116 (if at-end (goto-char (point-max))))
124 (set-buffer-modified-p nil))))) 117 (set-buffer-modified-p nil)))))
125 (store-match-data ms)))) 118 (store-match-data ms))))
126
127 ;;; background.el ends here