[求助]如何定制outline-level

Emacs-general
1

我想像Org-mode一样多级文档，文档中

*** 为一级

** 为二级

但是自己写的这段程序不起作用。

(defun Acad-Menu-outline-level ()
  (cond
   ((looking-at "^\*{3}") 1)
   ((looking-at "^\*{2}") 2)
   (t 1000)))
(add-hook 'Acad-Menu-mode-hook
          (function (lambda ()
                      (make-local-variable 'outline-level)
                      (setq outline-level 'Acad-Menu-outline-level)
                      (outline-minor-mode)
                      (hide-body)
                      (setq-local show-trailing-whitespace t)
                      (auto-complete-mode 1)
                      )))