Mercurial > emacs
comparison src/data.c @ 8798:e10362de8eba
(Fcdr_safe): Delete extraneous blank in docstring.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Fri, 16 Sep 1994 22:02:54 +0000 |
parents | b6335ce87e16 |
children | f68749766ed1 |
comparison
equal
deleted
inserted
replaced
8797:847ef8253f30 | 8798:e10362de8eba |
---|---|
417 list = wrong_type_argument (Qlistp, list); | 417 list = wrong_type_argument (Qlistp, list); |
418 } | 418 } |
419 } | 419 } |
420 | 420 |
421 DEFUN ("cdr-safe", Fcdr_safe, Scdr_safe, 1, 1, 0, | 421 DEFUN ("cdr-safe", Fcdr_safe, Scdr_safe, 1, 1, 0, |
422 "Return the cdr of OBJECT if it is a cons cell, or else nil.") | 422 "Return the cdr of OBJECT if it is a cons cell, or else nil.") |
423 (object) | 423 (object) |
424 Lisp_Object object; | 424 Lisp_Object object; |
425 { | 425 { |
426 if (XTYPE (object) == Lisp_Cons) | 426 if (XTYPE (object) == Lisp_Cons) |
427 return XCONS (object)->cdr; | 427 return XCONS (object)->cdr; |