minor ido enhancements

minor ido enhancements

[Sean O'Rourke]

The following small changes to lisp/ido.el avoid a tramp connection
caused by file-directory-p when the host matches
ido-is-slow-ftp-host.  The actual diff is only about 4-5 lines, so
hopefully it won't require papers.

/s

(defun ido-nonreadable-directory-p (dir)
  ;; Return t if dir is a directory, but not readable
  ;; Do not check for non-readable directories via tramp, as this
  ;; causes a premature connect on incomplete tramp paths (after
  ;; entring just "method:").
  (and (ido-final-slash dir)
       (or (ido-is-slow-ftp-host dir)
           (not (and (file-directory-p dir) (file-readable-p dir))))))

(defun ido-directory-too-big-p (dir)
  ;; Return t if dir is a directory, but too big to show.  Do not
  ;; check via tramp, but just pessimistically return true.
  (let ((ido-enable-tramp-completion nil))
    (and (numberp ido-max-directory-size)
	 (ido-final-slash dir)
         (or (ido-is-slow-ftp-host dir)
             (and (file-directory-p dir)
                  (> (nth 7 (file-attributes dir)) ido-max-directory-size))))))