06/11/24 18:56:21 +a+2jr9j0
>>62
(defun html-mode-hoge ()
(let ((hm #'html-mode)
(hl #'html-load-keyword-file))
(defun html-mode ()
(call-interactively hm))
(defun html-load-keyword-file (&optional doctype)
(funcall hl
(or doctype
(completing-read "doctype: "
(mapcar #'car *html-doctypes*)
:case-fold t
:default (html-find-doctype)
:must-match t))))
))
(add-hook '*post-startup-hook* 'html-mode-hoge)