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

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/exwm d8fcf18db7 09/14: Declare defsubst indentation


From: ELPA Syncer
Subject: [elpa] externals/exwm d8fcf18db7 09/14: Declare defsubst indentation
Date: Wed, 6 Sep 2023 15:57:52 -0400 (EDT)

branch: externals/exwm
commit d8fcf18db77b845e1d787558f00aa21dc93310f3
Author: Adrián Medraño Calvo <adrian@medranocalvo.com>
Commit: Adrián Medraño Calvo <adrian@medranocalvo.com>

    Declare defsubst indentation
    
    * exwm-core.el (exwm--id->buffer, exwm--buffer->id, exwm--terminal-p):
    * exwm-input.el (exwm-input--unread-event):
    * exwm-workspace.el (exwm-workspace--position)
    (exwm-workspace--workspace-p): Declare indentation.
---
 exwm-core.el      | 3 +++
 exwm-input.el     | 2 ++
 exwm-workspace.el | 5 +++--
 3 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/exwm-core.el b/exwm-core.el
index 75c7c1b17b..bd6fcf822c 100644
--- a/exwm-core.el
+++ b/exwm-core.el
@@ -116,10 +116,12 @@ FORMAT-STRING is a string specifying the message to 
output, as in
 
 (defsubst exwm--id->buffer (id)
   "X window ID => Emacs buffer."
+  (declare (indent defun))
   (cdr (assoc id exwm--id-buffer-alist)))
 
 (defsubst exwm--buffer->id (buffer)
   "Emacs buffer BUFFER => X window ID."
+  (declare (indent defun))
   (car (rassoc buffer exwm--id-buffer-alist)))
 
 (defun exwm--lock (&rest _args)
@@ -183,6 +185,7 @@ least SECS seconds later."
 (defsubst exwm--terminal-p (&optional frame)
   "Return t when FRAME's terminal is EXWM's terminal.
 If FRAME is null, use selected frame."
+  (declare (indent defun))
   (eq exwm--terminal (frame-terminal frame)))
 
 (defun exwm--get-client-event-mask ()
diff --git a/exwm-input.el b/exwm-input.el
index 30ae89353e..7ec9a29128 100644
--- a/exwm-input.el
+++ b/exwm-input.el
@@ -587,9 +587,11 @@ instead."
           (and (= emacs-major-version 26)
                (< emacs-minor-version 2)))
       (defsubst exwm-input--unread-event (event)
+        (declare (indent defun))
         (setq unread-command-events
               (append unread-command-events (list event))))
     (defsubst exwm-input--unread-event (event)
+      (declare (indent defun))
       (setq unread-command-events
             (append unread-command-events `((t . ,event)))))))
 
diff --git a/exwm-workspace.el b/exwm-workspace.el
index dd1f22a9a2..1db91275fa 100644
--- a/exwm-workspace.el
+++ b/exwm-workspace.el
@@ -150,8 +150,8 @@ Please manually run the hook 
`exwm-workspace-list-change-hook' afterwards.")
 
 (defsubst exwm-workspace--position (frame)
   "Retrieve index of given FRAME in workspace list.
-
-NIL if FRAME is not a workspace"
+NIL if FRAME is not a workspace."
+  (declare (indent defun))
   (cl-position frame exwm-workspace--list))
 
 (defsubst exwm-workspace--count ()
@@ -160,6 +160,7 @@ NIL if FRAME is not a workspace"
 
 (defsubst exwm-workspace--workspace-p (frame)
   "Return t if FRAME is a workspace."
+  (declare (indent defun))
   (memq frame exwm-workspace--list))
 
 (defsubst exwm-workspace--workarea (frame)



reply via email to

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