emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/hyperbole f6a07eef0b 5/5: set.el: Shorten docs strings


From: ELPA Syncer
Subject: [elpa] externals/hyperbole f6a07eef0b 5/5: set.el: Shorten docs strings to be within 80 char limit. (#270)
Date: Sun, 14 Aug 2022 16:57:38 -0400 (EDT)

branch: externals/hyperbole
commit f6a07eef0b954b8d82e3e7f6e0f0cb103a7a88b0
Author: Mats Lidell <mats.lidell@lidells.se>
Commit: GitHub <noreply@github.com>

    set.el: Shorten docs strings to be within 80 char limit. (#270)
---
 ChangeLog |  1 +
 set.el    | 11 ++++++-----
 2 files changed, 7 insertions(+), 5 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index ce4626bcfb..7949db2c50 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,6 @@
 2022-08-14  Mats Lidell  <matsl@gnu.org>
 
+* set.el: 
 * hyrolo-demo.el:
 * hui-jmenu.el:
 * hui-em-but.el:
diff --git a/set.el b/set.el
index da719bf365..e3daca9990 100644
--- a/set.el
+++ b/set.el
@@ -3,9 +3,9 @@
 ;; Author:       Bob Weiner
 ;;
 ;; Orig-Date:    26-Sep-91 at 19:24:19
-;; Last-Mod:     12-Feb-22 at 10:42:19 by Mats Lidell
+;; Last-Mod:      6-Aug-22 at 23:23:08 by Mats Lidell
 ;;
-;; Copyright (C) 1991-2021  Free Software Foundation, Inc.
+;; Copyright (C) 1991-2022  Free Software Foundation, Inc.
 ;; See the "HY-COPY" file for license information.
 ;;
 ;; This file is part of GNU Hyperbole.
@@ -69,9 +69,10 @@ Use (setq set (set:remove elt set)) to assure set is always 
properly modified."
 ;; ************************************************************************
 
 (defun set:combinations (set &optional arity)
-  "Return all possible combinations (subsets) of SET including the empty set 
and the SET itself.
-Assume SET is a valid set.  With optional ARITY, return only subsets with
-ARITY members."
+  "Return all possible combinations (subsets) of SET.
+This includes the empty set and the SET itself.  Assume SET is a
+valid set.  With optional ARITY, return only subsets with ARITY
+members."
   (cond ((null arity) 
         (setq arity 0)
         (cons nil (apply 'nconc (mapcar (lambda (_elt) (setq arity (1+ arity)) 
(set:combinations set arity))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]