[elpa] externals/objed 7713827 57/59: Use stripe buffer mode for ace object if available

[Clemens Radermacher]

branch: externals/objed
commit 771382755521279313a23eb9e0fdd5c8d9fa96f5
Author: Clemens Radermacher <address@hidden>
Commit: Clemens Radermacher <address@hidden>

    Use stripe buffer mode for ace object if available
---
 objed-objects.el | 19 ++++++++++++++-----
 1 file changed, 14 insertions(+), 5 deletions(-)

diff --git a/objed-objects.el b/objed-objects.el
index 1e27ca6..5b4dc08 100644
--- a/objed-objects.el
+++ b/objed-objects.el
@@ -31,6 +31,7 @@
 (declare-function avy--process "ext:avy")
 (declare-function avy--style-fn "ext:avy")
 (declare-function avy-goto-char "ext:avy")
+(declare-function stripe-buffer-mode "ext:stripe-buffer")
 
 (declare-function sgml-skip-tag-backward "ext:sgml-mode")
 (declare-function sgml-skip-tag-forward "ext:sgml-mode")
@@ -1436,12 +1437,20 @@ comments."
 
 (objed-define-object nil ace
   :get-obj
+  (let ((stripe (and (bound-and-true-p stripe-buffer-mode)
+                     stripe-buffer-mode)))
+    (when (fboundp 'stripe-buffer-mode)
+      (stripe-buffer-mode 1))
   ;; TODO: buffer stripes
-  (objed-make-object
-   :beg (save-excursion (call-interactively 'avy-goto-line)
-                        (line-beginning-position))
-   :end (save-excursion (call-interactively 'avy-goto-line)
-                        (1+ (line-end-position)))))
+    (unwind-protect
+        (objed-make-object
+         :beg (save-excursion (call-interactively 'avy-goto-line)
+                              (line-beginning-position))
+         :end (save-excursion (call-interactively 'avy-goto-line)
+                              (1+ (line-end-position))))
+      (unless (or stripe
+                  (not (fboundp 'stripe-buffer-mode)))
+        (stripe-buffer-mode -1)))))
 
 (objed-define-object nil trailing
   :atp