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

21
lisp/doc-view.el
View file

@ -140,6 +140,7 @@
(require 'dired)
(require 'image-mode)
(require 'jka-compr)
(require 'subr-x)
;;;; Customization Options
@ -695,14 +696,18 @@ It's a subdirectory of `doc-view-cache-directory'."
(setq doc-view--current-cache-dir
(file-name-as-directory
(expand-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
(set-buffer-multibyte nil)
(insert-file-contents-literally file)
(md5 (current-buffer)))))
(concat (thread-last (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))
(with-temp-buffer
(set-buffer-multibyte nil)
(insert-file-contents-literally file)
(md5 (current-buffer)))))
doc-view-cache-directory)))))
;;;###autoload