/[emacs]/emacs/lisp/progmodes/octave-inf.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/octave-inf.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.24 by eliz, Sat Sep 10 15:04:37 2005 UTC revision 1.25 by eliz, Sat Nov 26 10:51:22 2005 UTC
# Line 220  startup file, `~/.emacs-octave'." Line 220  startup file, `~/.emacs-octave'."
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))

Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26