diff options
| author | Martin Rudalics <rudalics@gmx.at> | 2007-03-24 09:43:07 +0000 |
|---|---|---|
| committer | Martin Rudalics <rudalics@gmx.at> | 2007-03-24 09:43:07 +0000 |
| commit | fcbd9af64f977d532e5de7dd8d7bedd4e8c93ea7 (patch) | |
| tree | 6df3f445dabc735c1f1218d699b63998b683229f /lisp/man.el | |
| parent | 937e7eee48da57e6fc30d9b55d73f2dd9ae7ceb4 (diff) | |
| download | emacs-fcbd9af64f977d532e5de7dd8d7bedd4e8c93ea7.tar.gz | |
(Man-support-local-filenames): Assure that
default-directory exists when doing call-process.
Diffstat (limited to 'lisp/man.el')
| -rw-r--r-- | lisp/man.el | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/lisp/man.el b/lisp/man.el index a6aced25e3d..0484c032e34 100644 --- a/lisp/man.el +++ b/lisp/man.el @@ -628,7 +628,14 @@ a new value." (setq Man-support-local-filenames (with-temp-buffer (and (equal (condition-case nil - (call-process manual-program nil t nil "--help") + (let ((default-directory + ;; Assure that `default-directory' exists + ;; and is readable. + (if (and (file-directory-p default-directory) + (file-readable-p default-directory)) + default-directory + (expand-file-name "~/")))) + (call-process manual-program nil t nil "--help")) (error nil)) 0) (progn |