/[emacs]/emacs/lisp/ido.el
ViewVC logotype

Diff of /emacs/lisp/ido.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.23 by kfstorm, Tue Jan 14 21:31:47 2003 UTC revision 1.24 by kfstorm, Tue Jan 21 22:13:23 2003 UTC
# Line 2713  for first matching file." Line 2713  for first matching file."
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
# Line 2757  for first matching file." Line 2759  for first matching file."
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))

Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26