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

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

[elpa] externals/vundo a3e27e84f1 05/58: Add an option that controls the


From: ELPA Syncer
Subject: [elpa] externals/vundo a3e27e84f1 05/58: Add an option that controls the side on which we display vundo window
Date: Fri, 15 Apr 2022 12:58:10 -0400 (EDT)

branch: externals/vundo
commit a3e27e84f1e4c6859157cb926b49fe4a53563c3e
Author: Nasy <nasyxx+git@gmail.com>
Commit: Yuan Fu <casouri@gmail.com>

    Add an option that controls the side on which we display vundo window
    
    * vundo.el (vundo-window-side): New custom option.
    (vundo): Use 'vundo-window-side'.
---
 vundo.el | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/vundo.el b/vundo.el
index da2def666e..99685bf9eb 100644
--- a/vundo.el
+++ b/vundo.el
@@ -98,6 +98,11 @@
   "The maximum height of the vundo window."
   :type 'integer)
 
+(defcustom vundo-window-side 'bottom
+  "The vundo window pops up on this side."
+  :type '(choice (const :tag "Bottom" bottom)
+                 (const :tag "Top"    top)))
+
 (defvar vundo-translation-alist nil
   "An alist mapping text to their translations.
 E.g., mapping ○ to o, ● to *. Keys and values must be characters,
@@ -563,7 +568,7 @@ Highlight if ARG >= 0, de-highlight if ARG < 0."
     (select-window
      (display-buffer-in-side-window
       vundo-buf
-      '((side . bottom)
+      `((side . ,vundo-window-side)
         (window-height . 3))))
     (set-window-dedicated-p nil t)
     (let ((window-min-height 3))



reply via email to

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