|
From: | João Távora |
Subject: | Re: Text property searching |
Date: | Mon, 16 Apr 2018 22:28:56 +0100 |
Can now be rewritten as:
(defun shr-next-link ()
"Skip to the next link."
(interactive)
(if (not (text-property-search-forward 'shr-url nil nil t))
(message "No next link")
(message "%s" (get-text-property (point) 'help-echo))))
:-)
[Prev in Thread] | Current Thread | [Next in Thread] |