branch: externals/scanner
commit a9d3e0357b64c2bc445cf6e6556fd2f224736d34
Merge: 3f83066fc6 43cf030c73
Author: Raffael Stocker <r.stoc...@mnet-mail.de>
Commit: Raffael Stocker <r.stoc...@mnet-mail.de>
Merge branch 'master' into documentation
---
scanner.el | 23 ++++++++++++-----------
1 file changed, 12 insertions(+), 11 deletions(-)
diff --git a/scanner.el b/scanner.el
index 9f3df3c440..422b652199 100644
--- a/scanner.el
+++ b/scanner.el
@@ -230,7 +230,7 @@ plugged in. For these, auto-detection will always be done."
(defcustom scanner-scan-delay
3
- "Delay between document scans in multi-page mode."
+ "Delay in seconds between document scans in multi-page mode."
:type '(number))
@@ -341,10 +341,10 @@ simply dropped."
("--mode" (concat
"--mode="
(plist-get scanner-scan-mode
scan-type)))
- ("--resolution"
(concat "--resolution="
-
(number-to-string
-
(plist-get scanner-resolution
-
scan-type))))
+ ("--resolution"
+ (concat
"--resolution="
+
(number-to-string
+
(plist-get scanner-resolution scan-type))))
((and "-x" (guard
size))
(list "-x"
(number-to-string (car size))))
((and "-y" (guard
size))
@@ -382,9 +382,7 @@ scanimage this will construct a shell command."
shell-command-switch
(concat scanner-scanimage-program
" "
- (mapconcat 'identity
- args
- " ")
+ (mapconcat 'identity args " ")
" > "
outfile))
`(,scanner-scanimage-program "-o" ,outfile ,@args)))
@@ -522,7 +520,8 @@ them. Otherwise, return nil."
(let ((configs (condition-case err
(directory-files
scanner-tesseract-configdir nil "[^.]")
(error
- (error "Could not find output
configurations %s" (cdr err))))))
+ (error "Could not find output
configurations %s"
+ (cdr err))))))
(list (completing-read-multiple "Outputs: " configs nil t))))
(setq scanner-tesseract-outputs outputs))
@@ -530,13 +529,15 @@ them. Otherwise, return nil."
(defun scanner-set-image-resolution (resolution)
"Set the RESOLUTION for scanning images."
(interactive "NImage scan resolution: ")
- (plist-put scanner-resolution :image resolution))
+ (setq scanner-resolution
+ (plist-put scanner-resolution :image resolution)))
;;;###autoload
(defun scanner-set-document-resolution (resolution)
"Set the RESOLUTION for scanning documents."
(interactive "NDocument scan resolution: ")
- (plist-put scanner-resolution :doc resolution))
+ (setq scanner-resolution
+ (plist-put scanner-resolution :doc resolution)))
;;;###autoload
(defun scanner-select-device (device)
