Mercurial > hg > xemacs-beta

comparison src/minibuf.c @ 448:3078fd1074e8 r21-2-39

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-39
author cvs
date Mon, 13 Aug 2007 11:38:25 +0200
parents 576fb035e263
children 183866b06e0b
comparison
equal deleted inserted replaced
447:4fc5f13f3bd3 448:3078fd1074e8
616 616
617 /* Is this element a possible completion? */ 617 /* Is this element a possible completion? */
618 618
619 if (STRINGP (eltstring) 619 if (STRINGP (eltstring)
620 && (slength <= XSTRING_CHAR_LENGTH (eltstring)) 620 && (slength <= XSTRING_CHAR_LENGTH (eltstring))
621 && (0 > scmp (XSTRING_DATA (eltstring), 621 /* Reject alternatives that start with space
622 unless the input starts with space. */
623 && ((XSTRING_CHAR_LENGTH (string) > 0 &&
624 string_char (XSTRING (string), 0) == ' ')
625 || string_char (XSTRING (eltstring), 0) != ' ')
626 && (0 > scmp (XSTRING_DATA (eltstring),
622 XSTRING_DATA (string), 627 XSTRING_DATA (string),
623 slength))) 628 slength)))
624 { 629 {
625 /* Yes. Now check whether predicate likes it. */ 630 /* Yes. Now check whether predicate likes it. */
626 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4; 631 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4;