Fix cl-check-type invocation

It wants the type name, not the type checking function.
This commit is contained in:
Timothy 2024-03-08 16:39:15 +08:00
parent 3492425727
commit a210ef7a2b
Signed by: tec
SSH key fingerprint: SHA256:eobz41Mnm0/iYWBvWThftS0ElEs1ftBr6jamutnXc/A

View file

@ -8430,7 +8430,7 @@ Now, by default, LSPs don't really function at all in ~src~ blocks.
(cl-defmacro lsp-org-babel-enable (lang) (cl-defmacro lsp-org-babel-enable (lang)
"Support LANG in org source code block." "Support LANG in org source code block."
(setq centaur-lsp 'lsp-mode) (setq centaur-lsp 'lsp-mode)
(cl-check-type lang stringp) (cl-check-type lang string)
(let* ((edit-pre (intern (format "org-babel-edit-prep:%s" lang))) (let* ((edit-pre (intern (format "org-babel-edit-prep:%s" lang)))
(intern-pre (intern (format "lsp--%s" (symbol-name edit-pre))))) (intern-pre (intern (format "lsp--%s" (symbol-name edit-pre)))))
`(progn `(progn