From 2e8ef80c3c208dc3e64aada1b0a0ca57956c79ba Mon Sep 17 00:00:00 2001
From: Zedhugh Chen <zedhugh@gmail.com>
Date: Mon, 31 Aug 2026 00:49:51 +0800
Subject: [PATCH] fix typos

---
 early-init.el         | 4 ++--
 lisp/init-built-in.el | 2 +-
 lisp/init-gptel.el    | 2 +-
 lisp/init-plantuml.el | 2 +-
 lisp/init-theme.el    | 2 +-
 5 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/early-init.el b/early-init.el
index 44c03c6..c2faffe 100644
--- a/early-init.el
+++ b/early-init.el
@@ -26,7 +26,7 @@
   (scroll-bar-mode -1))
 
 
-(defun creature/welcom-message ()
+(defun creature/welcome-message ()
   (let (init-time startup-time)
     (setq startup-time (time-since before-init-time))
     (setq init-time
@@ -43,7 +43,7 @@
     (insert initial-scratch-message)
     (set-buffer-modified-p nil)))
 
-(add-hook 'emacs-startup-hook #'creature/welcom-message 1999)
+(add-hook 'emacs-startup-hook #'creature/welcome-message 1999)
 
 
 (setq warning-minimum-level :error)
diff --git a/lisp/init-built-in.el b/lisp/init-built-in.el
index 477c119..cfae7cc 100644
--- a/lisp/init-built-in.el
+++ b/lisp/init-built-in.el
@@ -17,7 +17,7 @@
 (fset 'yes-or-no-p 'y-or-n-p)
 (put 'erase-buffer 'disabled nil)
 (put 'narrow-to-page 'disabled nil)
-(put 'narrow-to-defun 'disable nil)
+(put 'narrow-to-defun 'disabled nil)
 (put 'narrow-to-region 'disabled nil)
 
 ;; Always use space for indentation
diff --git a/lisp/init-gptel.el b/lisp/init-gptel.el
index 6d2039f..569ceab 100644
--- a/lisp/init-gptel.el
+++ b/lisp/init-gptel.el
@@ -35,7 +35,7 @@
 
     (setq gptel-default-mode #'org-mode
           gptel-backend bigmodel-code
-          gptel-model 'gml-5.1
+          gptel-model 'glm-5.1
           )))
 
 (provide 'init-gptel)
diff --git a/lisp/init-plantuml.el b/lisp/init-plantuml.el
index 8e8bae6..0b7eec8 100644
--- a/lisp/init-plantuml.el
+++ b/lisp/init-plantuml.el
@@ -19,7 +19,7 @@ Copy from https://github.com/skuro/plantuml-mode/issues/98."
             (cdr bounds)
             keywords
             :exclusive 'no
-            :company-docsig #'indentity))))
+            :company-docsig #'identity))))
 
 (with-eval-after-load 'plantuml-mode
   (setq plantuml-exec-mode 'executable
diff --git a/lisp/init-theme.el b/lisp/init-theme.el
index 8b65d5c..36466a2 100644
--- a/lisp/init-theme.el
+++ b/lisp/init-theme.el
@@ -67,7 +67,7 @@ Each font conf looks like (FAMILY . SIZE).")
 if FRAME is nil, setup for current frame."
   ;; single-byte code
   (setq inhibit-compacting-font-caches
-        (if (eq system-type 'window-nt) t nil))
+        (if (eq system-type 'windows-nt) t nil))
 
   (let ((single (car creature/font-config))
         (multi  (cdr creature/font-config)))