[Emacs-diffs] Changes to emacs/lisp/progmodes/octave-inf.el

[Eli Zaretskii]

Index: emacs/lisp/progmodes/octave-inf.el
diff -c emacs/lisp/progmodes/octave-inf.el:1.24 
emacs/lisp/progmodes/octave-inf.el:1.25
*** emacs/lisp/progmodes/octave-inf.el:1.24     Sat Sep 10 15:04:37 2005
--- emacs/lisp/progmodes/octave-inf.el  Sat Nov 26 10:51:22 2005
***************
*** 220,225 ****
--- 220,232 ----
          (concat (mapconcat
                   'identity inferior-octave-output-list "\n")
                  "\n"))))
+ 
+     ;; An empty secondary prompt, as e.g. obtained by '--braindead',
+     ;; means trouble.
+     (inferior-octave-send-list-and-digest (list "PS2\n"))
+     (if (string-match "^PS2 = *$" (car inferior-octave-output-list))
+       (inferior-octave-send-list-and-digest (list "PS2 = \"> \"\n")))
+ 
      ;; O.k., now we are ready for the Inferior Octave startup commands.
      (let* (commands
           (program (file-name-nondirectory inferior-octave-program))