; 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.
This commit is contained in:
committed by
Michael Albinus
parent
b1f24b3589
commit
743d3c5143
@@ -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)
|
||||
|
||||
@@ -4,7 +4,7 @@
|
||||
|
||||
;; Author: Stephane Marks <shipmints@gmail.com>
|
||||
;; 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))))
|
||||
|
||||
|
||||
Reference in New Issue
Block a user