Mercurial > hg > xemacs-beta

comparison lisp/comint/background.el @ 4:b82b59fe008d r19-15b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b3
author cvs
date Mon, 13 Aug 2007 08:46:56 +0200
parents 376386a54a3c
children 131b0175ea99
comparison
equal deleted inserted replaced
3:30df88044ec6 4:b82b59fe008d
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., 675 Mass Ave, Cambridge, MA 02139, USA. 20 ;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
21 ;; 02111-1307, USA.
22
23 ;;; Synched up with: Not in FSF
24
25 ;;; Commentary:
21 26
22 ;; - Adapted to use comint and cleaned up somewhat. Olin Shivers 5/90 27 ;; - Adapted to use comint and cleaned up somewhat. Olin Shivers 5/90
23 ;; - Background failed to set the process buffer's working directory 28 ;; - Background failed to set the process buffer's working directory
24 ;; in some cases. Fixed. Olin 6/14/90 29 ;; in some cases. Fixed. Olin 6/14/90
25 ;; - Background failed to strip leading cd's off the command string 30 ;; - Background failed to strip leading cd's off the command string
35 ;; Also slightly rearranged the cd match code for similar reasons. 40 ;; Also slightly rearranged the cd match code for similar reasons.
36 ;; Olin 7/16/91 41 ;; Olin 7/16/91
37 ;; - Dec 29 1995: changed for new stuff (shell-command-switch, second 42 ;; - Dec 29 1995: changed for new stuff (shell-command-switch, second
38 ;; arg to shell-command --> BUFFER-NAME arg to background) from 43 ;; arg to shell-command --> BUFFER-NAME arg to background) from
39 ;; FSF 19.30. Ben Wing 44 ;; FSF 19.30. Ben Wing
45
46 ;;; Code:
40 47
41 (provide 'background) 48 (provide 'background)
42 (require 'comint) 49 (require 'comint)
43 50
44 ;; user variables 51 ;; user variables
114 (insert ?\n msg ? 121 (insert ?\n msg ?
115 (substring (current-time-string) 11 19) ?\n)) 122 (substring (current-time-string) 11 19) ?\n))
116 (if at-end (goto-char (point-max)))) 123 (if at-end (goto-char (point-max))))
117 (set-buffer-modified-p nil))))) 124 (set-buffer-modified-p nil)))))
118 (store-match-data ms)))) 125 (store-match-data ms))))
126
127 ;;; background.el ends here