branch: externals/hiddenquote
commit d9ec0c13fbf4a144cb609a6f0014f71654399c34
Author: Mauro Aranda <maurooara...@gmail.com>
Commit: Mauro Aranda <maurooara...@gmail.com>
; Change when-let to when-let*
---
hiddenquote.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/hiddenquote.el b/hiddenquote.el
index 2873bc565b..74d486a8b1 100644
--- a/hiddenquote.el
+++ b/hiddenquote.el
@@ -1307,7 +1307,7 @@ puzzle Nº."
(set-text-properties (car (aref hiddenquote-definition-markers n))
(cdr (aref hiddenquote-definition-markers n))
'(face hiddenquote-highlight))
- (when-let ((w (get-buffer-window (current-buffer))))
+ (when-let* ((w (get-buffer-window (current-buffer))))
(set-window-point w (car (aref hiddenquote-definition-markers n)))
(or (pos-visible-in-window-p
(cdr (aref hiddenquote-definition-markers n)) w)
@@ -1349,7 +1349,7 @@ puzzle Nº."
(defun hiddenquote-puzzle-complete-p ()
"Non-nil if the grid is complete."
- (when-let ((used-all-p (with-current-buffer
+ (when-let* ((used-all-p (with-current-buffer
(concat (buffer-name hiddenquote-buffer)
" - Syllables")
(cl-every #'widget-value hiddenquote-syllables))))
