diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2013-04-15 20:51:46 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2013-04-15 20:51:46 -0400 |
| commit | efb3f01dbaff7162597297f75675d9880eb0a13a (patch) | |
| tree | 38567eacc3636c07ea686ab6a3eeed28a33f058e /lisp/doc-view.el | |
| parent | fb549d640a32fb02bb8329727891de395e691c45 (diff) | |
| download | emacs-efb3f01dbaff7162597297f75675d9880eb0a13a.tar.gz | |
* lisp/doc-view.el (doc-view-start-process): Handle url-handler directories.
Diffstat (limited to 'lisp/doc-view.el')
| -rw-r--r-- | lisp/doc-view.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/doc-view.el b/lisp/doc-view.el index 6217f5d0a3f..b1f399d5b73 100644 --- a/lisp/doc-view.el +++ b/lisp/doc-view.el @@ -881,8 +881,8 @@ Should be invoked when the cached images aren't up-to-date." (defun doc-view-start-process (name program args callback) ;; Make sure the process is started in an existing directory, (rather than ;; some file-name-handler-managed dir, for example). - (let* ((default-directory (if (file-readable-p default-directory) - default-directory + (let* ((default-directory (or (unhandled-file-name-directory + default-directory) (expand-file-name "~/"))) (proc (apply 'start-process name doc-view-conversion-buffer program args))) |