Fix last change.

* data.c (Feqlsign, Flss, Fgtr, Fleq, Fgeq): Add convenient
'usage' docstring entry to pacify make-docfile.

diff --git a/src/ChangeLog b/src/ChangeLog
index e609c38be7eac33bc56c8a8ccddfd1ea8fb0a957..f51e6a147bf3a499a290e4ad80aba6f8b856fe50 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,18 @@
+2013-09-11  Dmitry Antipov  <dmantipov@yandex.ru>
+
+       Fix last change.
+       * data.c (Feqlsign, Flss, Fgtr, Fleq, Fgeq): Add convenient
+       'usage' docstring entry to pacify make-docfile.
+
+2013-09-11  Barry O'Reilly  <gundaetiapo@gmail.com>
+
+       Change comparison functions =, <, >, <=, >= to take many arguments.
+       * data.c: Change comparison functions' interface and implementation.
+       * lisp.h: Make arithcompare available for efficient two arg
+       comparisons.
+       * bytecode.c: Use arithcompare.
+       * fileio.c: Use new interface.
+
 2013-09-11  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * keyboard.c (read_char): Don't break immediate_echo (bug#15332).

diff --git a/src/data.c b/src/data.c
index 7f28028f60417ef83b91514fbff4f146be186594..51b0266eca15a021dbcc3b26f8d492427344127f 100644 (file)
--- a/src/data.c
+++ b/src/data.c
@@ -2321,21 +2321,24 @@ arithcompare_driver (ptrdiff_t nargs, Lisp_Object *args,
 }
 
 DEFUN ("=", Feqlsign, Seqlsign, 1, MANY, 0,
-       doc: /* Return t if args, all numbers or markers, are equal.  */)
+       doc: /* Return t if args, all numbers or markers, are equal.
+usage: (= NUMBER-OR-MARKER &rest NUMBERS-OR-MARKERS)  */)
   (ptrdiff_t nargs, Lisp_Object *args)
 {
   return arithcompare_driver (nargs, args, ARITH_EQUAL);
 }
 
 DEFUN ("<", Flss, Slss, 1, MANY, 0,
-       doc: /* Return t if each arg is less than the next arg.  All must be numbers or markers.  */)
+       doc: /* Return t if each arg is less than the next arg.  All must be numbers or markers.
+usage: (< NUMBER-OR-MARKER &rest NUMBERS-OR-MARKERS)  */)
   (ptrdiff_t nargs, Lisp_Object *args)
 {
   return arithcompare_driver (nargs, args, ARITH_LESS);
 }
 
 DEFUN (">", Fgtr, Sgtr, 1, MANY, 0,
-       doc: /* Return t if each arg is greater than the next arg.  All must be numbers or markers.  */)
+       doc: /* Return t if each arg is greater than the next arg.  All must be numbers or markers.
+usage: (> NUMBER-OR-MARKER &rest NUMBERS-OR-MARKERS)  */)
   (ptrdiff_t nargs, Lisp_Object *args)
 {
   return arithcompare_driver (nargs, args, ARITH_GRTR);
@@ -2343,7 +2346,8 @@ DEFUN (">", Fgtr, Sgtr, 1, MANY, 0,
 
 DEFUN ("<=", Fleq, Sleq, 1, MANY, 0,
        doc: /* Return t if each arg is less than or equal to the next arg.
-All must be numbers or markers.  */)
+All must be numbers or markers.
+usage: (<= NUMBER-OR-MARKER &rest NUMBERS-OR-MARKERS)  */)
   (ptrdiff_t nargs, Lisp_Object *args)
 {
   return arithcompare_driver (nargs, args, ARITH_LESS_OR_EQUAL);
@@ -2351,7 +2355,8 @@ All must be numbers or markers.  */)
 
 DEFUN (">=", Fgeq, Sgeq, 1, MANY, 0,
        doc: /* Return t if each arg is greater than or equal to the next arg.
-All must be numbers or markers.  */)
+All must be numbers or markers.
+usage: (= NUMBER-OR-MARKER &rest NUMBERS-OR-MARKERS)  */)
   (ptrdiff_t nargs, Lisp_Object *args)
 {
   return arithcompare_driver (nargs, args, ARITH_GRTR_OR_EQUAL);