branch: externals/eev
commit 78b53e86428e4d202d14d47c91e3edec181066ba
Author: Eduardo Ochs <eduardoo...@gmail.com>
Commit: Eduardo Ochs <eduardoo...@gmail.com>
Added `ee-url-at-point'.
---
ChangeLog | 4 ++++
VERSION | 4 ++--
eev-elinks.el | 4 +++-
3 files changed, 9 insertions(+), 3 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index d6e6d23b80..340a41b675 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2022-03-22 Eduardo Ochs <eduardoo...@gmail.com>
+
+ * eev-elinks.el (ee-url-at-point): new function.
+
2022-03-21 Eduardo Ochs <eduardoo...@gmail.com>
* eev-plinks.el (find-osm-str): new function.
diff --git a/VERSION b/VERSION
index f04b7b2e3b..3a41c1252a 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Mon Mar 21 07:22:30 GMT 2022
-Mon Mar 21 04:22:30 -03 2022
+Wed Mar 23 04:25:30 GMT 2022
+Wed Mar 23 01:25:30 -03 2022
diff --git a/eev-elinks.el b/eev-elinks.el
index 5ae84aa8bd..a5bf30db5a 100644
--- a/eev-elinks.el
+++ b/eev-elinks.el
@@ -19,7 +19,7 @@
;;
;; Author: Eduardo Ochs <eduardoo...@gmail.com>
;; Maintainer: Eduardo Ochs <eduardoo...@gmail.com>
-;; Version: 20220316
+;; Version: 20220323
;; Keywords: e-scripts
;;
;; Latest version: <http://angg.twu.net/eev-current/eev-elinks.el>
@@ -121,6 +121,8 @@
;; (find-elnode "Index" "* thing-at-point:")
;; (find-efunction 'thing-at-point)
;; (find-efile "thingatpt.el")
+(defun ee-url-at-point ()
+ (ee-no-properties (thing-at-point 'url)))
(defun ee-stuff-around-point0 (chars)
(interactive "MChars: \np") ; for tests
