Mercurial > hg > xemacs-beta

comparison src/minibuf.c @ 32:e04119814345 r19-15b99

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b99
author cvs
date Mon, 13 Aug 2007 08:52:56 +0200
parents 859a2309aef8
children 8d2a9b52c682
comparison
equal deleted inserted replaced
31:b9328a10c56c 32:e04119814345
230 regexps = XCDR (regexps)) 230 regexps = XCDR (regexps))
231 { 231 {
232 Lisp_Object re = XCAR (regexps); 232 Lisp_Object re = XCAR (regexps);
233 if (STRINGP (re) 233 if (STRINGP (re)
234 && (fast_string_match (re, nonreloc, reloc, offset, 234 && (fast_string_match (re, nonreloc, reloc, offset,
235 length, 0, ERROR_ME, 0) >= 0)) 235 length, 0, ERROR_ME, 0) < 0))
236 return (1); 236 return (1);
237 } 237 }
238 } 238 }
239 return (0); 239 return (0);
240 } 240 }
893 DEFVAR_BOOL ("completion-ignore-case", &completion_ignore_case /* 893 DEFVAR_BOOL ("completion-ignore-case", &completion_ignore_case /*
894 Non-nil means don't consider case significant in completion. 894 Non-nil means don't consider case significant in completion.
895 */ ); 895 */ );
896 completion_ignore_case = 0; 896 completion_ignore_case = 0;
897 897
898 /* Worthless doc string */
899 DEFVAR_LISP ("completion-regexp-list", &Vcompletion_regexp_list /* 898 DEFVAR_LISP ("completion-regexp-list", &Vcompletion_regexp_list /*
900 List of regexps that should restrict possible completions. 899 List of regexps that should restrict possible completions.
900 Each completion has to match all regexps in this list.
901 */ ); 901 */ );
902 Vcompletion_regexp_list = Qnil; 902 Vcompletion_regexp_list = Qnil;
903 } 903 }
904 904
905 void 905 void