branch: externals/exwm
commit 65fdda8b85a16cb8fe4a98324539ee1e4ab40a82
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
Move exwm--find-x-frame to exwm-core
* exwm.el (exwm--find-x-frame): Moved...
* exwm-core.el (exwm--find-x-frame): ...here!
---
exwm-core.el | 7 +++++++
exwm.el | 7 -------
2 files changed, 7 insertions(+), 7 deletions(-)
diff --git a/exwm-core.el b/exwm-core.el
index 14b8bfa822..726715c6d2 100644
--- a/exwm-core.el
+++ b/exwm-core.el
@@ -452,5 +452,12 @@ immediately enabled or disabled."
(remove-hook 'exwm-exit-hook #',exit)
(when exwm--connection (,exit)))))))
+(defun exwm--find-x-frame ()
+ "Find a frame whose terminal is an X display.
+Selected frame is checked first."
+ (cl-loop for term in (cons (frame-terminal (selected-frame)) (terminal-list))
+ if (eq 'x (terminal-live-p term))
+ return (car (frames-on-display-list term))))
+
(provide 'exwm-core)
;;; exwm-core.el ends here
diff --git a/exwm.el b/exwm.el
index 225d92bce2..1277b45796 100644
--- a/exwm.el
+++ b/exwm.el
@@ -1143,13 +1143,6 @@ FRAME, if given, indicates the X display EXWM should
manage."
(exwm--exit))
(exwm--disable)))
-(defun exwm--find-x-frame ()
- "Find a frame whose terminal is an X display.
-Selected frame is checked first."
- (cl-loop for term in (cons (frame-terminal (selected-frame)) (terminal-list))
- if (eq 'x (terminal-live-p term))
- return (car (frames-on-display-list term))))
-
(defun exwm--disable ()
"Unregister functions for EXWM to be initialized."
(exwm--log)
