Mercurial > hg > xemacs-beta

comparison src/console.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 78f53ef88e17
comparison
equal deleted inserted replaced
194:2947057885e5 195:a2f645c6b9f8
386 CONSOLE_LOOP (concons) 386 CONSOLE_LOOP (concons)
387 { 387 {
388 Lisp_Object console = XCAR (concons); 388 Lisp_Object console = XCAR (concons);
389 389
390 if (EQ (CONMETH_TYPE (meths), CONSOLE_TYPE (XCONSOLE (console))) 390 if (EQ (CONMETH_TYPE (meths), CONSOLE_TYPE (XCONSOLE (console)))
391 && !NILP (Fequal (CONSOLE_CANON_CONNECTION (XCONSOLE (console)), 391 && internal_equal (CONSOLE_CANON_CONNECTION (XCONSOLE (console)),
392 canon))) 392 canon, 0))
393 return console; 393 return console;
394 } 394 }
395 395
396 return Qnil; 396 return Qnil;
397 } 397 }