[elpa] externals/scanner 43cf030 5/5: explicitly set variables modified with plist-put

[Stefan Monnier]

branch: externals/scanner
commit 43cf030c7338d59f42b90c2d45e2eb7755623447
Author: Raffael Stocker <r.stocker@mnet-mail.de>
Commit: Raffael Stocker <r.stocker@mnet-mail.de>

    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)