From ea7f7f15d29f42263822db68fe8a8752749a7b35 Mon Sep 17 00:00:00 2001
From: Thomas Voss <mail@thomasvoss.com>
Date: Fri, 1 Nov 2024 16:49:15 +0100
Subject: emacs: Remove some commands

---
 .config/emacs/editing.el                | 23 -----------------------
 .config/emacs/modules/mm-keybindings.el |  2 --
 2 files changed, 25 deletions(-)

(limited to '.config')

diff --git a/.config/emacs/editing.el b/.config/emacs/editing.el
index 66a5953..e400588 100644
--- a/.config/emacs/editing.el
+++ b/.config/emacs/editing.el
@@ -30,29 +30,6 @@ with the next one instead of the previous one."
    (unless (or beg end) (not arg))
    beg end))
 
-(defun e/transpose-previous-chars ()
-  "Transpose the two characters preceeding point.
-This command is similar to `transpose-chars' except it transposes the
-two characters that preceed the point instead of the characters that
-surround it."
-  (interactive "*")
-  (save-excursion
-    (backward-char)
-    (transpose-chars 1)))
-
-(defun e/transpose-current-and-next-lines ()
-  "Transpose the current and next lines.
-This command is similar to `transpose-lines' except it transposes the
-current and next lines instead of the current and previous lines.  This
-maintains symmetry with `transpose-words'."
-  (interactive "*")
-  (let ((column (current-column)))
-    (forward-line)
-    (transpose-lines 1)
-    (forward-line -1)
-    (indent-region (pos-bol) (pos-eol))
-    (move-to-column column)))
-
 (defun e/mark-entire-word (&optional arg allow-extend)
   "Mark ARG words beginning at point.
 This command is a wrapper around `mark-word' that moves the point such
diff --git a/.config/emacs/modules/mm-keybindings.el b/.config/emacs/modules/mm-keybindings.el
index 746d95c..915d845 100644
--- a/.config/emacs/modules/mm-keybindings.el
+++ b/.config/emacs/modules/mm-keybindings.el
@@ -88,8 +88,6 @@ the first command is remapped to the second command."
   mark-sexp          e/mark-entire-sexp
   mark-word          e/mark-entire-word
   open-line          e/open-line
-  transpose-chars    e/transpose-previous-chars
-  transpose-lines    e/transpose-current-and-next-lines
   yank               e/yank)
 
 (with-eval-after-load 'cc-vars
-- 
cgit v1.2.3