procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Replace colon in file name (not legal on Windows)

Browse source 
* lisp/doc-view.el (doc-view--current-cache-dir): Replace colon in file
name (not legal on Windows). [tiny change]
This commit is contained in:
Thomas Plass 2016-02-14 19:56:46 +01:00 • committed by Tassilo Horn
parent f7af26c5ed
commit c1313b5f27
1 changed files with 13 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/doc-view.el
View file

@ -140,6 +140,7 @@
(require 'dired) (require 'dired)
(require 'image-mode) (require 'image-mode)
(require 'jka-compr) (require 'jka-compr)
(require 'subr-x)
;;;; Customization Options ;;;; Customization Options
@ -695,8 +696,12 @@ It's a subdirectory of `doc-view-cache-directory'."
(setq doc-view--current-cache-dir (setq doc-view--current-cache-dir
(file-name-as-directory (file-name-as-directory
(expand-file-name (expand-file-name
(concat (subst-char-in-string ?% ?_ ;; bug#13679 (concat (thread-last (file-name-nondirectory doc-view--buffer-file-name)
(file-name-nondirectory doc-view--buffer-file-name)) ;; bug#13679
(subst-char-in-string ?% ?_)
;; arc-mode concats archive name and file name
;; with colon which is illegal on Windows.
(subst-char-in-string ?: ?_))
"-" "-"
(let ((file doc-view--buffer-file-name)) (let ((file doc-view--buffer-file-name))
(with-temp-buffer (with-temp-buffer