Use keymap- forms and defvar-keymap inside code

Author: Esnos33

god-mode-isearch.el

@@ -6,7 +6,7 @@
 ;; Author: Chris Done <chrisdone@gmail.com>
 ;; URL: https://github.com/emacsorphanage/god-mode
 ;; Version: 2.19.0
-;; Package-Requires: ((emacs "26.3"))
+;; Package-Requires: ((emacs "29"))
 
 ;; This file is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
@@ -29,16 +29,16 @@
 
 ;; Recommended use:
 
-;; (define-key isearch-mode-map (kbd "<escape>") 'god-mode-isearch-activate)
-;; (define-key god-mode-isearch-map (kbd "<escape>") 'god-mode-isearch-disable)
+;; (keymap-set isearch-mode-map "<escape>" 'god-mode-isearch-activate)
+;; (keymap-set god-mode-isearch-map "<escape>" 'god-mode-isearch-disable)
 
-(defvar god-mode-isearch-map
-  (let ((map (copy-keymap isearch-mode-map)))
-    (define-key map (kbd "s") 'isearch-repeat-forward)
-    (define-key map (kbd "r") 'isearch-repeat-backward)
-    (define-key map (kbd "w") 'isearch-yank-word-or-char)
-    map)
-  "Keymap for modal isearch.")
+(defvar-keymap god-mode-isearch-map
+  :parent isearch-mode-map
+  :doc
+  "Keymap for modal isearch."
+  "s" #'isearch-repeat-forward
+  "r" #'isearch-repeat-backward
+  "w" #'isearch-yank-word-or-char)
 
 (defun god-mode-isearch-activate ()
   "Activate God mode in the isearch buffer."

god-mode.el

@@ -127,17 +127,17 @@ For example, calling with arguments 5 and t yields the symbol `S-f5'."
 (defvar god-local-mode-map
   (let ((map (make-sparse-keymap)))
     (suppress-keymap map t)
-    (define-key map [remap self-insert-command] 'god-mode-self-insert)
+    (keymap-set map "<remap> <self-insert-command>" #'god-mode-self-insert)
     (let ((i ?\s))
       (while (< i 256)
-        (define-key map (vector i) 'god-mode-self-insert)
+        (keymap-set map (single-key-description i) 'god-mode-self-insert)
         (setq i (1+ i))))
     (when god-mode-enable-function-key-translation
       (dotimes (i 35)
-        (define-key map (vector (god-mode-make-f-key (1+ i))) 'god-mode-self-insert)
-        (define-key map (vector (god-mode-make-f-key (1+ i) t)) 'god-mode-self-insert)))
-    (define-key map (kbd "DEL") nil)
-    (define-key map (kbd "C-h k") #'god-mode-describe-key)
+        (keymap-set map (single-key-description (god-mode-make-f-key (1+ i))) 'god-mode-self-insert)
+        (keymap-set map (single-key-description (god-mode-make-f-key (1+ i) t)) 'god-mode-self-insert)))
+    (keymap-set map "DEL" nil)
+    (keymap-set map "C-h k" #'god-mode-describe-key)
     map))
 
 ;;;###autoload
@@ -211,7 +211,7 @@ is a negative number."
           (call-interactively binding)
         (execute-kbd-macro binding)))))
 
-(define-key universal-argument-map (kbd "u")
+(keymap-set universal-argument-map "u"
   #'god-mode-maybe-universal-argument-more)
 
 (defun god-mode-self-insert ()