diff options
| -rw-r--r-- | exwm-core.el | 3 | ||||
| -rw-r--r-- | exwm-input.el | 2 | ||||
| -rw-r--r-- | exwm-workspace.el | 5 |
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) |