[elpa] externals/scanner f660947 50/56: add log warning about missing device options

[Stefan Monnier]

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

    add log warning about missing device options
    
    * scanner.el (scanner--check-device-switches):
    correct computation of missing switches
---
 scanner.el | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/scanner.el b/scanner.el
index a32b8c0..8c87d2e 100644
--- a/scanner.el
+++ b/scanner.el
@@ -302,7 +302,8 @@ results are cached in ‘scanner--available-switches’ and
        (push (match-string 1) opts)))
     (setq scanner--available-switches (nreverse opts)
          scanner--missing-switches
-         (-difference scanner--device-specific-switches opts))
+         (-difference scanner--device-specific-switches
+                      scanner--available-switches))
     (list scanner--available-switches scanner--missing-switches)))
 
 (defun scanner--detect-devices ()
@@ -394,7 +395,10 @@ availability of required options."
            ((eql 1 num-devices)
             (setq scanner-device-name (caar scanner--detected-devices)))
            (t (call-interactively #'scanner-select-device)))))
-  (scanner--check-device-switches))
+  (scanner--check-device-switches)
+  (when scanner--missing-switches
+    (scanner--log "Some required options are not supported by the device: %S"
+                 scanner--missing-switches)))
 
 (defun scanner--log (msg &rest args)
   "Write a log message MSG to the process log buffer.
@@ -537,7 +541,7 @@ available, ask for a selection interactively."
                                                          "\n")))
                 (let ((tesseract-args (scanner--tesseract-args fl-file
                                                                doc-file)))
-                  (scanner--log "")    ; make sure logs are properly sequenced
+                  (scanner--log "")   ; make sure logs are properly sequenced
                   (make-process :name "Scanner (tesseract)"
                                 :command `(,scanner-tesseract-program
                                            ,@tesseract-args)