From 23bd9f15971b695ac3bba4a3d304154e122bdd34 Mon Sep 17 00:00:00 2001 From: Andreas Politz Date: Mon, 21 Jan 2019 05:10:00 +0100 Subject: Remove duplicate images when caching --- lisp/pdf-cache.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/pdf-cache.el b/lisp/pdf-cache.el index ea4182f..c946654 100644 --- a/lisp/pdf-cache.el +++ b/lisp/pdf-cache.el @@ -231,8 +231,9 @@ This function always returns nil." (add-hook 'pdf-info-close-document-hook 'pdf-cache-clear-images nil t) (add-hook 'pdf-annot-modified-functions 'pdf-cache--clear-images-of-annotations nil t)) - (push (pdf-cache--make-image page width data hash) - pdf-cache--image-cache) + (let ((image (pdf-cache--make-image page width data hash))) + (setq pdf-cache--image-cache + (cons image (delete image pdf-cache--image-cache)))) ;; Forget old image(s). (when (> (length pdf-cache--image-cache) pdf-cache-image-limit) -- cgit v1.0