emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/scanner fff6573 38/56: implement page-reversal customiz


From: Stefan Monnier
Subject: [elpa] externals/scanner fff6573 38/56: implement page-reversal customization for document mode
Date: Fri, 10 Apr 2020 13:56:05 -0400 (EDT)

branch: externals/scanner
commit fff65739d2d84a60a900562a63446f49da42780e
Author: Raffael Stocker <address@hidden>
Commit: Raffael Stocker <address@hidden>

    implement page-reversal customization for document mode
---
 scanner.el | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/scanner.el b/scanner.el
index 6217ecf..01eadc3 100644
--- a/scanner.el
+++ b/scanner.el
@@ -105,6 +105,11 @@ The value must be one of the keys in the paper sizes list."
   :type '(restricted-sexp :match-alternatives
                          ((lambda (k) (plist-member scanner-paper-sizes k)))))
 
+(defcustom scanner-reverse-pages
+  nil
+  "If non-nil, reverse pages in document mode."
+  :type '(boolean))
+
 (defcustom scanner-image-format
   '(:image "jpeg" :doc "pnm")
   "Image file formats for images and documents (intermediate representation)."
@@ -488,7 +493,8 @@ available, ask for a selection interactively."
                   (cleanup)))
                (tesseract
                 ()
-                (setq file-list (nreverse file-list))
+                (unless scanner-reverse-pages
+                  (setq file-list (nreverse file-list)))
                 (setq fl-file (make-temp-file "scanlist" nil ".txt"
                                               (mapconcat #'identity
                                                          file-list



reply via email to

[Prev in Thread] Current Thread [Next in Thread]