emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/why-this f0ef9e3730 51/59: Show overlay only on selected w


From: ELPA Syncer
Subject: [nongnu] elpa/why-this f0ef9e3730 51/59: Show overlay only on selected window
Date: Sun, 27 Nov 2022 16:02:54 -0500 (EST)

branch: elpa/why-this
commit f0ef9e3730dd3ec4ca8608ad1ab997ef610d2576
Author: Akib Azmain Turja <akib@disroot.org>
Commit: Akib Azmain Turja <akib@disroot.org>

    Show overlay only on selected window
---
 why-this.el | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/why-this.el b/why-this.el
index 5b9dd48af3..f540e68678 100644
--- a/why-this.el
+++ b/why-this.el
@@ -42,8 +42,8 @@
   :link '(url-link "https://codeberg.org/akib/emacs-why-this";)
   :prefix "why-this-")
 
-(defcustom why-this-backends '(why-this-git
-                               why-this-hg)
+(defcustom why-this-backends (list #'why-this-git
+                                   #'why-this-hg)
   "List of enabled backends.
 
 Each backend is a function taking variable number of arguments, where
@@ -64,7 +64,9 @@ the first argument is the command (which is a symbol):
     `:author'   Name of the author.
     `:time'     Time of change (local).
     `:desc'     Single line description of change."
-  :type '(repeat (function :tag "Backend"))
+  :type 'hook
+  :options (list #'why-this-git
+                 #'why-this-hg)
   :package-version '(why-this "1.0"))
 
 (defcustom why-this-message-time-format #'why-this-relative-time
@@ -427,6 +429,7 @@ TIME-FORMAT is used to format data."
             (overlay-put ov 'why-this-column column)
             (overlay-put ov 'why-this-line (+ begin i))
             (overlay-put ov 'why-this-bg-type type)
+            (overlay-put ov 'window (selected-window))
             (push ov why-this--overlays)))))))
 
 (defun why-this--render-non-blocking ()



reply via email to

[Prev in Thread] Current Thread [Next in Thread]