mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki 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
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