From d0d9e6c89e561419fa2c97652970e4e2df5e1b66 Mon Sep 17 00:00:00 2001 From: Andreas Politz Date: Tue, 25 Sep 2018 07:09:11 +0200 Subject: Silence reading of the synctex.gz file --- lisp/pdf-sync.el | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/lisp/pdf-sync.el b/lisp/pdf-sync.el index 5feb102..006d409 100644 --- a/lisp/pdf-sync.el +++ b/lisp/pdf-sync.el @@ -761,11 +761,15 @@ The first such filename is returned, or nil if none was found." (let* ((synctex (pdf-sync-locate-synctex-file pdffile)) (basename (file-name-nondirectory filename)) (regexp (format "^ *Input *: *[^:\n]+ *:\\(.*%s\\)$" - (regexp-quote basename)))) + (regexp-quote basename))) + (jka-compr-verbose nil)) (when (and synctex (file-readable-p synctex)) - (with-current-buffer (let ((revert-without-query (list ""))) - (find-file-noselect synctex)) + (with-current-buffer (find-file-noselect synctex :nowarn) + (unless (or (verify-visited-file-modtime) + (buffer-modified-p)) + (revert-buffer :ignore-auto :noconfirm) + (goto-char (point-min))) ;; Keep point in front of the found filename. It will ;; probably be queried for again next time. (let ((beg (point)) -- cgit v1.0