procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(doc-view-convert-current-doc): Save the current

Browse source 
resolution in the cache directory.
(doc-view-initiate-display): Restore the saved resolution when
using cached image files.
This commit is contained in:
Tassilo Horn 2009-03-05 08:24:26 +00:00
parent 067c082944
commit cde4c3f133
2 changed files with 25 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/ChangeLog
View file

@ -1,3 +1,10 @@
2009-03-05 Tassilo Horn <tassilo@member.fsf.org>
* doc-view.el (doc-view-convert-current-doc): Save the current
resolution in the cache directory.
(doc-view-initiate-display): Restore the saved resolution when
using cached image files.
2009-03-05 Glenn Morris <rgm@gnu.org> 2009-03-05 Glenn Morris <rgm@gnu.org>
* mail/rmail.el (rmail-perm-variables): rmail-overlay-list needs to be * mail/rmail.el (rmail-perm-variables): rmail-overlay-list needs to be

18
lisp/doc-view.el
View file

@ -721,8 +721,16 @@ Those files are saved in the directory given by the function
;; resets during the redisplay). ;; resets during the redisplay).
(setq doc-view-pending-cache-flush t) (setq doc-view-pending-cache-flush t)
(let ((png-file (expand-file-name "page-%d.png" (let ((png-file (expand-file-name "page-%d.png"
(doc-view-current-cache-dir)))
(res-file (expand-file-name "resolution.el"
(doc-view-current-cache-dir)))) (doc-view-current-cache-dir))))
(make-directory (doc-view-current-cache-dir) t) (make-directory (doc-view-current-cache-dir) t)
;; Save the used resolution so that it can be restored when
;; reading the cached files.
(let ((res doc-view-resolution))
(with-temp-buffer
(princ res (current-buffer))
(write-file res-file)))
(case doc-view-doc-type (case doc-view-doc-type
(dvi (dvi
;; DVI files have to be converted to PDF before Ghostscript can process ;; DVI files have to be converted to PDF before Ghostscript can process
@ -1045,6 +1053,16 @@ If BACKWARD is non-nil, jump to the previous match."
(if (doc-view-already-converted-p) (if (doc-view-already-converted-p)
(progn (progn
(message "DocView: using cached files!") (message "DocView: using cached files!")
;; Load the saved resolution
(let ((res-file (expand-file-name "resolution.el"
(doc-view-current-cache-dir)))
(res doc-view-resolution))
(with-temp-buffer
(when (file-exists-p res-file)
(insert-file-contents res-file)
(setq res (read (current-buffer)))))
(when (numberp res)
(set (make-local-variable 'doc-view-resolution) res)))
(doc-view-display (current-buffer) 'force)) (doc-view-display (current-buffer) 'force))
(doc-view-convert-current-doc)) (doc-view-convert-current-doc))
(message (message