From c2098fcdc9402366e92804bf2128007487115553 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Thu, 2 Dec 2021 00:18:11 -0600
Subject: Change defaults

---
 lisp/+defaults.el | 16 ++++++++++------
 1 file changed, 10 insertions(+), 6 deletions(-)

(limited to 'lisp')

diff --git a/lisp/+defaults.el b/lisp/+defaults.el
index ee49480..d439d82 100644
--- a/lisp/+defaults.el
+++ b/lisp/+defaults.el
@@ -68,23 +68,23 @@ Do this only if the buffer is not visiting a file."
  kill-do-not-save-duplicates t
  kill-read-only-ok t
  kill-ring-max 500
+ kill-whole-line t
  kmacro-ring-max 20
  load-prefer-newer t
  major-mode '+set-major-mode-from-buffer-name
  mark-ring-max 50
  minibuffer-eldef-shorten-default t
- minibuffer-prompt-properties '(read-only t
-					  cursor-intangible t
-					  face minibuffer-prompt)
+ minibuffer-prompt-properties (list 'read-only t
+				    'cursor-intangible t
+				    'face 'minibuffer-prompt)
  mode-require-final-newline 'visit-save
  mouse-drag-copy-region t
  mouse-yank-at-point t
  native-comp-async-report-warnings-errors 'silent
  read-answer-short t
  read-buffer-completion-ignore-case t
- read-extended-command-predicate (when
-				     (fboundp
-				      'command-completion-default-include-p)
+ read-extended-command-predicate (when (fboundp
+				        'command-completion-default-include-p)
 				   'command-completion-default-include-p)
  recenter-positions '(top middle bottom)
  regexp-search-ring-max 100
@@ -183,6 +183,10 @@ Do this only if the buffer is not visiting a file."
 (global-set-key (kbd "C-M-s") 'isearch-forward)
 (global-set-key (kbd "C-M-r") 'isearch-backward)
 
+;; C-h deletes backward - see https://idiomdrottning.org/bad-emacs-defaults
+(global-set-key (kbd "C-h") 'delete-backward-char)
+(keyboard-translate ?\C-h ?\C-?)
+
 ;;; Required libraries
 
 (when (require 'uniquify nil :noerror)
-- 
cgit 1.4.1-21-gabe81