error from octave-inf: inferior-octave-resync-dirs

[Gerd Bürger]

In version 1.15 of octave-inf.el, the call

(inferior-octave-resync-dirs)

was added at startup. This produces the attached error. Is this caused 
by the "ans = /path/to/dir" response to the pwd command in that function?

        Gerd

----------------
Debugger entered--Lisp error: (error "No such directory found via CDPATH 
environment variable")
  signal(error ("No such directory found via CDPATH environment variable"))
  error("No such directory found via CDPATH environment variable")
  cd("ans = /home/gerd/oct")
  inferior-octave-resync-dirs()
  (let ((proc ...)) (set-process-filter proc (quote 
inferior-octave-output-digest)) (setq comint-ptyp 
process-connection-type inferior-octave-process proc 
inferior-octave-output-list nil inferior-octave-output-string nil 
inferior-octave-receive-in-progress t) (while 
inferior-octave-receive-in-progress (accept-process-output 
inferior-octave-process)) (goto-char (point-max)) (set-marker 
(process-mark proc) (point)) (insert-before-markers (concat ... ...)) 
(inferior-octave-send-list-and-digest (list "PS2\n")) (if (string-match 
"^PS2 = *$" ...) (inferior-octave-send-list-and-digest ...)) (let* 
(commands ... ...) (setq commands ...) 
(inferior-octave-send-list-and-digest commands)) (insert-before-markers 
(concat ... inferior-octave-output-string)) 
(inferior-octave-send-list-and-digest (list "exist 
\"completion_matches\"\n")) (setq inferior-octave-complete-impossible 
(not ...)) (set-process-filter proc (quote 
inferior-octave-output-filter)) (run-hooks (quote 
inferior-octave-startup-hook)) (inferior-octave-resync-dirs))
  inferior-octave-startup()
  (save-excursion (set-buffer buffer) (comint-mode) 
(inferior-octave-startup) (inferior-octave-mode))
  (if (comint-check-proc buffer) nil (save-excursion (set-buffer 
buffer) (comint-mode) (inferior-octave-startup) (inferior-octave-mode)))
  (let ((buffer inferior-octave-buffer)) (get-buffer-create buffer) (if 
(comint-check-proc buffer) nil (save-excursion ... ... ... ...)) (if 
(not arg) (pop-to-buffer buffer)))
  inferior-octave(t)
  octave-send-region(38 38)
  octave-send-line(nil)
* call-interactively(octave-send-line)