[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/exwm 63bde86545 1/2: Restore non-obsolete exwm-debug va
From: |
ELPA Syncer |
Subject: |
[elpa] externals/exwm 63bde86545 1/2: Restore non-obsolete exwm-debug variable |
Date: |
Thu, 6 Jun 2024 06:58:13 -0400 (EDT) |
branch: externals/exwm
commit 63bde86545a1d93b412ccf5c75316f39196718c7
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>
Restore non-obsolete exwm-debug variable
* exwm-core.el (exwm-debug): Reintroduce exwm-debug variable.
---
exwm-core.el | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/exwm-core.el b/exwm-core.el
index 8dafedfeb6..f0ed70a5d7 100644
--- a/exwm-core.el
+++ b/exwm-core.el
@@ -98,15 +98,16 @@ nil: Disable timestamp."
(declare-function exwm-workspace-switch "exwm-workspace.el"
(frame-or-index &optional force))
+(defvaralias 'exwm-debug 'exwm-debug-mode) ;; Not obsolete
(define-minor-mode exwm-debug-mode
"Debug-logging enabled if non-nil."
:global t
:group 'exwm-debug)
-(define-obsolete-function-alias 'exwm-debug 'exwm-debug-mode "0.30")
+(define-obsolete-function-alias 'exwm-debug #'exwm-debug-mode "0.30")
(defmacro exwm--debug (&rest forms)
"Evaluate FORMS if `exwm-debug-mode' is active."
- (when exwm-debug-mode `(progn ,@forms)))
+ (when exwm-debug `(progn ,@forms)))
(defmacro exwm--log (&optional format-string &rest objects)
"Emit a message prepending the name of the function being executed.
@@ -114,7 +115,7 @@ nil: Disable timestamp."
FORMAT-STRING is a string specifying the message to output, as in
`format'. The OBJECTS arguments specify the substitutions."
(unless format-string (setq format-string ""))
- `(when exwm-debug-mode
+ `(when exwm-debug
(xcb-debug:message ,(concat "%s%s:\t" format-string "\n")
(if exwm-debug-log-time-function
(funcall exwm-debug-log-time-function)