Function: idlwave-shell-filter-directory

idlwave-shell-filter-directory is a byte-compiled function defined in idlw-shell.el.gz.

Signature

(idlwave-shell-filter-directory)

Documentation

Get the current directory from idlwave-shell-command-output.

Change the default directory for the process buffer to concur.

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/idlw-shell.el.gz
(defun idlwave-shell-filter-directory ()
  "Get the current directory from `idlwave-shell-command-output'.
Change the default directory for the process buffer to concur."
  (with-current-buffer (idlwave-shell-buffer)
    (if (string-match ",___cur[\n\r ]+\\([^\n\r]+\\)[\n\r]"
		      idlwave-shell-command-output)
	(let ((dir (substring idlwave-shell-command-output
			      (match-beginning 1) (match-end 1))))
          ;; (message "Setting Emacs working dir to %s" dir)
	  (setq idlwave-shell-default-directory dir)
	  (setq default-directory (file-name-as-directory dir))))))