From 594326768198d903d4f7ea49a27a9492ea9e88a4 Mon Sep 17 00:00:00 2001
From: James Cherti <60946298+jamescherti@users.noreply.github.com>
Date: Thu, 27 Feb 2025 08:59:49 -0500
Subject: [PATCH 1/2] Closes #30: Increase undo limits to prevent early
 truncation of undo history

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

diff --git a/init.el b/init.el
index 65c4f8e..66e7bbc 100644
--- a/init.el
+++ b/init.el
@@ -25,6 +25,14 @@
 ;; Don't ping things that look like domain names.
 (setq ffap-machine-p-known 'reject)
 
+;;; Undo/redo
+
+;; Increase undo limits to prevent early garbage collection from aggressively
+;; truncating undo history
+(setq undo-limit (* 13 160000)
+      undo-strong-limit (* 13 240000)
+      undo-outer-limit (* 13 24000000))
+
 ;;; package.el
 
 (when (bound-and-true-p minimal-emacs-package-initialize-and-refresh)

From 730d248a2df5bde13ed5d203c5bcf0cfe87c150f Mon Sep 17 00:00:00 2001
From: James Cherti <60946298+jamescherti@users.noreply.github.com>
Date: Thu, 27 Feb 2025 09:02:10 -0500
Subject: [PATCH 2/2] Closes #31: Remove warnings for narrow-to-region,
 upcase-region, downcase-region...

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

diff --git a/init.el b/init.el
index 66e7bbc..0a0ac12 100644
--- a/init.el
+++ b/init.el
@@ -552,6 +552,15 @@
 (setq dabbrev-ignored-buffer-modes
       '(archive-mode image-mode docview-mode tags-table-mode pdf-view-mode))
 
+;;; Remove warnings from narrow-to-region, upcase-region...
+
+(put 'narrow-to-region 'disabled nil)
+(put 'upcase-region 'disabled nil)
+(put 'downcase-region 'disabled nil)
+(put 'erase-buffer 'disabled nil)
+(put 'scroll-left 'disabled nil)
+(put 'dired-find-alternate-file 'disabled nil)
+
 ;;; Load post init
 (minimal-emacs-load-user-init "post-init.el")