[nongnu] elpa/sesman 966c13812f 088/100: [Fix #14] Rewrite the usage of when-let*

[ELPA Syncer]

branch: elpa/sesman
commit 966c13812f312c748ef984d16ce4cefe0df0f5c9
Author: Vitalie Spinu <spinuvit@gmail.com>
Commit: Vitalie Spinu <spinuvit@gmail.com>

    [Fix #14] Rewrite the usage of when-let*
---
 sesman-browser.el | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/sesman-browser.el b/sesman-browser.el
index e9cccb00ef..01957f20be 100644
--- a/sesman-browser.el
+++ b/sesman-browser.el
@@ -228,7 +228,7 @@ If NO-SWITCH is non-nil, only display the buffer."
   (interactive)
   (sesman-goto 'no-switch))
 
-(defun sesman-browser--sensor-function (&rest ignore)
+(defun sesman-browser--sensor-function (&rest _ignore)
   (let ((beg (or (when (get-text-property (point) :sesman-stop)
                    (if (get-text-property (1- (point)) :sesman-stop)
                        (previous-single-char-property-change (point) 
:sesman-stop)
@@ -237,9 +237,10 @@ If NO-SWITCH is non-nil, only display the buffer."
         (end (next-single-char-property-change (point) :sesman-stop)))
     (move-overlay sesman-browser--stop-overlay beg end)
     (when window-system
-      (when-let* ((beg (get-text-property (point) :sesman-fragment-beg))
-                  (end (get-text-property (point) :sesman-fragment-end)))
-        (move-overlay sesman-browser--section-overlay beg end)))))
+      (let ((beg (get-text-property (point) :sesman-fragment-beg))
+            (end (get-text-property (point) :sesman-fragment-end)))
+        (when (and beg end)
+          (move-overlay sesman-browser--section-overlay beg end))))))
 
 
 ;;; Sesman UI