[Emacs-diffs] trunk r115236: bool-vector-subsetp is now the normal direction.

[Paul Eggert]

------------------------------------------------------------
revno: 115236
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/15912
committer: Paul Eggert <address@hidden>
branch nick: trunk
timestamp: Mon 2013-11-25 15:25:04 -0800
message:
  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.
modified:
  src/ChangeLog                  changelog-20091113204419-o5vbwnq5f7feedwu-1438
  src/data.c                     data.c-20091113204419-o5vbwnq5f7feedwu-251

=== modified file 'src/ChangeLog'
--- a/src/ChangeLog     2013-11-25 17:30:09 +0000
+++ b/src/ChangeLog     2013-11-25 23:25:04 +0000
@@ -1,5 +1,9 @@
 2013-11-25  Paul Eggert  <address@hidden>
 
+       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

=== modified file 'src/data.c'
--- a/src/data.c        2013-11-24 18:20:18 +0000
+++ b/src/data.c        2013-11-25 23:25:04 +0000
@@ -3242,11 +3242,11 @@
 
 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,