[elpa] externals/objed f14c906 03/16: Add page object

[Clemens Radermacher]

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

    Add page object
---
 objed-objects.el | 10 ++++++++++
 objed.el         |  4 ++--
 2 files changed, 12 insertions(+), 2 deletions(-)

diff --git a/objed-objects.el b/objed-objects.el
index dd68155..4ed7697 100644
--- a/objed-objects.el
+++ b/objed-objects.el
@@ -1606,6 +1606,16 @@ comments."
   :try-prev
   (re-search-backward  "/\\|\\\\" nil t))
 
+(objed-define-object nil page
+  :atp
+  (looking-at page-delimiter)
+  :get-obj
+  (bounds-of-thing-at-point 'page)
+  :try-next
+  (forward-line 1)
+  :try-prev
+  (forward-line -1))
+
 (objed-define-object nil defun
   :get-obj
   (objed-bounds-from-region-cmd #'mark-defun)
diff --git a/objed.el b/objed.el
index 1ab13bd..1d39856 100644
--- a/objed.el
+++ b/objed.el
@@ -848,8 +848,7 @@ To define new operations see `objed-define-op'.")
     ;; default objects
     (define-key map "c" 'objed-char-object)
     (define-key map "r" 'objed-word-object)
-    (define-key map "l" 'objed-line-object)
-
+    ;; line object is direct accesible via l
     ;; sexp at point
     (define-key map "." 'objed-sentence-object)
     (define-key map "p" 'objed-paragraph-object)
@@ -870,6 +869,7 @@ To define new operations see `objed-define-op'.")
     (define-key map "f" 'objed-file-object)
 
     (define-key map "*" 'objed-section-object)
+    (define-key map "l" 'objed-page-object)
     (define-key map "j" 'objed-output-object)
     (define-key map "h" 'objed-buffer-object)