Mercurial > hg > xemacs-beta

comparison src/console-stream.c @ 195:a2f645c6b9f8 r20-3b24

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b24
author cvs
date Mon, 13 Aug 2007 09:59:05 +0200
parents 3d6bfa290dbd
children e45d5e7c476e
comparison
equal deleted inserted replaced
194:2947057885e5 195:a2f645c6b9f8
56 Lisp_Object tty = CONSOLE_CONNECTION (con); 56 Lisp_Object tty = CONSOLE_CONNECTION (con);
57 FILE *infd, *outfd, *errfd; 57 FILE *infd, *outfd, *errfd;
58 58
59 /* Open the specified console */ 59 /* Open the specified console */
60 60
61 if (NILP (tty) || !NILP (Fequal (tty, Vstdio_str))) 61 if (NILP (tty) || internal_equal (tty, Vstdio_str, 0))
62 { 62 {
63 infd = stdin; 63 infd = stdin;
64 outfd = stdout; 64 outfd = stdout;
65 errfd = stderr; 65 errfd = stderr;
66 } 66 }
132 132
133 Lisp_Object 133 Lisp_Object
134 stream_canonicalize_console_connection (Lisp_Object connection, 134 stream_canonicalize_console_connection (Lisp_Object connection,
135 Error_behavior errb) 135 Error_behavior errb)
136 { 136 {
137 if (NILP (connection) || !NILP (Fequal (connection, Vstdio_str))) 137 if (NILP (connection) || internal_equal (connection, Vstdio_str, 0))
138 return Vstdio_str; 138 return Vstdio_str;
139 139
140 if (!ERRB_EQ (errb, ERROR_ME)) 140 if (!ERRB_EQ (errb, ERROR_ME))
141 { 141 {
142 if (!STRINGP (connection)) 142 if (!STRINGP (connection))