From: Mark Oteiza <mvoteiza@udel.edu>
Date: Wed, 14 Dec 2016 19:34:21 +0000 (-0500)
Subject: Update standard image-dired thumbnail location
X-Git-Tag: emacs-26.0.90~1084
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=66ccc65935c389942f1bc72e968846d8dab9951b;p=emacs.git

Update standard image-dired thumbnail location

* lisp/image-dired.el (image-dired-thumb-name): Conform to the latest
standard: consider XDG_CACHE_HOME, falling back on ~/.cache.
---

diff --git a/lisp/image-dired.el b/lisp/image-dired.el
index 1c99db333f5..066a9949166 100644
--- a/lisp/image-dired.el
+++ b/lisp/image-dired.el
@@ -587,9 +587,12 @@ the thumbnail file name unique.  For per-directory storage, just
 add a subdirectory.  For standard storage, produce the file name
 according to the Thumbnail Managing Standard."
   (cond ((eq 'standard image-dired-thumbnail-storage)
-         (expand-file-name
-          (concat "~/.thumbnails/normal/"
-                  (md5 (concat "file://" (expand-file-name file))) ".png")))
+         (let* ((xdg (getenv "XDG_CACHE_HOME"))
+                (dir (if (and xdg (file-name-absolute-p xdg))
+                         xdg "~/.cache")))
+           (expand-file-name
+            (concat (md5 (concat "file://" (expand-file-name file))) ".png")
+            (expand-file-name "thumbnails/normal" dir))))
         ((eq 'use-image-dired-dir image-dired-thumbnail-storage)
          (let* ((f (expand-file-name file))
                 (md5-hash