diff options
author | jao <jao@gnu.org> | 2024-11-12 18:58:14 +0000 |
---|---|---|
committer | jao <jao@gnu.org> | 2024-11-12 18:58:14 +0000 |
commit | 418212e4eb963813c078cf290cddfe7e3defd7ed (patch) | |
tree | 3c265c395b0afe67f88f5e18a34f368a88f970d6 /lib/net/jao-eww-session.el | |
parent | 8ddc2d688cd37693320e46aa3d35d72f06e5bab3 (diff) | |
download | elibs-418212e4eb963813c078cf290cddfe7e3defd7ed.tar.gz elibs-418212e4eb963813c078cf290cddfe7e3defd7ed.tar.bz2 |
Revert "{if,when}-let deprecation in emacs 31"main
This reverts commit 4308710de811e3b4e2fb47f9024439df03e96b90.
Diffstat (limited to 'lib/net/jao-eww-session.el')
-rw-r--r-- | lib/net/jao-eww-session.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/net/jao-eww-session.el b/lib/net/jao-eww-session.el index 3c60cf8..4ac5447 100644 --- a/lib/net/jao-eww-session.el +++ b/lib/net/jao-eww-session.el @@ -97,7 +97,7 @@ the session is already displayed in a eww tab, jao-eww-session can: (jao-eww-session-eww-buffers (current-buffer)))) (defun jao-eww--current-url () - (when-let* ((url (eww-current-url))) (url-encode-url url))) + (when-let (url (eww-current-url)) (url-encode-url url))) (defun jao-eww-session--current-urls (&optional skip-current) (let ((urls) @@ -107,7 +107,7 @@ the session is already displayed in a eww tab, jao-eww-session can: (dolist (b (jao-eww-session-eww-buffers (when skip-current cb)) (list pos (reverse urls))) (set-buffer b) - (when-let* ((url (jao-eww--current-url))) + (when-let (url (jao-eww--current-url)) (when (eq b cb) (setq pos count)) (setq count (1+ count)) (push (cons url (jao-eww-buffer-title)) urls))))) @@ -133,7 +133,7 @@ the session is already displayed in a eww tab, jao-eww-session can: (seq-filter (lambda (b) (with-current-buffer b - (when-let* ((url (jao-eww--current-url))) + (when-let (url (jao-eww--current-url)) (when (member url urls) (when (y-or-n-p "Already open session, abort? ") (switch-to-buffer b) @@ -218,7 +218,7 @@ the session is already displayed in a eww tab, jao-eww-session can: (defun jao-eww-session-load () "Load last stored session into eww." (interactive) - (when-let* ((s (jao-eww-session-load-aux))) + (when-let ((s (jao-eww-session-load-aux))) (let* ((urls (jao-eww-session-urls s)) (offset (jao-eww-session-offset s)) (buffers (unless (equal jao-eww-session-duplicate-tabs 'always) |