Mercurial > hg > xemacs-beta
diff src/console-msw.c @ 280:7df0dd720c89 r21-0b38
Import from CVS: tag r21-0b38
author | cvs |
---|---|
date | Mon, 13 Aug 2007 10:32:22 +0200 |
parents | c5d627a313b1 |
children | 064ab7fed2e0 |
line wrap: on
line diff
--- a/src/console-msw.c Mon Aug 13 10:31:30 2007 +0200 +++ b/src/console-msw.c Mon Aug 13 10:32:22 2007 +0200 @@ -104,26 +104,11 @@ return (CONSP (obj)) ? XCONS (obj) : NULL; } -Lisp_Object DCAR(Lisp_Object obj) -{ - return (CONSP (obj)) ? XCAR (obj) : 0; -} - -Lisp_Object DCDR(Lisp_Object obj) -{ - return (CONSP (obj)) ? XCDR (obj) : 0; -} - struct Lisp_Cons *DCONSCDR(Lisp_Object obj) { return ((CONSP (obj)) && (CONSP (XCDR (obj)))) ? XCONS (XCDR (obj)) : 0; } -Lisp_Object DCARCDR(Lisp_Object obj) -{ - return ((CONSP (obj)) && (CONSP (XCDR (obj)))) ? XCAR (XCDR (obj)) : 0; -} - char *DSTRING(Lisp_Object obj) { return (STRINGP (obj)) ? XSTRING_DATA (obj) : NULL;