Mercurial > hg > xemacs-beta

comparison src/console-msw.c @ 280:7df0dd720c89 r21-0b38

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b38
author cvs
date Mon, 13 Aug 2007 10:32:22 +0200
parents c5d627a313b1
children 064ab7fed2e0
comparison
equal deleted inserted replaced
279:c20b2fb5bb0a 280:7df0dd720c89
102 struct Lisp_Cons *DCONS(Lisp_Object obj) 102 struct Lisp_Cons *DCONS(Lisp_Object obj)
103 { 103 {
104 return (CONSP (obj)) ? XCONS (obj) : NULL; 104 return (CONSP (obj)) ? XCONS (obj) : NULL;
105 } 105 }
106 106
107 Lisp_Object DCAR(Lisp_Object obj)
108 {
109 return (CONSP (obj)) ? XCAR (obj) : 0;
110 }
111
112 Lisp_Object DCDR(Lisp_Object obj)
113 {
114 return (CONSP (obj)) ? XCDR (obj) : 0;
115 }
116
117 struct Lisp_Cons *DCONSCDR(Lisp_Object obj) 107 struct Lisp_Cons *DCONSCDR(Lisp_Object obj)
118 { 108 {
119 return ((CONSP (obj)) && (CONSP (XCDR (obj)))) ? XCONS (XCDR (obj)) : 0; 109 return ((CONSP (obj)) && (CONSP (XCDR (obj)))) ? XCONS (XCDR (obj)) : 0;
120 }
121
122 Lisp_Object DCARCDR(Lisp_Object obj)
123 {
124 return ((CONSP (obj)) && (CONSP (XCDR (obj)))) ? XCAR (XCDR (obj)) : 0;
125 } 110 }
126 111
127 char *DSTRING(Lisp_Object obj) 112 char *DSTRING(Lisp_Object obj)
128 { 113 {
129 return (STRINGP (obj)) ? XSTRING_DATA (obj) : NULL; 114 return (STRINGP (obj)) ? XSTRING_DATA (obj) : NULL;