branch: externals/objed
commit 96d5bc915dc5c40aff755a71c7c64e8e924f86d9
Author: Clemens Radermacher <[email protected]>
Commit: Clemens Radermacher <[email protected]>
Add mail object
---
objed-objects.el | 8 ++++++++
objed.el | 1 +
2 files changed, 9 insertions(+)
diff --git a/objed-objects.el b/objed-objects.el
index 8917bae..66ee922 100644
--- a/objed-objects.el
+++ b/objed-objects.el
@@ -1615,6 +1615,14 @@ comments."
:try-prev
(re-search-backward "/\\|\\\\" nil t))
+(objed-define-object nil mail
+ :get-obj
+ (bounds-of-thing-at-point 'email)
+ :try-next
+ (re-search-forward "@" nil t)
+ :try-prev
+ (re-search-backward "@" nil t))
+
(objed-define-object nil page
:atp
(looking-at page-delimiter)
diff --git a/objed.el b/objed.el
index ba3de8c..0138e89 100644
--- a/objed.el
+++ b/objed.el
@@ -910,6 +910,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 "*" 'objed-section-object)
(define-key map "l" 'objed-page-object)
