[Emacs-diffs] Changes to emacs/lisp/ido.el

[Kim F. Storm]

Index: emacs/lisp/ido.el
diff -c emacs/lisp/ido.el:1.23 emacs/lisp/ido.el:1.24
*** emacs/lisp/ido.el:1.23      Tue Jan 14 16:31:47 2003
--- emacs/lisp/ido.el   Tue Jan 21 17:13:23 2003
***************
*** 2713,2719 ****
      (let ((default-directory ido-current-directory))
        (ido-to-end ;; move ftp hosts and visited files to end
         (delq nil (mapcar 
!                 (lambda (x) (if (or (string-match "..:\\'" x) 
(get-file-buffer x)) x))
                  ido-temp-list))))
      (ido-to-end  ;; move . files to end
       (delq nil (mapcar 
--- 2713,2721 ----
      (let ((default-directory ido-current-directory))
        (ido-to-end ;; move ftp hosts and visited files to end
         (delq nil (mapcar 
!                 (lambda (x) (if (or (string-match "..:\\'" x) 
!                                     (and (not (ido-final-slash x))
!                                          (get-file-buffer x))) x))
                  ido-temp-list))))
      (ido-to-end  ;; move . files to end
       (delq nil (mapcar 
***************
*** 2757,2767 ****
    ;; directory names in this list.
    (let ((ido-temp-list (ido-make-dir-list1 ido-current-directory)))
      (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))))
      (ido-to-end  ;; move . files to end
       (delq nil (mapcar 
                (lambda (x) (if (string-equal (substring x 0 1) ".") x))
--- 2759,2764 ----