# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1126364677 0
# Node ID effbe6e5cd5045edb3e9ed44959b185edd95e0b5
# Parent  492c26176ce93af6b0c6b3e2de0d408437f9bcad
(inferior-octave-startup): Resync current dir at the end.

diff -r 492c26176ce9 -r effbe6e5cd50 lisp/progmodes/octave-inf.el
--- a/lisp/progmodes/octave-inf.el	Sat Sep 10 15:01:43 2005 +0000
+++ b/lisp/progmodes/octave-inf.el	Sat Sep 10 15:04:37 2005 +0000
@@ -248,7 +248,11 @@
 
     ;; 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 ()