emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/objed 5fbc821 5/9: Fix name clash of mail object with m


From: Clemens Radermacher
Subject: [elpa] externals/objed 5fbc821 5/9: Fix name clash of mail object with mail command
Date: Sun, 24 Mar 2019 19:51:46 -0400 (EDT)

branch: externals/objed
commit 5fbc821f14727a8c4f82cb9864bfc1489a6935e7
Author: Clemens Radermacher <address@hidden>
Commit: Clemens Radermacher <address@hidden>

    Fix name clash of mail object with mail command
---
 objed-objects.el | 6 +++---
 objed.el         | 2 +-
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/objed-objects.el b/objed-objects.el
index 91f0037..2115acf 100644
--- a/objed-objects.el
+++ b/objed-objects.el
@@ -1646,13 +1646,13 @@ comments."
                                (and "." (* alnum))))
                        nil t))
 
-(objed-define-object nil mail
+(objed-define-object nil email
   :get-obj
   (bounds-of-thing-at-point 'email)
   :try-next
-  (re-search-forward  "@")
+  (re-search-forward "address@hidden")
   :try-prev
-  (re-search-backward  "@"))
+  (re-search-backward "address@hidden"))
 
 (objed-define-object nil url
   :get-obj
diff --git a/objed.el b/objed.el
index 19bcd66..390ff40 100644
--- a/objed.el
+++ b/objed.el
@@ -923,7 +923,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 "m" 'objed-email-object)
     (define-key map "u" 'objed-url-object)
 
     (define-key map "*" 'objed-section-object)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]