branch: master
commit 9edc6c3369482c07f646d36b9786ab0a53b6a405
Author: Jackson Ray Hamilton <[email protected]>
Commit: Jackson Ray Hamilton <[email protected]>
Checkdoc cleanup.
---
context-coloring.el | 11 +++++++----
1 files changed, 7 insertions(+), 4 deletions(-)
diff --git a/context-coloring.el b/context-coloring.el
index 3329238..76320ee 100644
--- a/context-coloring.el
+++ b/context-coloring.el
@@ -226,11 +226,13 @@ the END point (exclusive) with the face corresponding to
LEVEL."
:group 'context-coloring)
(defun context-coloring-font-lock-syntactic-comment-function (state)
- "Tell `font-lock' to color a comment but not a string."
+ "Tell `font-lock' to color a comment but not a string according
+to STATE."
(if (nth 3 state) nil font-lock-comment-face))
(defun context-coloring-font-lock-syntactic-string-function (state)
- "Tell `font-lock' to color a string but not a comment."
+ "Tell `font-lock' to color a string but not a comment according
+to STATE."
(if (nth 3 state) font-lock-string-face nil))
(defsubst context-coloring-colorize-comments-and-strings (&optional min max)
@@ -433,7 +435,7 @@ bound as variables.")
(defconst context-coloring-BACKTICK-CHAR (string-to-char "`"))
(defsubst context-coloring-elisp-identifier-p (syntax-code)
- "Check if SYNTAX-CODE is an emacs lisp identifier constituent."
+ "Check if SYNTAX-CODE is an elisp identifier constituent."
(or (= syntax-code context-coloring-WORD-CODE)
(= syntax-code context-coloring-SYMBOL-CODE)))
@@ -661,7 +663,8 @@ no header, skip past the sexp at START."
(context-coloring-elisp-forward-sexp)))))))
(defun context-coloring-elisp-colorize-lambda-like (callback)
- "Color the lambda-like function at point."
+ "Color the lambda-like function at point, parsing the header
+with CALLBACK."
(let ((start (point)))
(context-coloring-elisp-colorize-scope
(lambda ()
