[elpa] externals/objed f605604 057/216: Rename syntax object to face object

[Stefan Monnier]

branch: externals/objed
commit f605604a6f48a9e02150d5f3a6d63d3e7e456c03
Author: Clemera <address@hidden>
Commit: Clemera <address@hidden>

    Rename syntax object to face object
---
 objed-objects.el | 10 +++++++---
 objed.el         |  2 +-
 2 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/objed-objects.el b/objed-objects.el
index b26e311..f57218c 100644
--- a/objed-objects.el
+++ b/objed-objects.el
@@ -1897,9 +1897,10 @@ non-nil the indentation block can contain empty lines."
          (face (or (get-text-property pos 'face))))
      (unless (keywordp (car-safe face)) (list face))))
 
-
+(defvar objed--last-face nil)
 ;; from `evil-textobj-syntax'
-(defun objed--get-syntax-range ()
+
+(defun objed--get-face-range ()
   "Return range of equal face before/after point."
   (let ((point-face (objed--what-face))
         (backward-point (point)) ; last char when stop, including white space
@@ -1942,8 +1943,11 @@ non-nil the indentation block can contain empty lines."
 
 
 (objed-define-object nil syntax
+    (when (eq real-this-command #'objed-face-object)
+      (setq objed--last-face point-face))
+(objed-define-object nil face
   :get-obj
-  (objed--get-syntax-range)
+  (objed--get-face-range)
   ;; TODO: search for next same face as current...
   :try-next
   (re-search-forward "\\<" nil t)
diff --git a/objed.el b/objed.el
index bd6608c..d0db15b 100644
--- a/objed.el
+++ b/objed.el
@@ -845,7 +845,7 @@ To define new operations see `objed-define-op'.")
     (define-key map "d" 'objed-defun-object)
     (define-key map "s" 'objed-string-object)
     (define-key map ";" 'objed-comment-object)
-    (define-key map "y" 'objed-syntax-object)
+    (define-key map "y" 'objed-face-object)
 
     (define-key map "t" 'objed-tag-object)
     (define-key map "f" 'objed-file-object)