Function: dired-insert-subdir-newpos

dired-insert-subdir-newpos is a byte-compiled function defined in dired-aux.el.gz.

Signature

(dired-insert-subdir-newpos NEW-DIR)

Source Code

;; Defined in /usr/src/emacs/lisp/dired-aux.el.gz
(defun dired-insert-subdir-newpos (new-dir)
  ;; Find pos for new subdir, according to tree order.
  ;;(goto-char (point-max))
  (let ((alist dired-subdir-alist) elt dir new-pos)
    (while alist
      (setq elt (car alist)
	    alist (cdr alist)
	    dir (car elt))
      (if (dired-tree-lessp dir new-dir)
	  ;; Insert NEW-DIR after DIR
	  (setq new-pos (dired-get-subdir-max elt)
		alist nil)))
    (goto-char new-pos))
  ;; want a separating newline between subdirs
  (or (eobp)
      (forward-line -1))
  (insert "\n")
  (point))