1 ;;; essd-s3.el --- S 3 (AT&T version) customization
3 ;; Copyright (C) 1997 A. J. Rossini
4 ;; Copyright (C) 1998--2005 A.J. Rossini, Rich M. Heiberger, Martin
5 ;; Maechler, Kurt Hornik, Rodney Sparapani, and Stephen Eglen.
7 ;; Original Author: A.J. Rossini <rossini@stat.sc.edu>
8 ;; Created: 12 Jun 1997
9 ;; Maintainers: ESS-core <ESS-core@stat.math.ethz.ch>
11 ;; Keywords: start up, configuration.
13 ;; This file is part of ESS.
15 ;; This file is free software; you can redistribute it and/or modify
16 ;; it under the terms of the GNU General Public License as published by
17 ;; the Free Software Foundation; either version 2, or (at your option)
20 ;; This file is distributed in the hope that it will be useful,
21 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
22 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
23 ;; GNU General Public License for more details.
25 ;; You should have received a copy of the GNU General Public License
26 ;; along with GNU Emacs; see the file COPYING. If not, write to
27 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
30 ;;; This file defines all the S 3 customizations for ess-mode.
32 ;;; Requires and Autoloads:
36 (autoload 'inferior-ess
"ess-inf" "Run an ESS process.")
40 (defvar S3-customize-alist
42 '((ess-local-customize-alist .
'S3-customize-alist
)
44 (ess-loop-timeout . ess-S-loop-timeout
);fixme: dialect spec.
45 (ess-change-sp-regexp . ess-S-change-sp-regexp
)
46 (ess-help-sec-keys-alist . ess-help-S3-sec-keys-alist
)
47 (ess-object-name-db-file .
"ess-s3-namedb.el" )
48 (inferior-ess-program . inferior-S3-program-name
) ; "S")
49 (inferior-ess-help-command .
"help(\"%s\")\n")
50 (inferior-ess-help-filetype . nil
)
51 (inferior-ess-search-list-command .
"search()\n")
52 (inferior-ess-objects-command .
"objects(%d)\n")
53 (inferior-ess-start-file . nil
) ;"~/.ess-S3")
54 (inferior-ess-start-args .
"")
57 S
+common-cust-alist
); use S+ ones here; partly overwritten above!!
59 "Variables to customize for S3")
61 (defun S3 (&optional proc-name
)
62 "Call 'S 3.x', the version from AT&T."
64 (setq ess-customize-alist S3-customize-alist
)
65 (ess-write-to-dribble-buffer
66 (format "\n(S3): ess-dialect=%s, buf=%s\n" ess-dialect
(current-buffer)))
68 (if inferior-ess-language-start
69 (ess-eval-linewise inferior-ess-language-start
)))
72 (defun S3-mode (&optional proc-name
)
73 "Major mode for editing S3 source. See `ess-mode' for more help."
75 (setq ess-customize-alist S3-customize-alist
)
76 (ess-mode S3-customize-alist proc-name
)
77 (if ess-imenu-use-S
(ess-imenu-R)))
84 \f ; Local variables section
86 ;;; This file is automatically placed in Outline minor mode.
87 ;;; The file is structured as follows:
90 ;;; Subsections: ;;;*;;;
91 ;;; Components: defuns, defvars, defconsts
92 ;;; Random code beginning with a ;;;;* comment
96 ;;; outline-minor-mode: nil
97 ;;; mode: outline-minor
98 ;;; outline-regexp: "\^L\\|\\`;\\|;;\\*\\|;;;\\*\\|(def[cvu]\\|(setq\\|;;;;\\*"
101 ;;; essd-s3.el ends here