diff options
author | Glenn Morris <[email protected]> | 2014-05-09 00:02:00 -0700 |
---|---|---|
committer | Glenn Morris <[email protected]> | 2014-05-09 00:02:00 -0700 |
commit | 1d75432d5c42a7f7c13486c7421f959132179b5b (patch) | |
tree | 946965f0033dbab3c9725b86d7875ab61d8e0a57 /lisp/mh-e | |
parent | c578a99338e44511fc3792f1d14ea2193cb58aa5 (diff) |
Use file-accessible-directory-p in some more places
* lisp/files.el (file-expand-wildcards):
* lisp/man.el (Man-support-local-filenames):
* lisp/printing.el (pr-i-directory, pr-interface-directory):
* lisp/progmodes/grep.el (lgrep, rgrep):
* lisp/textmodes/ispell.el (ispell-call-process)
(ispell-call-process-region, ispell-start-process)
(ispell-init-process):
* lisp/mh-e/mh-e.el (mh-variants):
Use file-accessible-directory-p.
Diffstat (limited to 'lisp/mh-e')
-rw-r--r-- | lisp/mh-e/ChangeLog | 4 | ||||
-rw-r--r-- | lisp/mh-e/mh-e.el | 6 |
2 files changed, 7 insertions, 3 deletions
diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog index b3d37ac4b1..96a9b19ab7 100644 --- a/lisp/mh-e/ChangeLog +++ b/lisp/mh-e/ChangeLog @@ -1,3 +1,7 @@ +2014-05-09 Glenn Morris <[email protected]> + + * mh-e.el (mh-variants): Use file-accessible-directory-p. + 2014-03-16 Bill Wohler <[email protected]> * mh-folder.el (mh-regenerate-headers): Fix scan: bad message list diff --git a/lisp/mh-e/mh-e.el b/lisp/mh-e/mh-e.el index eaa05720f4..7368c0b9ff 100644 --- a/lisp/mh-e/mh-e.el +++ b/lisp/mh-e/mh-e.el @@ -1,7 +1,7 @@ ;;; mh-e.el --- GNU Emacs interface to the MH mail system -;; Copyright (C) 1985-1988, 1990, 1992-1995, 1997, 1999-2014 Free -;; Software Foundation, Inc. +;; Copyright (C) 1985-1988, 1990, 1992-1995, 1997, 1999-2014 +;; Free Software Foundation, Inc. ;; Author: Bill Wohler <[email protected]> ;; Maintainer: Bill Wohler <[email protected]> @@ -739,7 +739,7 @@ is described by the variable `mh-variants'." (setq dir (file-chase-links (directory-file-name dir))) (add-to-list 'list-unique dir)) (loop for dir in (nreverse list-unique) do - (when (and dir (file-directory-p dir) (file-readable-p dir)) + (when (and dir (file-accessible-directory-p dir)) (let ((variant (mh-variant-info dir))) (if variant (add-to-list 'mh-variants variant))))) |