Function: idlwave-shell-module-source-filter

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

Signature

(idlwave-shell-module-source-filter MODULE)

Documentation

Get module source, and update idlwave-shell-sources-alist.

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/idlw-shell.el.gz
(defun idlwave-shell-module-source-filter (module)
  "Get module source, and update `idlwave-shell-sources-alist'."
  (let ((old (assoc (upcase module) idlwave-shell-sources-alist))
	filename)
    (when (string-match ".PATH *[\n\r]\\([^%][^\r\n]+\\)[\n\r]"
			idlwave-shell-command-output)
      (setq filename (substring idlwave-shell-command-output
				(match-beginning 1) (match-end 1)))
      (if old
	  (setcdr old (list (idlwave-shell-file-name filename) filename))
	(setq idlwave-shell-sources-alist
	      (append idlwave-shell-sources-alist
		      (list (cons (upcase module)
				  (list (idlwave-shell-file-name filename)
					filename)))))))))