[elpa] externals/objed f0ff569 083/166: Add org field object

[Clemens Radermacher]

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

    Add org field object
---
 objed-objects.el | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

diff --git a/objed-objects.el b/objed-objects.el
index 6648e11..e875698 100644
--- a/objed-objects.el
+++ b/objed-objects.el
@@ -2528,7 +2528,21 @@ non-nil the indentation block can contain empty lines."
       (setf (cdr bounds) (point))
       (objed-make-object :obounds bounds :ibounds ibounds))))
 
-
+(declare-function org-table-beginning-of-field "ext:org")
+(declare-function org-table-end-of-field "ext:org")
+(objed-define-object org field
+  :beg (if (looking-back "| ?\\( *\\)" (line-beginning-position))
+           (match-beginning 1)
+         (org-table-beginning-of-field 1)
+         (point))
+  :end (if (looking-at "\\( *\\) |")
+           (match-end 1)
+         (org-table-end-of-field 1)
+         (point))
+  :try-next
+  (org-table-end-of-field 1)
+  :try-prev
+  (org-table-beginning-of-field 1))
 
 (defvar comint-prompt-regexp)
 (declare-function comint-next-prompt "ext:comint")