From: Paul Eggert <eggert@cs.ucla.edu>
Date: Mon, 25 Nov 2013 23:25:04 +0000 (-0800)
Subject: bool-vector-subsetp is now the normal direction.
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~695
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3f73284a46437b46bbd79f2594c3bcefde83a2e8;p=emacs.git

bool-vector-subsetp is now the normal direction.

* data.c (Fbool_vector_subsetp): Test whether the first argument
is a subset of the second one, not the reverse.  Add doc string.

Fixes: debbugs:15912
---

diff --git a/src/ChangeLog b/src/ChangeLog
index ba0af53484d..bf4392d519d 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,9 @@
 2013-11-25  Paul Eggert  <eggert@cs.ucla.edu>
 
+	bool-vector-subsetp is now the normal direction (Bug#15912).
+	* data.c (Fbool_vector_subsetp): Test whether the first argument
+	is a subset of the second one, not the reverse.  Add doc string.
+
 	Fix minor problems found by static checking.
 	* lread.c (load_path_default): Now static.
 	* textprop.c (text_property_stickiness): Be consistent about the
diff --git a/src/data.c b/src/data.c
index ca896897ddf..1fe7a1c9b65 100644
--- a/src/data.c
+++ b/src/data.c
@@ -3242,11 +3242,11 @@ Return the destination vector if it changed or nil otherwise.  */)
 
 DEFUN ("bool-vector-subsetp", Fbool_vector_subsetp,
        Sbool_vector_subsetp, 2, 2, 0,
-       doc: )
+       doc: /* Return t if every t value in A is also t in B, nil otherwise.
+A and B must be bool vectors of the same length.  */)
   (Lisp_Object a, Lisp_Object b)
 {
-  /* Like bool_vector_union, but doesn't modify b.  */
-  return bool_vector_binop_driver (b, a, b, bool_vector_subsetp);
+  return bool_vector_binop_driver (a, b, b, bool_vector_subsetp);
 }
 
 DEFUN ("bool-vector-not", Fbool_vector_not,