From: Stefan Monnier Date: Tue, 16 Apr 2013 00:51:46 +0000 (-0400) Subject: * lisp/doc-view.el (doc-view-start-process): Handle url-handler directories. X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~2026^2~455 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=efb3f01dbaff7162597297f75675d9880eb0a13a;p=emacs.git * lisp/doc-view.el (doc-view-start-process): Handle url-handler directories. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 87cde39808d..b5487896f74 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2013-04-16 Stefan Monnier + + * doc-view.el (doc-view-start-process): Handle url-handler directories. + 2013-04-15 Dmitry Gutov * progmodes/ruby-mode.el (ruby-beginning-of-defun) 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)))