martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

; system-taskbar tweaks to dbus loading and group keyword (bug#80361)

Browse Source 
* lisp/system-taskbar.el (system-taskbar): Defgroup keyword now
system-interface in sympathy with system-sleep.
(dbus-list-activatable-names, dbus-send-signal, dbus-ping):
Pacify byte compiler.
(system-taskbar--set-back-end): Load dbus only when needed.
This commit is contained in:
Stéphane Marks
2026-02-21 13:44:53 -05:00
committed by Michael Albinus
parent 743d3c5143
commit 1d93015db4
1 changed files with 7 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/system-taskbar.el
View File

@@ -4,7 +4,7 @@
;; Author: Stephane Marks ;; Author: Stephane Marks
;; Maintainer: emacs-devel@gnu.org ;; Maintainer: emacs-devel@gnu.org
;; Keywords: convenience ;; Keywords: system-interface
;; Package-Requires: ((emacs "31.1")) ;; Package-Requires: ((emacs "31.1"))
;; This file is part of GNU Emacs. ;; This file is part of GNU Emacs.
@@ -103,11 +103,14 @@
;;; Code: ;;; Code:
(require 'dbus) ;; Pacify the byte compiler.
(declare-function dbus-list-activatable-names "dbus.el")
(declare-function dbus-send-signal "dbus.el")
(declare-function dbus-ping "dbus.el")
(defgroup system-taskbar nil (defgroup system-taskbar nil
"System GUI taskbar icon badge, progress report, alerting." "System GUI taskbar icon badge, progress report, alerting."
:group 'convenience :group 'system-interface
:version "31.1") :version "31.1")
(defcustom system-taskbar-use-progress-reporter t (defcustom system-taskbar-use-progress-reporter t
@@ -219,6 +222,7 @@ If PROGRESS is nil, remove the progress indicator."
(cond ((boundp 'ns-version-string) 'ns) (cond ((boundp 'ns-version-string) 'ns)
((bound-and-true-p w32-initialized) 'w32) ((bound-and-true-p w32-initialized) 'w32)
((and (featurep 'dbusbind) ((and (featurep 'dbusbind)
(require 'dbus)
(member "org.freedesktop.login1" (member "org.freedesktop.login1"
(dbus-list-activatable-names :system))) (dbus-list-activatable-names :system)))
'dbus) 'dbus)