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

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

[nongnu] elpa/swsw 4ceacd0330 132/146: Indicate that some functions are


From: ELPA Syncer
Subject: [nongnu] elpa/swsw 4ceacd0330 132/146: Indicate that some functions are for interactive use only
Date: Wed, 25 May 2022 02:59:55 -0400 (EDT)

branch: elpa/swsw
commit 4ceacd033083f511d2795906042b63c8ff6b2f5a
Author: Daniel Semyonov <daniel@dsemy.com>
Commit: Daniel Semyonov <daniel@dsemy.com>

    Indicate that some functions are for interactive use only
    
    * swsw.el (swsw-select, swsw-select-minibuffer, swsw-delete): Declare
    as interactive only.
---
 swsw.el | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/swsw.el b/swsw.el
index af4e2afcc8..1be2f7e586 100644
--- a/swsw.el
+++ b/swsw.el
@@ -299,7 +299,8 @@ window returned by `next-window'.
 Otherwise, window selection allows either choosing a window by its ID
 \(switching to it), or using a window manipulation command.
 This command is intended to be used only when swsw mode is enabled."
-  (declare (modes swsw-mode))
+  (declare (modes swsw-mode)
+           (interactive-only t))
   (interactive)
   (if (< swsw-window-count 3)
       (select-window (next-window nil nil (swsw--get-scope)))
@@ -308,7 +309,8 @@ This command is intended to be used only when swsw mode is 
enabled."
 (defun swsw-select-minibuffer ()
   "Select the active minibuffer window (if it exists).
 This command is intended to be used only when swsw mode is enabled."
-  (declare (modes swsw-mode))
+  (declare (modes swsw-mode)
+           (interactive-only t))
   (interactive)
   (let ((window (active-minibuffer-window)))
     (if window (select-window window)
@@ -321,7 +323,8 @@ returned by `next-window'.
 Otherwise, window deletion allows either choosing a window by its ID
 \(deleting it), or using a window manipulation command.
 This command is intended to be used only when swsw mode is enabled."
-  (declare (modes swsw-mode))
+  (declare (modes swsw-mode)
+           (interactive-only t))
   (interactive)
   (if (< swsw-window-count 3)
       (let ((window (next-window nil nil (swsw--get-scope))))



reply via email to

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