From 743d3c5143ea9e8baf67934caa7708442bfde63d Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?St=C3=A9phane=20Marks?= Date: Sat, 21 Feb 2026 13:38:00 -0500 Subject: [PATCH] ; system-sleep minor follow ups (bug#80361) * lisp/cus-edit.el (system-interface): New defgroup. * lisp/system-sleep.el (system-sleep--set-back-end): Correct dbus initialization order. --- lisp/cus-edit.el | 4 ++++ lisp/system-sleep.el | 6 +++--- 2 files changed, 7 insertions(+), 3 deletions(-) diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index 173b7e00957..52677f435ee 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -280,6 +280,10 @@ "Fitting Emacs with its environment." :group 'emacs) +(defgroup system-interface nil + "Interaction with the host system." + :group 'environment) + (defgroup hardware nil "Support for interfacing with miscellaneous hardware." :group 'environment) diff --git a/lisp/system-sleep.el b/lisp/system-sleep.el index ed61984a4e6..ec7329ad555 100644 --- a/lisp/system-sleep.el +++ b/lisp/system-sleep.el @@ -4,7 +4,7 @@ ;; Author: Stephane Marks ;; Maintainer: emacs-devel@gnu.org -;; Keywords: convenience +;; Keywords: system-interface ;; Package-Requires: ((emacs "31.1")) ;; This file is part of GNU Emacs. @@ -205,8 +205,8 @@ The block is unblocked when BODY completes." (setq system-sleep--back-end (cond ((featurep 'ns) 'ns) ((featurep 'w32) 'w32) - ((and (require 'dbus) - (featurep 'dbusbind)) + ((and (featurep 'dbusbind) + (require 'dbus)) 'dbus) (t nil))))