[elpa] externals/objed 1b5b4df 096/166: Add optional subword object

[Clemens Radermacher]

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

    Add optional subword object
---
 objed-objects.el | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

diff --git a/objed-objects.el b/objed-objects.el
index b617203..c53341d 100644
--- a/objed-objects.el
+++ b/objed-objects.el
@@ -1747,6 +1747,25 @@ comments."
   (objed--prev-symbol))
 
 
+(objed-define-object nil subword
+  :get-obj
+  (objed--inner-word-bounds)
+  :try-next
+  (let* ((subword-mode t)
+         (superword-mode nil)
+         (find-word-boundary-function-table
+          subword-find-word-boundary-function-table))
+    (forward-word 1)
+    (forward-word -1))
+  :try-prev
+  (let* ((subword-mode t)
+         (superword-mode nil)
+         (find-word-boundary-function-table
+          subword-find-word-boundary-function-table))
+    (forward-word -1)))
+
+
+
 (defun objed--at-sexp-p ()
   "Return sexp object if point at strutured expression."
   (let* ((opos (point))