[Emacs-diffs] /srv/bzr/emacs/trunk r111737: * lisp/doc-view.el (doc-view-current-cache-dir): Beware % escapes.

[Stefan Monnier]

------------------------------------------------------------
revno: 111737
fixes bug: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=13679
author: Elias Pipping <address@hidden>
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Mon 2013-02-11 14:29:40 -0500
message:
  * lisp/doc-view.el (doc-view-current-cache-dir): Beware % escapes.
modified:
  lisp/ChangeLog
  lisp/doc-view.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-02-11 19:21:23 +0000
+++ b/lisp/ChangeLog    2013-02-11 19:29:40 +0000
@@ -1,3 +1,8 @@
+2013-02-11  Elias Pipping  <address@hidden>
+
+       * doc-view.el (doc-view-current-cache-dir): Beware % escapes
+       (bug#13679).
+
 2013-02-11  Stefan Monnier  <address@hidden>
 
        * cus-start.el (all): Remove inhibit-local-menu-bar-menus.

=== modified file 'lisp/doc-view.el'
--- a/lisp/doc-view.el  2013-02-09 09:58:48 +0000
+++ b/lisp/doc-view.el  2013-02-11 19:29:40 +0000
@@ -686,7 +686,8 @@
     (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