From 606e580bd79c41e73b75048f8dd98320a39a13cf Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Wed, 18 Aug 2021 18:21:22 -0500
Subject: Make erc-timestamp intangible

---
 init.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/init.el b/init.el
index 1224930..b5c35de 100644
--- a/init.el
+++ b/init.el
@@ -301,6 +301,7 @@
    (when (boundp 'erc-autojoin-channels-alist)
      (mapcar #'car erc-autojoin-channels-alist))
    erc-server-coding-system '(utf-8 . utf-8)
+   erc-timestamp-intangible t
    erc-track-exclude-types (append erc-hide-list
                                    '("AWAY"
                                      "353" "324" "329" "332" "333" "477"))
-- 
cgit 1.4.1-21-gabe81


From db17cf4d914ba4d40799cbc3bea760a76f2ec4f7 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Wed, 18 Aug 2021 18:21:31 -0500
Subject: Make M-x act like M-X on Emacs 28

---
 init.el | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/init.el b/init.el
index b5c35de..0cd9c59 100644
--- a/init.el
+++ b/init.el
@@ -801,6 +801,10 @@ like a dumbass."
    set-mark-command-repeat-pop t
    )
 
+  (when (fboundp 'command-completion-default-include-p)
+    (setq read-extended-command-predicate
+          #'command-completion-default-include-p))
+
   (:global "M-=" count-words
            "C-w" kill-region-or-backward-word
            "<help> h" nil ; HELLO takes a long time to load on Windows
-- 
cgit 1.4.1-21-gabe81


From ebf0144bfd93c9b489e9770ef4a8533cec94425f Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Wed, 18 Aug 2021 18:22:23 -0500
Subject: Add `sort-setq'

---
 lisp/acdw.el | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)

diff --git a/lisp/acdw.el b/lisp/acdw.el
index 2be0c4e..27f5eff 100644
--- a/lisp/acdw.el
+++ b/lisp/acdw.el
@@ -513,5 +513,36 @@ It's called 'require-private' for historical reasons."
       (when (fboundp mode)
         (funcall mode -1)))))
 
+
+;;; Sort setq...
+;; https://emacs.stackexchange.com/questions/33039/
+
+(defun sort-setq ()
+  (interactive)
+  (save-excursion
+    (save-restriction
+      (let ((sort-end (progn (end-of-defun)
+                             (backward-char)
+                             (point-marker)))
+            (sort-beg (progn (beginning-of-defun)
+                             (re-search-forward "[ \\t]*(" (point-at-eol))
+                             (forward-sexp)
+                             (re-search-forward "\\<" (point-at-eol))
+                             (point-marker))))
+        (narrow-to-region (1- sort-beg) (1+ sort-end))
+        (sort-subr nil #'sort-setq-next-record #'sort-setq-end-record)))))
+
+(defun sort-setq-next-record ()
+  (condition-case nil
+      (progn
+        (forward-sexp 1)
+        (backward-sexp))
+    ('scan-error (end-of-buffer))))
+
+(defun sort-setq-end-record ()
+  (condition-case nil
+      (forward-sexp 2)
+    ('scan-error (end-of-buffer))))
+
 (provide 'acdw)
 ;;; acdw.el ends here
-- 
cgit 1.4.1-21-gabe81