From baf08416cf8ca0be469fa49f36452c382060a806 Mon Sep 17 00:00:00 2001 From: William Carroll Date: Tue, 1 Sep 2020 16:27:42 +0100 Subject: Apply checkdoc fixes to set.el While I don't agree with what checkdoc is advising here, I'd rather not fight it. --- emacs/.emacs.d/wpc/set.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'emacs/.emacs.d/wpc/set.el') diff --git a/emacs/.emacs.d/wpc/set.el b/emacs/.emacs.d/wpc/set.el index 2eb89645152f..51c0c434f54e 100644 --- a/emacs/.emacs.d/wpc/set.el +++ b/emacs/.emacs.d/wpc/set.el @@ -65,7 +65,7 @@ (list-reduce acc f))) (defun set-intersection (a b) - "Return the set intersection between sets A and B." + "Return the set intersection between A and B." (set-reduce (set-new) (lambda (x acc) (if (set-contains? x b) @@ -98,11 +98,11 @@ (set-xs b))) (defun set-distinct? (a b) - "Return t if sets A and B have no shared members." + "Return t if A and B have no shared members." (set-empty? (set-intersection a b))) (defun set-superset? (a b) - "Return t if set A contains all of the members of set B." + "Return t if A has all of the members of B." (->> b set-to-list (list-all? (lambda (x) (set-contains? x a))))) -- cgit 1.4.1