[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master ef9fa36: Fontify :doc keywords as documentation
From: |
Lars Ingebrigtsen |
Subject: |
master ef9fa36: Fontify :doc keywords as documentation |
Date: |
Mon, 18 Oct 2021 03:46:33 -0400 (EDT) |
branch: master
commit ef9fa3682a799ea94db11c3d7f3da03294f17196
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
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 b7b8f3a..c2f756c 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.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master ef9fa36: Fontify :doc keywords as documentation,
Lars Ingebrigtsen <=