Function: ffap-reduce-path

ffap-reduce-path is a byte-compiled function defined in ffap.el.gz.

Signature

(ffap-reduce-path PATH)

Documentation

Remove duplicates and non-directories from PATH list.

Source Code

;; Defined in /usr/src/emacs/lisp/ffap.el.gz
(defun ffap-reduce-path (path)
  "Remove duplicates and non-directories from PATH list."
  (let (ret tem)
    (while path
      (setq tem path path (cdr path))
      (if (equal (car tem) ".") (setcar tem ""))
      (or (member (car tem) ret)
	  (not (file-directory-p (car tem)))
	  (progn (setcdr tem ret) (setq ret tem))))
    (nreverse ret)))