diff options
| author | Andreas Schwab <schwab@suse.de> | 1998-01-26 11:29:46 +0000 |
|---|---|---|
| committer | Andreas Schwab <schwab@suse.de> | 1998-01-26 11:29:46 +0000 |
| commit | 1f3e7e1af03b612618f9d9b7250c0b94ccb9a423 (patch) | |
| tree | 86dc3f31df4766ac1ff992713dca37924204e497 /lisp/progmodes/octave-inf.el | |
| parent | 19f0789a1975fcc81c2b7e8efeb3b54b10b25423 (diff) | |
| download | emacs-1f3e7e1af03b612618f9d9b7250c0b94ccb9a423.tar.gz | |
Customized.
Diffstat (limited to 'lisp/progmodes/octave-inf.el')
| -rw-r--r-- | lisp/progmodes/octave-inf.el | 35 |
1 files changed, 25 insertions, 10 deletions
diff --git a/lisp/progmodes/octave-inf.el b/lisp/progmodes/octave-inf.el index d026a06bb71..64f9e4c0efc 100644 --- a/lisp/progmodes/octave-inf.el +++ b/lisp/progmodes/octave-inf.el @@ -29,22 +29,35 @@ (require 'octave-mod) (require 'comint) -(defvar inferior-octave-program "octave" - "*Program invoked by `inferior-octave'.") +(defgroup octave-inferior nil + "Running Octave as an inferior Emacs process." + :group 'octave) -(defvar inferior-octave-prompt +(defcustom inferior-octave-program "octave" + "*Program invoked by `inferior-octave'." + :type 'string + :group 'octave-inferior) + +(defcustom inferior-octave-prompt "\\(^octave\\(:[0-9]+\\)?\\|^debug\\|^\\)>+ " - "*Regexp to match prompts for the inferior Octave process.") + "*Regexp to match prompts for the inferior Octave process." + :type 'regexp + :group 'octave-inferior) -(defvar inferior-octave-startup-file nil +(defcustom inferior-octave-startup-file nil "*Name of the inferior Octave startup file. The contents of this file are sent to the inferior Octave process on -startup.") +startup." + :type '(choice (const :tag "None" nil) + file) + :group 'octave-inferior) -(defvar inferior-octave-startup-args '("-i") +(defcustom inferior-octave-startup-args '("-i") "*List of command line arguments for the inferior Octave process. For example, for suppressing the startup message and using `traditional' -mode, set this to (\"-q\" \"--traditional\").") +mode, set this to (\"-q\" \"--traditional\")." + :type '(repeat string) + :group 'octave-inferior) (defvar inferior-octave-mode-map nil "Keymap used in Inferior Octave mode.") @@ -69,8 +82,10 @@ mode, set this to (\"-q\" \"--traditional\").") (modify-syntax-entry ?\n ">" table) (setq inferior-octave-mode-syntax-table table))) -(defvar inferior-octave-mode-hook nil - "*Hook to be run when Inferior Octave mode is started.") +(defcustom inferior-octave-mode-hook nil + "*Hook to be run when Inferior Octave mode is started." + :type 'hook + :group 'octave-inferior) (defvar inferior-octave-font-lock-keywords (list |