1
;;; ess-batch.el --- Emacs functions used by ESS[SAS] and ESS[BUGS]
3
;; Copyright (C) 2002 R. Sparapani.
5
;; Author: Rodney Sparapani <rsparapa@mcw.edu>
6
;; Maintainer: Rodney Sparapani <rsparapa@mcw.edu>
7
;; Created: 23 Jan 2002
8
;; Modified: $Date: 2002/01/23 16:41:26 $
9
;; Version: $Revision: 1.1 $
10
;; RCS: $Id: ess-batch.el,v 1.1 2002/01/23 16:41:26 rsparapa Exp $
12
;; This file is part of ESS (Emacs Speaks Statistics).
14
;; This file is free software; you can redistribute it and/or modify
15
;; it under the terms of the GNU General Public License as published by
16
;; the Free Software Foundation; either version 2, or (at your option)
19
;; This file is distributed in the hope that it will be useful,
20
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
21
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
22
;; GNU General Public License for more details.
24
;; You should have received a copy of the GNU General Public License
25
;; along with GNU Emacs; see the file COPYING. If not, write to
26
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
28
(defun ess-set-file-path ()
29
"*Set `ess-sas-file-path' or `ess-bugs-file-path' depending on suffix."
32
(save-match-data (let ((ess-temp-file (expand-file-name (buffer-name))))
33
(if (string-match ess-sas-suffix-regexp ess-temp-file)
34
(setq ess-sas-file-path (nth 0 (split-string ess-temp-file "[<]")))
36
(if (string-match ess-bugs-suffix-regexp ess-temp-file)
37
(setq ess-bugs-file-path (nth 0 (split-string ess-temp-file "[<]"))))))))