mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-27 10:54:40 +00:00
Code Issues Releases Activity

(Man-support-local-filenames): Assure that

Browse Source 
default-directory exists when doing call-process.
This commit is contained in:
Martin Rudalics 2007-03-24 09:43:07 +00:00
parent 937e7eee48
commit fcbd9af64f
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/man.el
View File

@ -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