[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r112300: * lisp/doc-view.el (doc-view
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r112300: * lisp/doc-view.el (doc-view-start-process): Handle url-handler directories. |
Date: |
Mon, 15 Apr 2013 20:51:46 -0400 |
User-agent: |
Bazaar (2.5.0) |
------------------------------------------------------------
revno: 112300
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Mon 2013-04-15 20:51:46 -0400
message:
* lisp/doc-view.el (doc-view-start-process): Handle url-handler directories.
modified:
lisp/ChangeLog
lisp/doc-view.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2013-04-15 23:07:14 +0000
+++ b/lisp/ChangeLog 2013-04-16 00:51:46 +0000
@@ -1,3 +1,7 @@
+2013-04-16 Stefan Monnier <address@hidden>
+
+ * doc-view.el (doc-view-start-process): Handle url-handler directories.
+
2013-04-15 Dmitry Gutov <address@hidden>
* progmodes/ruby-mode.el (ruby-beginning-of-defun)
=== modified file 'lisp/doc-view.el'
--- a/lisp/doc-view.el 2013-03-18 07:41:38 +0000
+++ b/lisp/doc-view.el 2013-04-16 00:51:46 +0000
@@ -881,8 +881,8 @@
(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)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r112300: * lisp/doc-view.el (doc-view-start-process): Handle url-handler directories.,
Stefan Monnier <=