From 1d75432d5c42a7f7c13486c7421f959132179b5b Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Fri, 9 May 2014 00:02:00 -0700 Subject: 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. --- lisp/printing.el | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'lisp/printing.el') diff --git a/lisp/printing.el b/lisp/printing.el index bb7e3843c32..f24c0ab4297 100644 --- a/lisp/printing.el +++ b/lisp/printing.el @@ -6543,8 +6543,7 @@ COMMAND.exe, COMMAND.bat and COMMAND.com in this order." (defun pr-i-directory () - (or (and (file-directory-p pr-i-directory) - (file-readable-p pr-i-directory)) + (or (file-accessible-directory-p pr-i-directory) (error "Please specify be a readable directory"))) @@ -6552,8 +6551,7 @@ COMMAND.exe, COMMAND.bat and COMMAND.com in this order." (and pr-buffer-verbose (message "You can use M-TAB or ESC TAB for file completion")) (let ((dir (widget-value widget))) - (and (file-directory-p dir) - (file-readable-p dir) + (and (file-accessible-directory-p dir) (setq pr-i-directory dir)))) -- cgit v1.2.1