[Emacs-diffs] trunk r114203: Fix last change.

[Dmitry Antipov]

------------------------------------------------------------
revno: 114203
revision-id: address@hidden
parent: address@hidden
committer: Dmitry Antipov <address@hidden>
branch nick: trunk
timestamp: Wed 2013-09-11 11:20:20 +0400
message:
  Fix last change.
  * data.c (Feqlsign, Flss, Fgtr, Fleq, Fgeq): Add convenient
  'usage' docstring entry to pacify make-docfile.
modified:
  src/ChangeLog                  changelog-20091113204419-o5vbwnq5f7feedwu-1438
  src/data.c                     data.c-20091113204419-o5vbwnq5f7feedwu-251

=== modified file 'src/ChangeLog'
--- a/src/ChangeLog     2013-09-11 02:41:00 +0000
+++ b/src/ChangeLog     2013-09-11 07:20:20 +0000
@@ -1,3 +1,18 @@
+2013-09-11  Dmitry Antipov  <address@hidden>
+
+       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  <address@hidden>
+
+       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  <address@hidden>
 
        * keyboard.c (read_char): Don't break immediate_echo (bug#15332).

=== modified file 'src/data.c'
--- a/src/data.c        2013-09-11 05:03:23 +0000
+++ b/src/data.c        2013-09-11 07:20:20 +0000
@@ -2321,21 +2321,24 @@
 }
 
 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 ("<=", 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 @@
 
 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);