220 |
(concat (mapconcat |
(concat (mapconcat |
221 |
'identity inferior-octave-output-list "\n") |
'identity inferior-octave-output-list "\n") |
222 |
"\n")))) |
"\n")))) |
223 |
|
|
224 |
|
;; An empty secondary prompt, as e.g. obtained by '--braindead', |
225 |
|
;; means trouble. |
226 |
|
(inferior-octave-send-list-and-digest (list "PS2\n")) |
227 |
|
(if (string-match "^PS2 = *$" (car inferior-octave-output-list)) |
228 |
|
(inferior-octave-send-list-and-digest (list "PS2 = \"> \"\n"))) |
229 |
|
|
230 |
;; O.k., now we are ready for the Inferior Octave startup commands. |
;; O.k., now we are ready for the Inferior Octave startup commands. |
231 |
(let* (commands |
(let* (commands |
232 |
(program (file-name-nondirectory inferior-octave-program)) |
(program (file-name-nondirectory inferior-octave-program)) |