[elpa] externals/objed 4bb1b90 12/21: Add url object

[Clemens Radermacher]

branch: externals/objed
commit 4bb1b90a7333d5b3aaa020301c78a94349bf14e8
Author: Clemens Radermacher <address@hidden>
Commit: Clemens Radermacher <address@hidden>

    Add url object
---
 objed-objects.el | 10 ++++++++++
 objed.el         |  1 +
 2 files changed, 11 insertions(+)

diff --git a/objed-objects.el b/objed-objects.el
index 6c5a6f0..5fb40ad 100644
--- a/objed-objects.el
+++ b/objed-objects.el
@@ -1635,6 +1635,16 @@ comments."
   :try-prev
   (re-search-backward  "@" nil t))
 
+(objed-define-object nil url
+  :get-obj
+  (bounds-of-thing-at-point 'url)
+  :try-next
+  (re-search-forward "http"
+                     nil t)
+  :try-prev
+  (re-search-backward "http"
+                      nil t))
+
 (objed-define-object nil page
   :atp
   (looking-at page-delimiter)
diff --git a/objed.el b/objed.el
index 0138e89..9358cd0 100644
--- a/objed.el
+++ b/objed.el
@@ -911,6 +911,7 @@ To define new operations see `objed-define-op'.")
     (define-key map "t" 'objed-tag-object)
     (define-key map "f" 'objed-file-object)
     (define-key map "m" 'objed-mail-object)
+    (define-key map "u" 'objed-url-object)
 
     (define-key map "*" 'objed-section-object)
     (define-key map "l" 'objed-page-object)