diff --git a/lisp/man-plus.el b/lisp/man-plus.el index f7f4e1b..bcbbc61 100644 --- a/lisp/man-plus.el +++ b/lisp/man-plus.el @@ -12,11 +12,11 @@ (defvar man-plus-highlights (let* ( - (manReference "[^()[:space:]]\\+(\\%([0-9][a-z]*\\|[nlpox]\\))") - (manSectionHeading "^\\S.*$") - (manHeader "^\\%1l.*$") - (manSubHeading "^ \\{3\\}\\S.*$") - (manOptionDesc "^\\s\\+\\%(+\\|-\\)\\S\\+")) + (manReference "[^()[:space:]]\\\\+(\\\\%([0-9][a-z]*\\\\|[nlpox]\\\\))") + (manSectionHeading "^\\\\S.*$") + (manHeader "^\\\\%1l.*$") + (manSubHeading "^ \\\\{3\\\\}\\\\S.*$") + (manOptionDesc "^\\\\s\\\\+\\\\%(+\\\\|-\\\\)\\\\S\\\\+")) `( (,manReference . 'link) (,manSectionHeading . 'outline-1) @@ -49,12 +49,12 @@ (defun man-plus-setall () "Do all of the things that Man wants. To be run as `Man-mode-hook'." (interactive) - (setq font-lock-defaults '((man-plus-highlights)))) + (setq font-lock-defaults '(man-plus-highlights))) (add-hook 'man-common-hook #'man-plus-setall) (add-hook 'man-common-hook #'turn-off-line-numbers) -(define-derived-mode man-plus-mode man-common "Man Plus" +(define-derived-mode man-plus-mode man-common "ManPlus" "Custom child mode for man mode, structured like the `nvim' builtin plugin." (buffer-disable-undo) (auto-fill-mode -1) @@ -63,4 +63,3 @@ (provide 'man-plus) ;;; man-plus.el ends here - ; LocalWords: nlpox