comparison lisp/files.el @ 30706:b0c302c3b209

(insert-directory): Don't call access-file on directories on DOS and Windows.

30705:b37405134317

                              (if full-directory-p
                                  (concat (file-name-as-directory file) ".")
                                  file))))))))
	  (if (/= result 0)
	      ;; We get here if `insert-directory-program' failed.
	      ;; Access the file to get a suitable error.
	      (access-file file "Reading directory")
	    ;; Replace "total" with "used", to avoid confusion.
	    ;; Add in the amount of free space.
	    (save-excursion
	      (goto-char (point-min))
	      (when (re-search-forward "^total" nil t)

30706:b0c302c3b209

                              (if full-directory-p
                                  (concat (file-name-as-directory file) ".")
                                  file))))))))
	  (if (/= result 0)
	      ;; We get here if `insert-directory-program' failed.
	      ;; On non-Posix systems, we cannot open a directory, so
	      ;; don't even try, because that will always result in
	      ;; the ubiquitous "Access denied".  Instead, show them
	      ;; the `ls' command line and let them guess what went
	      ;; wrong.
	      (if (and (file-directory-p file)
		       (memq system-type '(ms-dos windows-nt)))
		  (error
		   "Reading directory: \"%s %s -- %s\" exited with status %s"
		   insert-directory-program
		   (if (listp switches) (concat switches) switches)
		   file result)
		;; Unix.  Access the file to get a suitable error.
		(access-file file "Reading directory"))
	    ;; Replace "total" with "used", to avoid confusion.
	    ;; Add in the amount of free space.
	    (save-excursion
	      (goto-char (point-min))
	      (when (re-search-forward "^total" nil t)