[elpa] externals/cursory 81a1ea1f7c: Fix bug with state save and recovery

[ELPA Syncer]

branch: externals/cursory
commit 81a1ea1f7cf9946c915194351ca0485cb69ee8c5
Author: Protesilaos Stavrou <i...@protesilaos.com>
Commit: Protesilaos Stavrou <i...@protesilaos.com>

    Fix bug with state save and recovery
---
 cursory.el | 32 ++++++++++++++++----------------
 1 file changed, 16 insertions(+), 16 deletions(-)

diff --git a/cursory.el b/cursory.el
index a3378ebccf..196c137d99 100644
--- a/cursory.el
+++ b/cursory.el
@@ -5,7 +5,7 @@
 ;; Author: Protesilaos Stavrou <i...@protesilaos.com>
 ;; URL: https://git.sr.ht/~protesilaos/cursory
 ;; Mailing list: https://lists.sr.ht/~protesilaos/cursory
-;; Version: 0.1.1
+;; Version: 0.1.2
 ;; Package-Requires: ((emacs "27.1"))
 ;; Keywords: convenience, cursor
 
@@ -146,14 +146,14 @@ With optional LOCAL as a prefix argument, set the
 (defun cursory-store-latest-preset ()
   "Write latest cursor state to `cursory-latest-state-file'.
 Can be assigned to `kill-emacs-hook'."
-  (when cursory--style-hist
+  (when-let ((hist cursory--style-hist))
     (with-temp-file cursory-latest-state-file
       (insert ";; Auto-generated file; don't edit -*- mode: "
-             (if (<= 28 emacs-major-version)
-                 "lisp-data"
-               "emacs-lisp")
-             " -*-\n"))
-      (pp (intern (car cursory--style-hist)) (current-buffer))))
+                 (if (<= 28 emacs-major-version)
+                         "lisp-data"
+                       "emacs-lisp")
+                 " -*-\n")
+      (pp (intern (car hist)) (current-buffer)))))
 
 (defvar cursory-recovered-preset nil
   "Recovered value of latest store cursor preset.")
@@ -161,15 +161,15 @@ Can be assigned to `kill-emacs-hook'."
 ;;;###autoload
 (defun cursory-restore-latest-preset ()
   "Restore latest cursor style."
-  (when-let ((file cursory-latest-state-file))
-    (when (file-exists-p file)
-      (setq cursory-recovered-preset
-            (unless (zerop
-                     (or (file-attribute-size (file-attributes file))
-                         0))
-              (with-temp-buffer
-                (insert-file-contents file)
-                (read (current-buffer))))))))
+  (when-let* ((file cursory-latest-state-file)
+              ((file-exists-p file)))
+    (setq cursory-recovered-preset
+          (unless (zerop
+                   (or (file-attribute-size (file-attributes file))
+                       0))
+            (with-temp-buffer
+              (insert-file-contents file)
+              (read (current-buffer)))))))
 
 (provide 'cursory)
 ;;; cursory.el ends here