compat: adjust patches of modified functions

This commit is contained in:
Kiana Sheibani 2025-04-03 06:36:29 -04:00
parent 5f114503fc
commit cdf9ae55fb
Signed by: toki
GPG key ID: 6CB106C25E86A9F7

View file

@ -2641,6 +2641,7 @@ Emacs Everywhere is a great idea. Unfortunately, the default package on MELPA us
(pcase emacs-everywhere--display-server
(`(x11 . ,_) (emacs-everywhere--app-info-linux-x11))
(`(wayland . KDE) (emacs-everywhere--app-info-linux-kde))
(`(wayland . sway) (emacs-everywhere--app-info-linux-sway))
(el-patch-add
(`(wayland . Hyprland) (emacs-everywhere--app-info-linux-hyprland)))
(_ (user-error "Unable to fetch app info with display server %S"
@ -4071,7 +4072,7 @@ it defaults to `project-current'."
(require 'dirvish-side)
(let ((fullframep (when-let ((dv (dirvish-curr))) (car (dv-layout dv))))
(visible (dirvish-side--session-visible-p))
(path (or path (dirvish--get-project-root) default-directory)))
(path (or path (dirvish--vc-root-dir) default-directory)))
(cond (fullframep (user-error "Can not create side session here"))
(visible (select-window visible))
(t (dirvish-side--new path)))))