do nothing for man-plus.el. It still doesn't work

This commit is contained in:
MitchMarq42 2022-10-12 15:29:54 -08:00
parent eb9d298fcc
commit c6e8f0cf9a

View File

@ -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