branch: elpa/sesman
commit 966c13812f312c748ef984d16ce4cefe0df0f5c9
Author: Vitalie Spinu <spinu...@gmail.com>
Commit: Vitalie Spinu <spinu...@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
