branch: externals/objed
commit 1b5b4df73ba5911db41a43a35e8682d947da425f
Author: Clemens Radermacher <clem...@posteo.net>
Commit: Clemens Radermacher <clem...@posteo.net>
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))
