Emacs Задание правил для блокировки шрифтов

Question

Я использую методы разбора, которые я изучаю на практике. Я пытаюсь написать режим программирования в Emacs, поэтому я могу воспользоваться подсветкой синтаксиса и тому подобное. к сожалению, функция font-lock не работает. Поиск в Google и следование найденным учебникам не дали никаких результатов. Ниже мой код. Любые советы приветствуются.

;;;###autoload 
(defgroup use-mode nil 
    "Mode for editing Use source files." 
    :group 'languages) 

;;;###autoload 
(defcustom use-mode-hook nil 
    "Hook run when use-mode is started.") 

(defvar use-mode-map (make-sparse-keymap) 
"Keymap for use-mode.") 

;;;###autoload 
(add-to-list 'auto-mode-alist '("\\.use\\'" . use-mode)) 

(defvar use-keywords-1 '("use" . font-lock-keyword-face) 
    "First level of font-lock in Use") 

(defvar use-font-lock-keywords use-keywords-1 
    "Code highlighting.") 

;;;###autoload 
(define-derived-mode use-mode prog-mode "Use" 
    "Major mode for editing Use source files." 
    (setq font-lock-defaults '(use-font-lock-keywords))) 

(provide 'use-mode) 

Answer 1

Когда вы определяете ключевые слова для блокировки шрифтов, вы должны указать список записей. Так, если заменить:

(defvar use-keywords-1 '("use" . font-lock-keyword-face) 
    "First level of font-lock in Use") 

С ниже, он будет работать:

(defvar use-keywords-1 '(("use" . font-lock-keyword-face)) 
    "First level of font-lock in Use") 

Обратите внимание, что если вы не планируете написать действительно передовую систему, вам не нужно, чтобы обеспечить различные уровни, поэтому вы можете удалить переменные *-1.

(Только в случае, если вы еще не видели его уже, я хотел бы рекомендовать один из моих пакетов, font-lock-studio. Это интерактивный отладчик для шрифта блокировки ключевых слов.)