emacs-elpa-diffs
[Top][All Lists]
Advanced

[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)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]