Teach inferior-octave-startup to handle Octave > 3.7

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 87f0e5242abd85a5b79d2fffa645813443a786cd..b4bb56a1d6f1472a5f19c0a4cc13677dd78dc314 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,7 +1,7 @@
 2013-05-18  Leo Liu  <sdl.web@gmail.com>
 
        * progmodes/octave.el (inferior-octave-startup): Use OCTAVE_SRCDIR
-       instead.
+       instead.  Include "--no-gui" to prevent hangs for Octave > 3.7.
        (octave-source-directories): Don't check process.
        (octave-source-directories, octave-find-definition): Doc fix.
 

diff --git a/lisp/progmodes/octave.el b/lisp/progmodes/octave.el
index 03da4095449d4145c12b8fb1d2b5feaaec3220c8..df03251bbc9722e2defcc2f9a588b51c6b65fac3 100644 (file)
--- a/lisp/progmodes/octave.el
+++ b/lisp/progmodes/octave.el
@@ -707,6 +707,11 @@ startup file, `~/.emacs-octave'."
                inferior-octave-buffer
                inferior-octave-program
                (append (list "-i" "--no-line-editing")
+                       ;; --no-gui is introduced in Octave > 3.7
+                       (when (zerop (process-file inferior-octave-program
+                                                  nil nil nil
+                                                  "--no-gui" "--help"))
+                         (list "--no-gui"))
                        inferior-octave-startup-args))))
     (set-process-filter proc 'inferior-octave-output-digest)
     (setq inferior-octave-process proc