fix typos

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

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)

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

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)))