(if arg
(setq entries (nconc (elpher-menu-refresh-history) entries))
(push (elpher-menu-refresh-current) entries)))))
(if arg
(setq entries (nconc (elpher-menu-refresh-history) entries))
(push (elpher-menu-refresh-current) entries)))))
((eq major-mode 'eww-mode) "W"))
(cond ((eq major-mode 'elpher-mode)
(or (elpher-address-to-url
(elpher-page-address elpher-current-page))
"none"))
((eq major-mode 'eww-mode) "W"))
(cond ((eq major-mode 'elpher-mode)
(or (elpher-address-to-url
(elpher-page-address elpher-current-page))
"none"))
((eq major-mode 'eww-mode)
(eww-current-url)))
(cond ((eq major-mode 'elpher-mode)
(or (elpher-find-title)
(elpher-page-display-string elpher-current-page)))
((eq major-mode 'eww-mode)
(eww-current-url)))
(cond ((eq major-mode 'elpher-mode)
(or (elpher-find-title)
(elpher-page-display-string elpher-current-page)))