mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-24 14:30:43 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Eli Zaretskii 2023-10-20 15:46:20 +03:00
parent 8fa0f13e6e
commit a8b14b77ff
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/emacs-lisp/comp-cstr.el
View file

@ -263,7 +263,7 @@ Return them as multiple value."
;;; Type handling. ;;; Type handling.
(defun comp--sym-lessp (x y) (defun comp--sym-lessp (x y)
"Like `string-lessp' but for strings." "Like `string-lessp' but for symbol names."
(string-lessp (symbol-name x) (string-lessp (symbol-name x)
(symbol-name y))) (symbol-name y)))
@ -302,7 +302,7 @@ Return them as multiple value."
(defun comp--direct-subtypes (type) (defun comp--direct-subtypes (type)
"Return all the direct subtypes of TYPE." "Return all the direct subtypes of TYPE."
;; TODO memoize. ;; TODO: memoize.
(cl-sort (cl-sort
(cl-loop for j in (comp-cstr-ctxt-typeof-types comp-ctxt) (cl-loop for j in (comp-cstr-ctxt-typeof-types comp-ctxt)
for res = (cl-loop for i in j for res = (cl-loop for i in j