branch: externals/scanner
commit 25e9bfc9ff3a451ebd38ecac33407745f7ecbc08
Author: Raffael Stocker <r.stoc...@mnet-mail.de>
Commit: Raffael Stocker <r.stoc...@mnet-mail.de>
add a command and menu item for setting the scan delay
* scanner.el (scanner-set-scan-delay): new function
---
scanner.el | 9 +++++++++
1 file changed, 9 insertions(+)
diff --git a/scanner.el b/scanner.el
index 66f2d4d0f1..048958a1e3 100644
--- a/scanner.el
+++ b/scanner.el
@@ -409,6 +409,9 @@ border-scan."
(define-key map [doc-res]
'(menu-item "Set document resolution" scanner-set-document-resolution
:help "Set the resolution for document
scanning."))
+ (define-key map [scan-delay]
+ '(menu-item "Set delay between scans" scanner-set-scan-delay
+ :help "Set the delay between multi-page
scans."))
(define-key map [select-dev]
'(menu-item "Select scanning device" scanner-select-device
:help "Select a scanning device."))
@@ -771,6 +774,12 @@ them. Otherwise, return nil."
(interactive "NContrast: ")
(setq scanner-contrast (min (max contrast 0) 100)))
+;;;###autoload
+(defun scanner-set-scan-delay (delay)
+ "Set the scan DELAY."
+ (interactive "NDelay between page scans: ")
+ (setq scanner-scan-delay (max delay 0)))
+
;;;###autoload
(defun scanner-select-device (device)
"Select a scanning DEVICE.
