[nongnu] elpa/crux e6c7421 035/112: Remove crux-swap-windows and alias it to crux-transpose-windows

[ELPA Syncer]

branch: elpa/crux
commit e6c742122606a748690093a0c29b257c17890d4c
Author: Charles Comstock <dgtized@gmail.com>
Commit: Charles Comstock <dgtized@gmail.com>

    Remove crux-swap-windows and alias it to crux-transpose-windows
---
 README.md |  1 -
 crux.el   | 19 ++-----------------
 2 files changed, 2 insertions(+), 18 deletions(-)

diff --git a/README.md b/README.md
index ced8cfa..f36dd87 100644
--- a/README.md
+++ b/README.md
@@ -49,7 +49,6 @@ Command                                     | Suggested 
Keybinding(s)         |
 `crux-recentf-ido-find-file`                | <kbd>C-c f</kbd> or 
<kbd>Super-r</kbd> | Open recently visited file.
 `crux-view-url`                             | <kbd>C-c u</kbd> | Open a new 
buffer containing the contents of URL.
 `crux-eval-and-replace`                     | <kbd>C-c e</kbd> | Eval a bit of 
Emacs Lisp code and replace it with its result.
-`crux-swap-windows`                         | <kbd>C-c s</kbd> | Swap two 
active windows.
 `crux-tranpose-windows`                     | <kbd>C-x 4 t</kbd> | Transpose 
the buffers between two windows.
 `crux-delete-file-and-buffer`               | <kbd>C-c D</kbd> | Delete 
current file and buffer.
 `crux-rename-file-and-buffer`               | <kbd>C-c r</kbd> | Rename the 
current buffer and its visiting file if any.
diff --git a/crux.el b/crux.el
index b81d664..a0a9cb8 100644
--- a/crux.el
+++ b/crux.el
@@ -329,23 +329,6 @@ buffer is not visiting a file."
     (when file
       (find-file file))))
 
-(defun crux-swap-windows ()
-  "If you have 2 windows, it swaps them."
-  (interactive)
-  (if (/= (count-windows) 2)
-      (message "You need exactly 2 windows to do this.")
-    (let* ((w1 (car (window-list)))
-           (w2 (cadr (window-list)))
-           (b1 (window-buffer w1))
-           (b2 (window-buffer w2))
-           (s1 (window-start w1))
-           (s2 (window-start w2)))
-      (set-window-buffer w1 b2)
-      (set-window-buffer w2 b1)
-      (set-window-start w1 s2)
-      (set-window-start w2 s1)))
-  (other-window 1))
-
 ;; modified from https://www.emacswiki.org/emacs/TransposeWindows
 (defun crux-transpose-windows (arg)
   "Transpose the buffers shown in two windows.
@@ -362,6 +345,8 @@ transpositions to execute in sequence."
         (select-window (funcall selector)))
       (setq arg (if (cl-plusp arg) (1- arg) (1+ arg))))))
 
+(defalias 'crux-swap-windows 'crux-transpose-windows)
+
 (defun crux-switch-to-previous-buffer ()
   "Switch to previously open buffer.
 Repeated invocations toggle between the two most recently open buffers."