diff options
| author | Stephen Eglen | 1999-09-14 16:57:40 +0000 |
|---|---|---|
| committer | Stephen Eglen | 1999-09-14 16:57:40 +0000 |
| commit | 3a5a5d36734bb227116aea316140d421b05d01a4 (patch) | |
| tree | 427215316312ffc7bb13b383a257992f4d5205e3 | |
| parent | 46d74a69434029005ff9972fbbcaa9724fbf2376 (diff) | |
| download | emacs-3a5a5d36734bb227116aea316140d421b05d01a4.tar.gz emacs-3a5a5d36734bb227116aea316140d421b05d01a4.zip | |
(inferior-octave-startup): Ensure -i and --no-line-editing are passed
to Octave by including them here rather than storing them in
inferior-octave-startup-args.
| -rw-r--r-- | lisp/progmodes/octave-inf.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/progmodes/octave-inf.el b/lisp/progmodes/octave-inf.el index 6f235c0f02f..aa3e8a2c134 100644 --- a/lisp/progmodes/octave-inf.el +++ b/lisp/progmodes/octave-inf.el | |||
| @@ -52,7 +52,7 @@ startup." | |||
| 52 | file) | 52 | file) |
| 53 | :group 'octave-inferior) | 53 | :group 'octave-inferior) |
| 54 | 54 | ||
| 55 | (defcustom inferior-octave-startup-args '("-i" "--no-line-editing") | 55 | (defcustom inferior-octave-startup-args nil |
| 56 | "*List of command line arguments for the inferior Octave process. | 56 | "*List of command line arguments for the inferior Octave process. |
| 57 | For example, for suppressing the startup message and using `traditional' | 57 | For example, for suppressing the startup message and using `traditional' |
| 58 | mode, set this to (\"-q\" \"--traditional\")." | 58 | mode, set this to (\"-q\" \"--traditional\")." |
| @@ -182,7 +182,8 @@ startup file, `~/.emacs-octave'." | |||
| 182 | (substring inferior-octave-buffer 1 -1) | 182 | (substring inferior-octave-buffer 1 -1) |
| 183 | inferior-octave-buffer | 183 | inferior-octave-buffer |
| 184 | inferior-octave-program | 184 | inferior-octave-program |
| 185 | inferior-octave-startup-args))) | 185 | (append (list "-i" "--no-line-editing") |
| 186 | inferior-octave-startup-args)))) | ||
| 186 | (set-process-filter proc 'inferior-octave-output-digest) | 187 | (set-process-filter proc 'inferior-octave-output-digest) |
| 187 | (setq comint-ptyp process-connection-type | 188 | (setq comint-ptyp process-connection-type |
| 188 | inferior-octave-process proc | 189 | inferior-octave-process proc |