Commit 53482f41 authored by Dmitry Antipov's avatar Dmitry Antipov
Browse files

Fix last change.

* data.c (Feqlsign, Flss, Fgtr, Fleq, Fgeq): Add convenient
'usage' docstring entry to pacify make-docfile.
parent 2a08047a
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).
......
......@@ -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);
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment