Mercurial > emacs
comparison lisp/progmodes/octave-inf.el @ 25719:f440228994ba
(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.
author | Stephen Eglen <stephen@gnu.org> |
---|---|
date | Tue, 14 Sep 1999 16:57:40 +0000 |
parents | df3d0e102b5a |
children | bb2ebaf63949 |
comparison
equal
deleted
inserted
replaced
25718:096f3085e905 | 25719:f440228994ba |
---|---|
50 startup." | 50 startup." |
51 :type '(choice (const :tag "None" nil) | 51 :type '(choice (const :tag "None" nil) |
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\")." |
59 :type '(repeat string) | 59 :type '(repeat string) |
60 :group 'octave-inferior) | 60 :group 'octave-inferior) |
180 "Start an inferior Octave process." | 180 "Start an inferior Octave process." |
181 (let ((proc (comint-exec-1 | 181 (let ((proc (comint-exec-1 |
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 |
189 inferior-octave-output-list nil | 190 inferior-octave-output-list nil |
190 inferior-octave-output-string nil | 191 inferior-octave-output-string nil |