From 47c7e664e5a0051a82b3dca424666464a16bf387 Mon Sep 17 00:00:00 2001
From: Daniel Borchmann <daniel@algebra20.de>
Date: Sat, 8 Mar 2025 18:26:37 +0100
Subject: [PATCH] Remove obsolete extra-symbol customization for TeX input
 method

---
 init.el               |  5 +----
 site-lisp/db-utils.el | 35 -----------------------------------
 2 files changed, 1 insertion(+), 39 deletions(-)

diff --git a/init.el b/init.el
index dcf7cd9..972c274 100644
--- a/init.el
+++ b/init.el
@@ -276,9 +276,7 @@
                                            :key #'cl-first)))))
 
 (use-package quail
-  :init (setq default-input-method "TeX")
-  :config (add-hook 'input-method-activate-hook
-                    #'db/add-symbols-to-TeX-input-method))
+  :init (setq default-input-method "TeX"))
 
 (use-package savehist
   :commands (savehist-mode)
@@ -374,7 +372,6 @@
              db/sort-nsm-permanent-settings
              endless/colorize-compilation
              db/turn-off-local-electric-pair-mode
-             db/add-symbols-to-TeX-input-method
              db/two-monitors-xrandr
              db/one-monitor-xrandr
              db/pretty-print-xml
diff --git a/site-lisp/db-utils.el b/site-lisp/db-utils.el
index 61f19ef..31fe18a 100644
--- a/site-lisp/db-utils.el
+++ b/site-lisp/db-utils.el
@@ -789,41 +789,6 @@ number of bytes has been inserted."
       (should (equal '(120 4194204 4194235 4194260)
                      (string-to-list (buffer-string)))))))
 
-
-;;; Extend Input Methods
-
-(defun db/add-symbols-to-TeX-input-method ()
-  "Add some new symbols to TeX input method."
-  (when (string= current-input-method "TeX")
-    (let ((quail-current-package (assoc "TeX" quail-package-alist)))
-      (quail-define-rules
-       ((append . t))
-       ("\\land" ?∧)
-       ("\\lor" ?∨)
-       ("\\lnot" ?¬)
-       ("\\implies" ?⇒)
-       ("\\powerset" ?𝔓)
-       ("\\mathbbK" ?𝕂)
-       ("\\mathbbR" ?ℝ)
-       ("\\mathbbN" ?ℕ)
-       ("\\mathbbZ" ?ℤ)
-       ("\\mathbbP" ?ℙ)
-       ("\\mathcalA" ?𝒜)
-       ("\\mathcalB" ?ℬ)
-       ("\\mathcalC" ?𝒞)
-       ("\\mathcalD" ?𝒟)
-       ("\\mathcalE" ?ℰ)
-       ("\\mathcalH" ?ℋ)
-       ("\\mathcalI" ?ℐ)
-       ("\\mathcalJ" ?𝒥)
-       ("\\mathcalK" ?𝒦)
-       ("\\mathcalL" ?ℒ)
-       ("\\mathcalM" ?ℳ)
-       ("\\mathcalR" ?ℛ)
-       ("\\mathcalQ" ?𝒬)
-       ("\\mathcalS" ?𝒮)
-       ("\\mathfrakP" ?𝔓)))))
-
 
 ;;; Wrappers for external applications