all messages for Emacs-related lists mirrored at yhetil.org
 help / color / mirror / code / Atom feed
* Where is sr-speedbar.el upstream repo?
@ 2022-07-04 23:21 chen.mingzheng
  2022-07-05  0:38 ` Stefan Kangas
  0 siblings, 1 reply; 13+ messages in thread
From: chen.mingzheng @ 2022-07-04 23:21 UTC (permalink / raw)
  To: emacs-devel

Hello hackers,

I'm add a new feature to sr-speedbar, but I can't find its upstream 
repo, Does anyone know where it is? Or should I just send the patch to 
this maillist?

Btw, the content of patch is:

diff --git a/sr-speedbar.el b/sr-speedbar.el
index a4ee4bed0..cf86914bf 100644
--- a/sr-speedbar.el
+++ b/sr-speedbar.el
@@ -78,6 +78,12 @@
  ;;      M-x customize-group RET sr-speedbar RET

  ;;; Change log:
+;; * 04 July 2022:
+;;   * Doerthous <doerthous@gmail.com>
+;;     * Add support that allows speedbar window split from 
`selected-window'
+;;       or `frame-root-window'.
+;;     * define `sr-speedbar-use-frame-root-window'.
+;;
  ;; * 22 Sep 2021:
  ;;   * Vasilij Schneidermann <mail@vasilij.de>
  ;;     * Fix cl deprecation warning
@@ -325,6 +331,16 @@ Default is nil."
    :type 'boolean
    :group 'sr-speedbar)

+(defcustom sr-speedbar-use-frame-root-window nil
+  "Open speedbar based on selected window or frame root window.
+If nil, the speedbar window will split from `selected-window'.
+Otherwise `frame-root-window'.
+Default is nil."
+  :type 'boolean
+  :set (lambda (symbol value)
+         (set symbol value))
+  :group 'sr-speedbar)
+
  (if (not (fboundp 'ad-advised-definition-p))
      (defun ad-advised-definition-p (definition)
        "Return non-nil if DEFINITION was generated from advice 
information."
@@ -514,7 +530,9 @@ Otherwise return nil."
  (defun sr-speedbar-get-window ()
    "Get `sr-speedbar' window."
    (setq sr-speedbar-window
-        (split-window (selected-window)
+        (split-window (if sr-speedbar-use-frame-root-window
+                          (frame-root-window)
+                        (selected-window))
                        (- sr-speedbar-width)
                        (if sr-speedbar-right-side 'right 'left))))

Thanks in advance, and apologies if this is not the right place to ask.

Doerthous.



^ permalink raw reply related	[flat|nested] 13+ messages in thread

end of thread, other threads:[~2022-07-05 18:40 UTC | newest]

Thread overview: 13+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2022-07-04 23:21 Where is sr-speedbar.el upstream repo? chen.mingzheng
2022-07-05  0:38 ` Stefan Kangas
2022-07-05  0:51   ` chen.mingzheng
2022-07-05  1:26     ` Stefan Kangas
2022-07-05  1:59       ` chen.mingzheng
2022-07-05  6:56       ` Sebastian Rose
2022-07-05  9:34         ` chen.mingzheng
2022-07-05 12:03           ` Stefan Monnier
     [not found]             ` <TYCPR01MB5743F6F10A0573375954655681819@TYCPR01MB5743.jpnprd01.prod.outlook.com>
     [not found]               ` <jwv7d4rk5by.fsf-monnier+emacs@gnu.org>
2022-07-05 15:49                 ` chen.mingzheng
2022-07-05 15:55                   ` Stefan Monnier
2022-07-05 16:56                     ` Lynn Winebarger
2022-07-05 18:39                       ` Akib Azmain Turja
2022-07-05 18:40                       ` Stefan Monnier

Code repositories for project(s) associated with this external index

	https://git.savannah.gnu.org/cgit/emacs.git
	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.