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

Import from CVS: tag r20-3b24
author cvs
date Mon, 13 Aug 2007 09:59:05 +0200
parents 3d6bfa290dbd
children 78f53ef88e17
line wrap: on
line diff
--- a/src/console.c	Mon Aug 13 09:58:32 2007 +0200
+++ b/src/console.c	Mon Aug 13 09:59:05 2007 +0200
@@ -388,8 +388,8 @@
       Lisp_Object console = XCAR (concons);
 
       if (EQ (CONMETH_TYPE (meths), CONSOLE_TYPE (XCONSOLE (console)))
-	  && !NILP (Fequal (CONSOLE_CANON_CONNECTION (XCONSOLE (console)),
-			    canon)))
+	  && internal_equal (CONSOLE_CANON_CONNECTION (XCONSOLE (console)),
+			     canon, 0))
 	return console;
     }