(inferior-octave-startup): Resync current dir at the end.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 39cc2893426ca6df060c62aa17f1c7863da18a2b..d883cbb2236e7e6a9f074384a0fa37000e5fe53b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-09-10  Pascal Dupuis  <Pascal.Dupuis@esat.kuleuven.be>  (tiny change)
+
+       * progmodes/octave-inf.el (inferior-octave-startup): Resync
+       current dir at the end.
+
 2005-09-10  Emilio C. Lopes  <eclig@gmx.net>
   
        * woman.el (woman-topic-at-point-default): Renamed to

diff --git a/lisp/progmodes/octave-inf.el b/lisp/progmodes/octave-inf.el
index 917016cf1594a95f989c3c02bfe5dfc4a2cd8f9b..4f0875bbf997b157c23d588cb2b46d739940cb28 100644 (file)
--- a/lisp/progmodes/octave-inf.el
+++ b/lisp/progmodes/octave-inf.el
@@ -248,7 +248,11 @@ startup file, `~/.emacs-octave'."
 
     ;; And finally, everything is back to normal.
     (set-process-filter proc 'inferior-octave-output-filter)
-    (run-hooks 'inferior-octave-startup-hook)))
+    (run-hooks 'inferior-octave-startup-hook)
+    (run-hooks 'inferior-octave-startup-hook)
+    ;; Just in case, to be sure a cd in the startup file
+    ;; won't have detrimental effects.
+    (inferior-octave-resync-dirs)))
 
 \f
 (defun inferior-octave-complete ()