From: rearman <rearman@r717.net>
Date: Thu, 12 Dec 2024 22:13:27 +0000 (-0500)
Subject: Add note, fix typo
X-Git-Url: https://git.earman.xyz/?a=commitdiff_plain;h=e4469dd884f7c075858581003a6ba40439e4467a;p=emacsinit.git

Add note, fix typo
---

diff --git a/re/re-bindings.el b/re/re-bindings.el
index 00a0783..27909fe 100644
--- a/re/re-bindings.el
+++ b/re/re-bindings.el
@@ -1,10 +1,10 @@
-;;; re-bindings.el --- Set Bindings  -*- lexical-binding: t; -*-
+;;; re-bindings.el --- Set Bindiŋs  -*- lexical-binding: t; -*-
 ;; This file is not part of GNU Emacs
 
 ;;; Code:
 
 ;; Editing Bindings
-(keymap-global-set "<insert>" nil) ; I keep toggling overwrite-mode haply
+(keymap-global-set "<insert>" nil) ; I keep toggliŋ overwrite-mode haply
 (keymap-global-set "C-\\" #'undo-redo)
 (keymap-global-set "C-S-K" #'kill-whole-line)
 (keymap-global-set "C-w" #'re/kill-bword-or-region)
@@ -26,7 +26,7 @@
 (keymap-global-set "<end>" #'end-of-buffer)
 (keymap-global-set "M-n" #'next-buffer)
 (keymap-global-set "M-p" #'previous-buffer)
-(keymap-global-set "<mouse-4>" #'previous-buffer)
+(keymap-global-set "<mouse-4>" #'previous-buffer) ; Back button
 (keymap-global-set "C-M-o" #'re/other-window-or-split-window)
 (keymap-global-set "<remap> <move-beginning-of-line>" #'re/smart-beginning-of-line)
 (keymap-global-set "<remap> <move-end-of-line>" #'re/smart-end-of-line)
@@ -59,65 +59,64 @@
 ;; (E)Lisp
 (keymap-global-set "C-M-z" #'eval-region)
 (keymap-global-set "C-M-S-q"
-                   (lambda () (interactive) (sedit-auto-prettify-sexp)))
+		   (lambda () (interactive) (sedit-auto-prettify-sexp)))
 
 (defvar *re/lisp-mode-hooks*
   '(emacs-lisp-mode-hook lisp-mode-hook slime-mode-hook scheme-mode-hook))
 
 (dolist (hook *re/lisp-mode-hooks*)
   (add-hook hook
-            (lambda ()
-              (keymap-set lisp-mode-shared-map
-                          "]"
-                          (re/balance-and-eval-sexp #'sedit-auto-prettify-sexp)))))
+	    (lambda ()
+	      (keymap-set lisp-mode-shared-map
+			  "]"
+			  (re/balance-and-eval-sexp #'sedit-auto-prettify-sexp)))))
 
 (add-hook 'lisp-interaction-mode-hook
-          (lambda ()
-            (keymap-set lisp-interaction-mode-map
-                        "]"
-                        (re/balance-and-eval-sexp #'eval-print-last-sexp))))
+	  (lambda ()
+	    (keymap-set lisp-interaction-mode-map
+			"]"
+			(re/balance-and-eval-sexp #'eval-print-last-sexp))))
 
 ;; IELM
 (keymap-global-set "C-c i" #'ielm)
 
 (add-hook 'ielm-mode-hook
-          (lambda ()
-            (keymap-set inferior-emacs-lisp-mode-map
-                        "C-l"
-                        #'comint-clear-buffer)
-            (let ((eval-function #'ielm-send-input))
-              (keymap-set inferior-emacs-lisp-mode-map
-                          ")"
-                          (re/send-on-close-paren eval-function))
-              (keymap-set inferior-emacs-lisp-mode-map
-                          "]"
-                          (re/balance-and-eval-sexp eval-function)))))
-
+	  (lambda ()
+	    (keymap-set inferior-emacs-lisp-mode-map
+			"C-l"
+			#'comint-clear-buffer)
+	    (let ((eval-function #'ielm-send-input))
+	      (keymap-set inferior-emacs-lisp-mode-map
+			  ")"
+			  (re/send-on-close-paren eval-function))
+	      (keymap-set inferior-emacs-lisp-mode-map
+			  "]"
+			  (re/balance-and-eval-sexp eval-function)))))
 
 ;; Eshell
 (keymap-global-set "C-c e" #'eshell)
 
 (add-hook 'eshell-mode-hook
-          (lambda ()
-            (keymap-set eshell-mode-map "C-d" #'eshell-quit-or-delete-char)
-            (let ((eval-function #'eshell-send-input))
-              (keymap-set eshell-mode-map
-                          ")"
-                          (re/send-on-close-paren eval-function))
-              (keymap-set eshell-mode-map
-                          "]"
-                          (re/balance-and-eval-sexp eval-function)))))
+	  (lambda ()
+	    (keymap-set eshell-mode-map "C-d" #'eshell-quit-or-delete-char)
+	    (let ((eval-function #'eshell-send-input))
+	      (keymap-set eshell-mode-map
+			  ")"
+			  (re/send-on-close-paren eval-function))
+	      (keymap-set eshell-mode-map
+			  "]"
+			  (re/balance-and-eval-sexp eval-function)))))
 
 ;; SLIME REPL
 (add-hook 'slime-repl-mode-hook
-          (lambda ()
-            (let ((eval-function #'slime-repl-return))
-              (keymap-set slime-repl-mode-map
-                          ")"
-                          (re/send-on-close-paren eval-function))
-              (keymap-set slime-repl-mode-map
-                          "]"
-                          (re/balance-and-eval-sexp eval-function)))))
+	  (lambda ()
+	    (let ((eval-function #'slime-repl-return))
+	      (keymap-set slime-repl-mode-map
+			  ")"
+			  (re/send-on-close-paren eval-function))
+	      (keymap-set slime-repl-mode-map
+			  "]"
+			  (re/balance-and-eval-sexp eval-function)))))
 
 ;; Org Starters
 (keymap-global-set "C-c l" #'org-store-link)