From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 5 Nov 2019 19:33:36 +0000 (-0500)
Subject: * lisp/doc-view.el (doc-view--revert-buffer): Fix last change
X-Git-Tag: emacs-27.0.90~735
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ec5433f676035a5ad3ad8fcb22884cf0e0c290f6;p=emacs.git

* lisp/doc-view.el (doc-view--revert-buffer): Fix last change
---

diff --git a/lisp/doc-view.el b/lisp/doc-view.el
index d88150735fe..15a1dc3b9bd 100644
--- a/lisp/doc-view.el
+++ b/lisp/doc-view.el
@@ -451,9 +451,13 @@ Typically \"page-%s.png\".")
                         (apply orig-fun args)
                         ;; Update the cached version of the pdf file,
                         ;; too.  This is the one that's used when
-                        ;; rendering.
-                        (doc-view-make-safe-dir doc-view-cache-directory)
-                        (write-region nil nil doc-view--buffer-file-name))))
+                        ;; rendering (bug#26996).
+                        (unless (equal buffer-file-name
+                                       doc-view--buffer-file-name)
+                          ;; FIXME: Lars says he needed to recreate
+                          ;; the dir, we should figure out why.
+                          (doc-view-make-safe-dir doc-view-cache-directory)
+                          (write-region nil nil doc-view--buffer-file-name)))))
     (if (and (eq 'pdf doc-view-doc-type)
              (executable-find "pdfinfo"))
         ;; We don't want to revert if the PDF file is corrupted which