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 |