[elpa] externals/objed 1652f3b 10/16: Add two new entry commands (for object-at-point)

[Clemens Radermacher]

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

    Add two new entry commands (for object-at-point)
---
 objed.el | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/objed.el b/objed.el
index 47647d7..e7f6499 100644
--- a/objed.el
+++ b/objed.el
@@ -1732,6 +1732,19 @@ If called from code decide for activation with char 
object using
     (when (objed-init-p)
       (objed--init (or obj 'char)))))
 
+;;;###autoload
+(defun objed-beg-of-object-at-point ()
+  "Activate and move to beginning of object at point."
+  (interactive)
+  (objed--init 'char)
+  (objed-current-or-previous-context))
+
+;;;###autoload
+(defun objed-end-of-object-at-point ()
+  "Activate and move to end of object at point."
+  (interactive)
+  (objed--init 'char)
+  (objed-current-or-next-context))
 
 (defun objed-toggle-side ()
   "Move to other side of object.
@@ -3112,6 +3125,8 @@ whitespace they build a sequence."
 (defvar objed-mode-map
   (let ((map (make-sparse-keymap)))
     (define-key map (kbd "M-SPC") 'objed-activate)
+    (define-key map (kbd "M-[") 'objed-beg-of-object-at-point)
+    (define-key map (kbd "M-]") 'objed-end-of-object-at-point)
     map)
   "Keymap for /function`objed-mode'.")