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

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

[nongnu] elpa/swsw 92abfc5de4 119/146: ; Make some long lines short


From: ELPA Syncer
Subject: [nongnu] elpa/swsw 92abfc5de4 119/146: ; Make some long lines short
Date: Wed, 25 May 2022 02:59:53 -0400 (EDT)

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

    ; Make some long lines short
---
 swsw.el | 17 +++++++++--------
 1 file changed, 9 insertions(+), 8 deletions(-)

diff --git a/swsw.el b/swsw.el
index 3a006e13ab..351fc1effb 100644
--- a/swsw.el
+++ b/swsw.el
@@ -217,9 +217,9 @@ If set to `lighter', use a mode line lighter."
 
 (defun swsw-format-id (window)
   "Format an ID string for WINDOW."
-  (format-spec swsw-id-format
-               `((?s .
-                  ,(apply #'string (window-parameter window 'swsw-id))))))
+  (format-spec
+   swsw-id-format
+   `((?s . ,(apply #'string (window-parameter window 'swsw-id))))))
 
 (defun swsw--mode-line-display ()
   "Display window IDs at the beginning of the mode line."
@@ -316,11 +316,12 @@ is enabled."
           (delete-window window)))
     (swsw-run-window-command #'delete-window)))
 
-(defvar swsw-command-map (let ((map (make-sparse-keymap)))
-                           (define-key map [?o] #'swsw-select)
-                           (define-key map [?m] #'swsw-select-minibuffer)
-                           (define-key map [?0] #'swsw-delete)
-                           map)
+(defvar swsw-command-map
+  (let ((map (make-sparse-keymap)))
+    (define-key map [?o] #'swsw-select)
+    (define-key map [?m] #'swsw-select-minibuffer)
+    (define-key map [?0] #'swsw-delete)
+    map)
   "Key map for window commands.
 This key map is set as the parent of `swsw--id-map' during ID
 selection.")



reply via email to

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