Mercurial > emacs

comparison src/eval.c @ 81952:fa3696133289

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(For, Fand): Doc fixes. Reported by Johan Bockgrd.
author Juanma Barranquero <lekktu@gmail.com>
date Wed, 18 Jul 2007 11:48:47 +0000
parents f533b796856e
children 298a134523a5
comparison
equal deleted inserted replaced
81951:7aa1fc9d679a 81952:fa3696133289
328 328
329 DEFUN ("or", For, Sor, 0, UNEVALLED, 0, 329 DEFUN ("or", For, Sor, 0, UNEVALLED, 0,
330 doc: /* Eval args until one of them yields non-nil, then return that value. 330 doc: /* Eval args until one of them yields non-nil, then return that value.
331 The remaining args are not evalled at all. 331 The remaining args are not evalled at all.
332 If all args return nil, return nil. 332 If all args return nil, return nil.
333 usage: (or CONDITIONS ...) */) 333 usage: (or CONDITIONS...) */)
334 (args) 334 (args)
335 Lisp_Object args; 335 Lisp_Object args;
336 { 336 {
337 register Lisp_Object val = Qnil; 337 register Lisp_Object val = Qnil;
338 struct gcpro gcpro1; 338 struct gcpro gcpro1;
353 353
354 DEFUN ("and", Fand, Sand, 0, UNEVALLED, 0, 354 DEFUN ("and", Fand, Sand, 0, UNEVALLED, 0,
355 doc: /* Eval args until one of them yields nil, then return nil. 355 doc: /* Eval args until one of them yields nil, then return nil.
356 The remaining args are not evalled at all. 356 The remaining args are not evalled at all.
357 If no arg yields nil, return the last arg's value. 357 If no arg yields nil, return the last arg's value.
358 usage: (and CONDITIONS ...) */) 358 usage: (and CONDITIONS...) */)
359 (args) 359 (args)
360 Lisp_Object args; 360 Lisp_Object args;
361 { 361 {
362 register Lisp_Object val = Qt; 362 register Lisp_Object val = Qt;
363 struct gcpro gcpro1; 363 struct gcpro gcpro1;