* lisp/doc-view.el (doc-view-current-cache-dir): Beware % escapes.

Fixes: debbugs:13679

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1510c6a8fba6b09d1f81f9f4d43b2045de297c29..7995703e4a5274c5f6787e347d9e2348b71aac39 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2013-02-11  Elias Pipping  <pipping@lavabit.com>
+
+       * doc-view.el (doc-view-current-cache-dir): Beware % escapes
+       (bug#13679).
+
 2013-02-11  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * cus-start.el (all): Remove inhibit-local-menu-bar-menus.

diff --git a/lisp/doc-view.el b/lisp/doc-view.el
index e7d1ebc35ffeca0f77aa1ce1fb82ca9b58d2735f..edd59a7b5184a065c7ef72b7aa35b5c556efacbc 100644 (file)
--- a/lisp/doc-view.el
+++ b/lisp/doc-view.el
@@ -686,7 +686,8 @@ It's a subdirectory of `doc-view-cache-directory'."
     (setq doc-view-current-cache-dir
          (file-name-as-directory
           (expand-file-name
-           (concat (file-name-nondirectory doc-view-buffer-file-name)
+           (concat (subst-char-in-string ?% ?_ ;; bug#13679
+                     (file-name-nondirectory doc-view-buffer-file-name))
                    "-"
                    (let ((file doc-view-buffer-file-name))
                      (with-temp-buffer