From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 10 Sep 2005 15:05:44 +0000 (+0000)
Subject: (inferior-octave-startup): Resync current dir at the end.
X-Git-Tag: emacs-pretest-22.0.90~7172
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4ca7c4680d02eec2260a920e834425d86dfd1d3e;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 39cc2893426..d883cbb2236 100644
--- 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 917016cf159..4f0875bbf99 100644
--- 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)))
 
 
 (defun inferior-octave-complete ()