2713 |
(let ((default-directory ido-current-directory)) |
(let ((default-directory ido-current-directory)) |
2714 |
(ido-to-end ;; move ftp hosts and visited files to end |
(ido-to-end ;; move ftp hosts and visited files to end |
2715 |
(delq nil (mapcar |
(delq nil (mapcar |
2716 |
(lambda (x) (if (or (string-match "..:\\'" x) (get-file-buffer x)) x)) |
(lambda (x) (if (or (string-match "..:\\'" x) |
2717 |
|
(and (not (ido-final-slash x)) |
2718 |
|
(get-file-buffer x))) x)) |
2719 |
ido-temp-list)))) |
ido-temp-list)))) |
2720 |
(ido-to-end ;; move . files to end |
(ido-to-end ;; move . files to end |
2721 |
(delq nil (mapcar |
(delq nil (mapcar |
2759 |
;; directory names in this list. |
;; directory names in this list. |
2760 |
(let ((ido-temp-list (ido-make-dir-list1 ido-current-directory))) |
(let ((ido-temp-list (ido-make-dir-list1 ido-current-directory))) |
2761 |
(setq ido-temp-list (ido-sort-list ido-temp-list)) |
(setq ido-temp-list (ido-sort-list ido-temp-list)) |
|
(let ((default-directory ido-current-directory)) |
|
|
(ido-to-end ;; move visited files to end |
|
|
(delq nil (mapcar |
|
|
(lambda (x) (if (get-file-buffer x) x)) |
|
|
ido-temp-list)))) |
|
2762 |
(ido-to-end ;; move . files to end |
(ido-to-end ;; move . files to end |
2763 |
(delq nil (mapcar |
(delq nil (mapcar |
2764 |
(lambda (x) (if (string-equal (substring x 0 1) ".") x)) |
(lambda (x) (if (string-equal (substring x 0 1) ".") x)) |