Function: dired-subdir-index

dired-subdir-index is a byte-compiled function defined in dired.el.gz.

Signature

(dired-subdir-index DIR)

Source Code

;; Defined in /usr/src/emacs/lisp/dired.el.gz
(defun dired-subdir-index (dir)
  ;; Return an index into alist for use with nth
  ;; for the sake of subdir moving commands.
  (let (found (index 0) (alist dired-subdir-alist))
    (while alist
      (if (string= dir (car (car alist)))
	  (setq alist nil found t)
	(setq alist (cdr alist) index (1+ index))))
    (if found index nil)))