>From a8a298ab5b6a2c12e7cca16af81ba76fd54d1c9a Mon Sep 17 00:00:00 2001 From: Elias Pipping Date: Thu, 10 Jan 2013 00:59:16 +0100 Subject: [PATCH 2/3] single-page-converter need not be passed --- lisp/doc-view.el | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) diff --git a/lisp/doc-view.el b/lisp/doc-view.el index 0658a11..5f2d70d 100644 --- a/lisp/doc-view.el +++ b/lisp/doc-view.el @@ -970,7 +970,7 @@ Call CALLBACK with no arguments when done." (declare-function clear-image-cache "image.c" (&optional filter)) -(defun doc-view-document->png (pdf png pages single-page-converter) +(defun doc-view-document->png (pdf png pages) ;; FIXME: Fix docstring. "Convert a PDF file to PNG asynchronously. Start by converting PAGES, and then the rest." @@ -981,7 +981,7 @@ Start by converting PAGES, and then the rest." ;; a single page anyway, and of the remaining 1%, few cases will have ;; consecutive pages, it's not worth the trouble. (let ((rest (cdr pages))) - (funcall single-page-converter + (funcall doc-view-single-page-converter-function pdf (format png (car pages)) (car pages) (lambda () (if rest @@ -1095,12 +1095,10 @@ Those files are saved in the directory given by the function (`pdf (let ((pages (doc-view-active-pages))) ;; Convert PDF to PNG images starting with the active pages. - (doc-view-document->png doc-view-buffer-file-name png-file pages - 'doc-view-pdf->png-1))) + (doc-view-document->png doc-view-buffer-file-name png-file pages))) (`djvu (let ((pages (doc-view-active-pages))) - (doc-view-document->png doc-view-buffer-file-name png-file pages - 'doc-view-djvu->png-1))) + (doc-view-document->png doc-view-buffer-file-name png-file pages))) (_ ;; Convert to PNG images. (doc-view-pdf/ps->png doc-view-buffer-file-name png-file))))) -- 1.8.1