summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
-rw-r--r--lib/net/jao-eww-session.el8
1 files changed, 3 insertions, 5 deletions
diff --git a/lib/net/jao-eww-session.el b/lib/net/jao-eww-session.el
index ddbc572..6b4d52c 100644
--- a/lib/net/jao-eww-session.el
+++ b/lib/net/jao-eww-session.el
@@ -238,7 +238,7 @@ the session is already displayed in a eww tab, jao-eww-session can:
(count 0))
(dolist (b (jao-eww-session--list-buffers) (list pos (reverse urls)))
(set-buffer b)
- (let ((url (jao-eww-session--filter (jao-eww-buffer-url) jao-eww-url-filters)))
+ (let ((url (jao-eww-session--filter (eww-current-url) jao-eww-url-filters)))
(when url
(when (eq b cb) (setq pos count))
(setq count (1+ count))
@@ -267,12 +267,12 @@ the session is already displayed in a eww tab, jao-eww-session can:
(lambda ()
(y-or-n-p
(format "'%s' (%s) is already open. Duplicate tab? "
- (jao-eww-buffer-title) (jao-eww-buffer-url)))))
+ (jao-eww-buffer-title) (eww-current-url)))))
(urls (regexp-opt urls))
(test-b
(lambda (b)
(set-buffer b)
- (or (and (string-match urls (jao-eww-buffer-url))
+ (or (and (string-match urls (eww-current-url))
(or (equal jao-eww-session-duplicate-tabs 'never)
(not (duplicate-p)))
b)
@@ -354,8 +354,6 @@ the session is already displayed in a eww tab, jao-eww-session can:
(advice-add 'eww-forward-url :after #'jao-eww-session--save-backup)
;;; Interactive functions:
-;;;###autoload
-(defun jao-eww-buffer-url () (plist-get eww-data :url))
;;;###autoload
(defun jao-eww-buffer-title () (plist-get eww-data :title))