Mercurial > hg > xemacs-beta

comparison src/gui-x.c @ 371:cc15677e0335 r21-2b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2b1
author cvs
date Mon, 13 Aug 2007 11:03:08 +0200
parents 58bac07dfa74
children 6240c7796c7a
comparison
equal deleted inserted replaced
370:bd866891f083 371:cc15677e0335
322 while (*name) { 322 while (*name) {
323 if (*name=='%') { 323 if (*name=='%') {
324 ++name; 324 ++name;
325 if (!(*name)) 325 if (!(*name))
326 return Qnil; 326 return Qnil;
327 if (*name=='_' && *(name+1)) 327 if (*name=='_'&&*(name+1))
328 { 328 return make_char (tolower(*(name+1)));
329 int accelerator = (int) (unsigned char) (*(name+1));
330 return make_char (tolower (accelerator));
331 }
332 } 329 }
333 ++name; 330 ++name;
334 } 331 }
335 return Qnil; 332 return Qnil;
336 } 333 }
399 signal_simple_error_2 ("not a keyword", key, desc); 396 signal_simple_error_2 ("not a keyword", key, desc);
400 397
401 if (EQ (key, Q_active)) active_p = val; 398 if (EQ (key, Q_active)) active_p = val;
402 else if (EQ (key, Q_suffix)) suffix = val; 399 else if (EQ (key, Q_suffix)) suffix = val;
403 else if (EQ (key, Q_keys)) keys = val; 400 else if (EQ (key, Q_keys)) keys = val;
404 else if (EQ (key, Q_key_sequence)) ; /* ignored for FSF compat */
405 else if (EQ (key, Q_label)) ; /* implement for 21.0 */
406 else if (EQ (key, Q_style)) style = val; 401 else if (EQ (key, Q_style)) style = val;
407 else if (EQ (key, Q_selected)) selected_p = val, selected_spec = 1; 402 else if (EQ (key, Q_selected)) selected_p = val, selected_spec = 1;
408 else if (EQ (key, Q_included)) include_p = val, included_spec = 1; 403 else if (EQ (key, Q_included)) include_p = val, included_spec = 1;
409 else if (EQ (key, Q_config)) config_tag = val; 404 else if (EQ (key, Q_config)) config_tag = val;
410 else if (EQ (key, Q_accelerator)) 405 else if (EQ (key, Q_accelerator))