Mercurial > hg > xemacs-beta

comparison src/specifier.c @ 4828:f31c12360354

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix warnings
author Ben Wing <ben@xemacs.org>
date Sun, 27 Dec 2009 20:16:19 -0600
parents 11357f7846bf
children d35e231d347d
comparison
equal deleted inserted replaced
4827:11daf37dae4d 4828:f31c12360354
980 980
981 return 1; 981 return 1;
982 } 982 }
983 983
984 static int 984 static int
985 charset_matches_specifier_tag_set_p (Lisp_Object charset, 985 charset_matches_specifier_tag_set_p (Lisp_Object USED_IF_MULE (charset),
986 Lisp_Object tag_set, 986 Lisp_Object tag_set,
987 enum font_specifier_matchspec_stages 987 enum font_specifier_matchspec_stages
988 stage) 988 stage)
989 { 989 {
990 Lisp_Object rest; 990 Lisp_Object rest;
2828 redisplay we need to make sure that quits are ignored. Otherwise 2828 redisplay we need to make sure that quits are ignored. Otherwise
2829 Fsignal will abort. */ 2829 Fsignal will abort. */
2830 specbind (Qinhibit_quit, Qt); 2830 specbind (Qinhibit_quit, Qt);
2831 2831
2832 #ifdef MULE 2832 #ifdef MULE
2833 /* #### FIXME Does this font-specific stuff need to be here and not in
2834 the font-specifier-specific code? --ben */
2833 if (CONSP(matchspec) && (CHARSETP(Ffind_charset(XCAR(matchspec))))) 2835 if (CONSP(matchspec) && (CHARSETP(Ffind_charset(XCAR(matchspec)))))
2834 { 2836 {
2835 charset = Ffind_charset(XCAR(matchspec)); 2837 charset = Ffind_charset(XCAR(matchspec));
2836 2838
2837 #ifdef DEBUG_XEMACS 2839 #ifdef DEBUG_XEMACS