about summary refs log tree commit diff
diff options
context:
space:
mode:
authorAdrián Medraño Calvo <adrian@medranocalvo.com>2023-08-18T00·00+0000
committerAdrián Medraño Calvo <adrian@medranocalvo.com>2023-08-18T00·00+0000
commitd8fcf18db77b845e1d787558f00aa21dc93310f3 (patch)
tree7835d687368f38362b5d575a7953b5dba1b0a9f8
parentd340a6a563ed3e3358c938c8e9a8cab41e8747f3 (diff)
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.
-rw-r--r--exwm-core.el3
-rw-r--r--exwm-input.el2
-rw-r--r--exwm-workspace.el5
3 files changed, 8 insertions, 2 deletions
diff --git a/exwm-core.el b/exwm-core.el
index 75c7c1b17b77..bd6fcf822cbd 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 30ae89353e98..7ec9a29128a6 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 dd1f22a9a2ac..1db91275fa3c 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)