From: Eli Zaretskii <eliz@gnu.org>
Date: Fri, 20 Oct 2023 12:46:20 +0000 (+0300)
Subject: ; * lisp/emacs-lisp/comp-cstr.el: Fix punctuation.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a8b14b77ffa11803fda02c645b0181b616950b71;p=emacs.git

; * lisp/emacs-lisp/comp-cstr.el: Fix punctuation.
---

diff --git a/lisp/emacs-lisp/comp-cstr.el b/lisp/emacs-lisp/comp-cstr.el
index 57ae39520c5..d23304c8874 100644
--- a/lisp/emacs-lisp/comp-cstr.el
+++ b/lisp/emacs-lisp/comp-cstr.el
@@ -263,7 +263,7 @@ Return them as multiple value."
 ;;; Type handling.
 
 (defun comp--sym-lessp (x y)
-  "Like `string-lessp' but for strings."
+  "Like `string-lessp' but for symbol names."
   (string-lessp (symbol-name x)
                 (symbol-name y)))
 
@@ -277,7 +277,7 @@ Return them as multiple value."
                      do (cl-return-from outer y))))
 
 (defun comp--normalize-typeset0 (typeset)
-  ;; For every type search its supertype. If all the subtypes of that
+  ;; For every type search its supertype.  If all the subtypes of that
   ;; supertype are presents remove all of them, add the identified
   ;; supertype and restart.
   (when typeset
@@ -302,7 +302,7 @@ Return them as multiple value."
 
 (defun comp--direct-subtypes (type)
   "Return all the direct subtypes of TYPE."
-  ;; TODO memoize.
+  ;; TODO: memoize.
   (cl-sort
    (cl-loop for j in (comp-cstr-ctxt-typeof-types comp-ctxt)
             for res = (cl-loop for i in j