[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master a8b14b77ffa: ; * lisp/emacs-lisp/comp-cstr.el: Fix punctuation.
From: |
Eli Zaretskii |
Subject: |
master a8b14b77ffa: ; * lisp/emacs-lisp/comp-cstr.el: Fix punctuation. |
Date: |
Fri, 20 Oct 2023 08:46:43 -0400 (EDT) |
branch: master
commit a8b14b77ffa11803fda02c645b0181b616950b71
Author: Eli Zaretskii <eliz@gnu.org>
Commit: Eli Zaretskii <eliz@gnu.org>
; * lisp/emacs-lisp/comp-cstr.el: Fix punctuation.
---
lisp/emacs-lisp/comp-cstr.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master a8b14b77ffa: ; * lisp/emacs-lisp/comp-cstr.el: Fix punctuation.,
Eli Zaretskii <=