Mercurial > hg > xemacs-beta

comparison src/mule.c @ 272:c5d627a313b1 r21-0b34

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b34
author cvs
date Mon, 13 Aug 2007 10:28:48 +0200
parents 3d6bfa290dbd
children 74fd4e045ea6
comparison
equal deleted inserted replaced
271:c7b7086b0a39 272:c5d627a313b1
46 len = XINT (Flength (pattern)); 46 len = XINT (Flength (pattern));
47 if (len > MAXWORDBUF) 47 if (len > MAXWORDBUF)
48 error ("Too complicated regular expression for word!"); 48 error ("Too complicated regular expression for word!");
49 for (i = 0; i < len; i++) 49 for (i = 0; i < len; i++)
50 { 50 {
51 temp =XCONS (pattern)->car; 51 temp = XCAR (pattern);
52 CHECK_VECTOR (temp); 52 CHECK_VECTOR (temp);
53 CHECK_STRING (XVECTOR_DATA (temp)[0]); 53 CHECK_STRING (XVECTOR_DATA (temp)[0]);
54 s = XSTRING (XVECTOR_DATA (temp)[0]); 54 s = XSTRING (XVECTOR_DATA (temp)[0]);
55 if (!wordbuf[i]) 55 if (!wordbuf[i])
56 wordbuf[i] = xnew (struct re_pattern_buffer); 56 wordbuf[i] = xnew (struct re_pattern_buffer);
78 wordbuf[i]->newline_anchor = 1; 78 wordbuf[i]->newline_anchor = 1;
79 79
80 wordbuf[i]->syntax = 0; 80 wordbuf[i]->syntax = 0;
81 wordbuf[i]->not_bol = wordbuf[i]->not_eol = 0; 81 wordbuf[i]->not_bol = wordbuf[i]->not_eol = 0;
82 #endif /* EMACS19_REGEXP */ 82 #endif /* EMACS19_REGEXP */
83 pattern = XCONS (pattern)->cdr; 83 pattern = XCDR (pattern);
84 } 84 }
85 for (; i < MAXWORDBUF && wordbuf[i]; i++) 85 for (; i < MAXWORDBUF && wordbuf[i]; i++)
86 { 86 {
87 if (wordbuf[i]->buffer) xfree (wordbuf[i]->buffer); 87 if (wordbuf[i]->buffer) xfree (wordbuf[i]->buffer);
88 xfree (wordbuf[i]); 88 xfree (wordbuf[i]);