[elpa] externals/objed 47891ba 17/34: Remove objed-extend face

[Stefan Monnier]

branch: externals/objed
commit 47891baf8dcee9dcac79b250aa6df021c72c7294
Author: Clemens Radermacher <clemera@posteo.net>
Commit: Clemens Radermacher <clemera@posteo.net>

    Remove objed-extend face
---
 objed.el | 20 --------------------
 1 file changed, 20 deletions(-)

diff --git a/objed.el b/objed.el
index 0b1a630..50a2250 100644
--- a/objed.el
+++ b/objed.el
@@ -153,11 +153,6 @@
   "Face used for marked objects."
   :group 'objed-faces)
 
-(defface objed-extend
-  '((t (:inherit objed-mark)))
-  "Face used for extending objects."
-  :group 'objed-faces)
-
 (defface objed-mode-line
   '((t (:inherit mode-line-inactive)))
   "Face used for the mode line hint."
@@ -2378,8 +2373,6 @@ Update to object at current side."
     (objed--update-current-object)))
 
 
-(defvar objed--extend-cookie nil)
-
 (defun objed-extend ()
   "Extend current object.
 
@@ -2397,11 +2390,6 @@ objed operation is used."
         (setq mark-active nil)
         (objed--init objed--object)
         (message "Install expand-region to expand on repeat."))
-    ;; when moving forward current obj shoul look like included in selection
-    (unless objed--extend-cookie
-      (setq objed--extend-cookie
-            (face-remap-add-relative 'objed-hl
-                                     'objed-extend)))
     (when (< (objed--beg) (point) (objed--end))
       (goto-char (objed--beg)))
     (push-mark (if (or (>= (point) (objed--end))
@@ -3862,10 +3850,6 @@ and RANGE hold the object position data."
                (if (and text (objed--line-p text))
                    (objed--switch-to 'line)
                  (objed--switch-to 'char))))))
-    ;; cleanup
-    (when objed--extend-cookie
-      (face-remap-remove-relative objed--extend-cookie)
-      (setq objed--extend-cookie nil))
     (when (and range
                (not (eq exitf 'current))
                (not (eq exit 'current))
@@ -3947,10 +3931,6 @@ Reset and reinitilize objed if appropriate."
           (delete-overlay ov))
         (setq objed--marked-ovs nil))
 
-      (when objed--extend-cookie
-        (face-remap-remove-relative objed--extend-cookie)
-        (setq objed--extend-cookie nil))
-
       (when objed--hl-cookie
         (face-remap-remove-relative objed--hl-cookie)
         (setq objed--hl-cookie nil))