Fix regexp of auto-mode-alist
And use "\'" end of string anchor instead of "$".
This commit is contained in:
parent
04a2e7d5d9
commit
40e2ff222c
|
@ -282,13 +282,13 @@ Uses prefix (as PREFIX) to choose where to display it:
|
||||||
(defvar plantuml-preprocessors-regexp (concat "^\\s *" (regexp-opt plantuml-preprocessors 'words)))
|
(defvar plantuml-preprocessors-regexp (concat "^\\s *" (regexp-opt plantuml-preprocessors 'words)))
|
||||||
|
|
||||||
(setq plantuml-font-lock-keywords
|
(setq plantuml-font-lock-keywords
|
||||||
`(
|
`(
|
||||||
(,plantuml-types-regexp . font-lock-type-face)
|
(,plantuml-types-regexp . font-lock-type-face)
|
||||||
(,plantuml-keywords-regexp . font-lock-keyword-face)
|
(,plantuml-keywords-regexp . font-lock-keyword-face)
|
||||||
(,plantuml-builtins-regexp . font-lock-builtin-face)
|
(,plantuml-builtins-regexp . font-lock-builtin-face)
|
||||||
(,plantuml-preprocessors-regexp . font-lock-preprocessor-face)
|
(,plantuml-preprocessors-regexp . font-lock-preprocessor-face)
|
||||||
;; note: order matters
|
;; note: order matters
|
||||||
))
|
))
|
||||||
|
|
||||||
(setq plantuml-kwdList (make-hash-table :test 'equal))
|
(setq plantuml-kwdList (make-hash-table :test 'equal))
|
||||||
(mapc (lambda (x) (puthash x t plantuml-kwdList)) plantuml-types)
|
(mapc (lambda (x) (puthash x t plantuml-kwdList)) plantuml-types)
|
||||||
|
@ -331,7 +331,7 @@ Uses prefix (as PREFIX) to choose where to display it:
|
||||||
(message "Making completion list...%s" "done")))))
|
(message "Making completion list...%s" "done")))))
|
||||||
|
|
||||||
;;;###autoload
|
;;;###autoload
|
||||||
(add-to-list 'auto-mode-alist '("\\.\\(plantuml\\|pum\\|plantuml\\|plu\\)$" . plantuml-mode))
|
(add-to-list 'auto-mode-alist '("\\.(plantuml\\|pum\\|plantuml\\|plu)\\'" . plantuml-mode))
|
||||||
|
|
||||||
;;;###autoload
|
;;;###autoload
|
||||||
(define-derived-mode plantuml-mode prog-mode "plantuml"
|
(define-derived-mode plantuml-mode prog-mode "plantuml"
|
||||||
|
|
Loading…
Reference in New Issue