branch: externals/objed
commit 47891baf8dcee9dcac79b250aa6df021c72c7294
Author: Clemens Radermacher <[email protected]>
Commit: Clemens Radermacher <[email protected]>
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))
