Mercurial > emacs
comparison lisp/man.el @ 76691:9522301cee68
(Man-support-local-filenames): Assure that
default-directory exists when doing call-process.
| author | Martin Rudalics <rudalics@gmx.at> |
|---|---|
| date | Sat, 24 Mar 2007 09:43:07 +0000 |
| parents | e3694f1cb928 |
| children | f05ec6aa2fbe 4ef881a120fe |
comparison
equal
deleted
inserted
replaced
| 76690:79a8b64c8235 | 76691:9522301cee68 |
|---|---|
| 626 (eq Man-support-local-filenames t)) | 626 (eq Man-support-local-filenames t)) |
| 627 Man-support-local-filenames | 627 Man-support-local-filenames |
| 628 (setq Man-support-local-filenames | 628 (setq Man-support-local-filenames |
| 629 (with-temp-buffer | 629 (with-temp-buffer |
| 630 (and (equal (condition-case nil | 630 (and (equal (condition-case nil |
| 631 (call-process manual-program nil t nil "--help") | 631 (let ((default-directory |
| 632 ;; Assure that `default-directory' exists | |
| 633 ;; and is readable. | |
| 634 (if (and (file-directory-p default-directory) | |
| 635 (file-readable-p default-directory)) | |
| 636 default-directory | |
| 637 (expand-file-name "~/")))) | |
| 638 (call-process manual-program nil t nil "--help")) | |
| 632 (error nil)) | 639 (error nil)) |
| 633 0) | 640 0) |
| 634 (progn | 641 (progn |
| 635 (goto-char (point-min)) | 642 (goto-char (point-min)) |
| 636 (search-forward "--local-file" nil t)) | 643 (search-forward "--local-file" nil t)) |