From d8fcf18db77b845e1d787558f00aa21dc93310f3 Mon Sep 17 00:00:00 2001 From: Adrián Medraño Calvo Date: Fri, 18 Aug 2023 00:00:00 +0000 Subject: 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) -- cgit 1.4.1