branch: externals/scanner commit 67bebbc113993de7baacc0db41d210ad2e95f73a Author: Raffael Stocker <r.stoc...@mnet-mail.de> Commit: Raffael Stocker <r.stoc...@mnet-mail.de>
silence compile warnings about scanner-show-config
---
scanner.el | 41 +++++++++++++++++++++--------------------
1 file changed, 21 insertions(+), 20 deletions(-)
diff --git a/scanner.el b/scanner.el
index 3fa38a5431..08305191b2 100644
--- a/scanner.el
+++ b/scanner.el
@@ -961,26 +961,27 @@ selection is made."
(defun scanner-show-config ()
"Show the current configuration."
(interactive)
- (with-current-buffer-window "*scanner-config*" nil nil
- (let ((variables (mapcar (lambda (variable)
- (cons (car variable)
-
(replace-regexp-in-string "-" " "
-
(symbol-name (car variable))
-
nil nil nil
-
(length "scanner-"))))
- (custom-group-members
'scanner nil))))
- (widget-create 'push-button
- :notify (lambda (&rest ignore)
- (customize-group
'scanner))
- "Customize scanner")
- (insert "\n\nCurrent configuration:\n\n")
- (mapc (lambda (variable)
- (insert (format "%25s: %s\n"
- (cdr variable)
- (symbol-value (car
variable)))))
- variables)
- (use-local-map widget-keymap)
- (widget-setup))))
+ (when (functionp 'custom-group-members)
+ (with-current-buffer-window "*scanner-config*" nil nil
+ (let ((variables (mapcar (lambda (variable)
+ (cons (car
variable)
+
(replace-regexp-in-string "-" " "
+
(symbol-name (car variable))
+
nil nil nil
+
(length "scanner-"))))
+
(custom-group-members 'scanner nil))))
+ (widget-create 'push-button
+ :notify (lambda (&rest _)
+
(customize-group 'scanner))
+ "Customize scanner")
+ (insert "\n\nCurrent configuration:\n\n")
+ (mapc (lambda (variable)
+ (insert (format "%25s: %s\n"
+ (cdr variable)
+ (symbol-value
(car variable)))))
+ variables)
+ (use-local-map widget-keymap)
+ (widget-setup)))))
;;;###autoload
(defun scanner-scan-document (npages filename)
