From 4fa60c545d251de8a3ad73afbed78ffc7a2f3489 Mon Sep 17 00:00:00 2001 From: Elias Pipping Date: Mon, 11 Feb 2013 14:29:40 -0500 Subject: [PATCH] * lisp/doc-view.el (doc-view-current-cache-dir): Beware % escapes. Fixes: debbugs:13679 --- lisp/ChangeLog | 5 +++++ lisp/doc-view.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1510c6a8fba..7995703e4a5 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2013-02-11 Elias Pipping + + * doc-view.el (doc-view-current-cache-dir): Beware % escapes + (bug#13679). + 2013-02-11 Stefan Monnier * cus-start.el (all): Remove inhibit-local-menu-bar-menus. diff --git a/lisp/doc-view.el b/lisp/doc-view.el index e7d1ebc35ff..edd59a7b518 100644 --- 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 -- 2.39.2