* progmodes/octave.el (inferior-octave-startup): Use OCTAVE_SRCDIR

instead.
(octave-source-directories): Don't check process.
(octave-source-directories, octave-find-definition): Doc fix.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e80cc88b5e91f8ce59b74e8a48cdc31e23f7e0fa..87f0e5242abd85a5b79d2fffa645813443a786cd 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2013-05-18  Leo Liu  <sdl.web@gmail.com>
+
+       * progmodes/octave.el (inferior-octave-startup): Use OCTAVE_SRCDIR
+       instead.
+       (octave-source-directories): Don't check process.
+       (octave-source-directories, octave-find-definition): Doc fix.
+
 2013-05-18  Glenn Morris  <rgm@gnu.org>
 
        * progmodes/vhdl-mode.el (vhdl-mode-map-init):

diff --git a/lisp/progmodes/octave.el b/lisp/progmodes/octave.el
index 26fb254af5fc3befb9a494c8d5288aad64520bb0..03da4095449d4145c12b8fb1d2b5feaaec3220c8 100644 (file)
--- a/lisp/progmodes/octave.el
+++ b/lisp/progmodes/octave.el
@@ -738,8 +738,10 @@ startup file, `~/.emacs-octave'."
       (inferior-octave-send-list-and-digest (list "PS2 (\"> \");\n")))
 
     (inferior-octave-send-list-and-digest
-     (list "if exist(\"__octave_srcdir__\") disp(__octave_srcdir__) endif\n"))
-    (process-put proc 'octave-srcdir (car inferior-octave-output-list))
+     (list "disp(getenv(\"OCTAVE_SRCDIR\"))\n"))
+    (process-put proc 'octave-srcdir
+                 (unless (equal (car inferior-octave-output-list) "")
+                   (car inferior-octave-output-list)))
 
     ;; O.K., now we are ready for the Inferior Octave startup commands.
     (inferior-octave-send-list-and-digest
@@ -1627,14 +1629,16 @@ if ismember(exist(\"%s\"), [2 3 5 103]) print_usage(\"%s\") endif\n"
                                 :type 'octave-help-function))))))))
 
 (defcustom octave-source-directories nil
-  "A list of directories for Octave sources."
+  "A list of directories for Octave sources.
+If the environment variable OCTAVE_SRCDIR is set, it is searched first."
   :type '(repeat directory)
   :group 'octave
   :version "24.4")
 
 (defun octave-source-directories ()
-  (inferior-octave-check-process)
-  (let ((srcdir (process-get inferior-octave-process 'octave-srcdir)))
+  (let ((srcdir (or (and inferior-octave-process
+                         (process-get inferior-octave-process 'octave-srcdir))
+                    (getenv "OCTAVE_SRCDIR"))))
     (if srcdir
         (cons srcdir octave-source-directories)
       octave-source-directories)))
@@ -1668,7 +1672,7 @@ if ismember(exist(\"%s\"), [2 3 5 103]) print_usage(\"%s\") endif\n"
 
 (defun octave-find-definition (fn)
   "Find the definition of FN.
-Definitions for functions implemented in C++ can be found if
+Functions implemented in C++ can be found if
 `octave-source-directories' is set correctly."
   (interactive (list (octave-completing-read)))
   (inferior-octave-send-list-and-digest