mir/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
MitchMarq42 2022-10-12 15:29:54 -08:00
parent eb9d298fcc
commit c6e8f0cf9a
1 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lisp/man-plus.el
View File

@ -12,11 +12,11 @@
(defvar man-plus-highlights (defvar man-plus-highlights
(let* ( (let* (
(manReference "[^()[:space:]]\\+(\\%([0-9][a-z]*\\|[nlpox]\\))") (manReference "[^()[:space:]]\\\\+(\\\\%([0-9][a-z]*\\\\|[nlpox]\\\\))")
(manSectionHeading "^\\S.*$") (manSectionHeading "^\\\\S.*$")
(manHeader "^\\%1l.*$") (manHeader "^\\\\%1l.*$")
(manSubHeading "^ \\{3\\}\\S.*$") (manSubHeading "^ \\\\{3\\\\}\\\\S.*$")
(manOptionDesc "^\\s\\+\\%(+\\|-\\)\\S\\+")) (manOptionDesc "^\\\\s\\\\+\\\\%(+\\\\|-\\\\)\\\\S\\\\+"))
`( `(
(,manReference . 'link) (,manReference . 'link)
(,manSectionHeading . 'outline-1) (,manSectionHeading . 'outline-1)
@ -49,7 +49,7 @@
(defun man-plus-setall () (defun man-plus-setall ()
"Do all of the things that Man wants. To be run as `Man-mode-hook'." "Do all of the things that Man wants. To be run as `Man-mode-hook'."
(interactive) (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 #'man-plus-setall)
(add-hook 'man-common-hook #'turn-off-line-numbers) (add-hook 'man-common-hook #'turn-off-line-numbers)
@ -63,4 +63,3 @@
(provide 'man-plus) (provide 'man-plus)
;;; man-plus.el ends here ;;; man-plus.el ends here
; LocalWords: nlpox