diff options
| -rw-r--r-- | lisp/doc-view.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lisp/doc-view.el b/lisp/doc-view.el index 9d10d036285..9fe177a184a 100644 --- a/lisp/doc-view.el +++ b/lisp/doc-view.el | |||
| @@ -448,7 +448,12 @@ Typically \"page-%s.png\".") | |||
| 448 | (setq-local undo-outer-limit (* 2 (buffer-size)))) | 448 | (setq-local undo-outer-limit (* 2 (buffer-size)))) |
| 449 | (cl-labels ((revert () | 449 | (cl-labels ((revert () |
| 450 | (let ((revert-buffer-preserve-modes t)) | 450 | (let ((revert-buffer-preserve-modes t)) |
| 451 | (apply orig-fun args)))) | 451 | (apply orig-fun args) |
| 452 | ;; Update the cached version of the pdf file, | ||
| 453 | ;; too. This is the one that's used when | ||
| 454 | ;; rendering. | ||
| 455 | (doc-view-make-safe-dir doc-view-cache-directory) | ||
| 456 | (write-region nil nil doc-view--buffer-file-name)))) | ||
| 452 | (if (and (eq 'pdf doc-view-doc-type) | 457 | (if (and (eq 'pdf doc-view-doc-type) |
| 453 | (executable-find "pdfinfo")) | 458 | (executable-find "pdfinfo")) |
| 454 | ;; We don't want to revert if the PDF file is corrupted which | 459 | ;; We don't want to revert if the PDF file is corrupted which |