branch: externals/scanner
commit 43cf030c7338d59f42b90c2d45e2eb7755623447
Author: Raffael Stocker <[email protected]>
Commit: Raffael Stocker <[email protected]>
explicitly set variables modified with plist-put
‘plist-put’ doesn't guarantee to keep the structure of a plist intact, so we
explicitly set the list to its value to be sure.
* scanner.el (scanner-set-image-resolution): explicitly set
scanner-resolution
(scanner-set-document-resolution): ditto
---
scanner.el | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/scanner.el b/scanner.el
index 5a755d7..422b652 100644
--- a/scanner.el
+++ b/scanner.el
@@ -529,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)
