From ef9fa3682a799ea94db11c3d7f3da03294f17196 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Mon, 18 Oct 2021 09:44:24 +0200 Subject: [PATCH] Fontify :doc keywords as documentation * lisp/emacs-lisp/lisp-mode.el (lisp-string-after-doc-keyword-p): Extend to :doc, too (bug#51230). --- lisp/emacs-lisp/lisp-mode.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el index b7b8f3a90c4..c2f756c9770 100644 --- a/lisp/emacs-lisp/lisp-mode.el +++ b/lisp/emacs-lisp/lisp-mode.el @@ -591,6 +591,8 @@ containing STARTPOS." (defun lisp-string-after-doc-keyword-p (listbeg startpos) "Return non-nil if `:documentation' symbol ends at STARTPOS inside a list. +`:doc' can also be used. + LISTBEG is the position of the start of the innermost list containing STARTPOS." (and listbeg ; We are inside a Lisp form. @@ -598,7 +600,7 @@ containing STARTPOS." (goto-char startpos) (ignore-errors (progn (backward-sexp 1) - (looking-at ":documentation\\_>")))))) + (looking-at ":documentation\\_>\\|:doc\\_>")))))) (defun lisp-font-lock-syntactic-face-function (state) "Return syntactic face function for the position represented by STATE. -- 2.39.2