Mercurial > hg > xemacs-beta
diff src/mule-wnnfns.c @ 134:34a5b81f86ba r20-2b1
Import from CVS: tag r20-2b1
author | cvs |
---|---|
date | Mon, 13 Aug 2007 09:30:11 +0200 |
parents | e292c9648bb9 |
children | 59463afc5666 |
line wrap: on
line diff
--- a/src/mule-wnnfns.c Mon Aug 13 09:29:37 2007 +0200 +++ b/src/mule-wnnfns.c Mon Aug 13 09:30:11 2007 +0200 @@ -542,6 +542,7 @@ jl_env_set (wnnfns_buf[snum], wnnfns_env_rev[snum]); wnnfns_norm = 0; } + return Qt; } DEFUN ("wnn-server-henkan-begin", Fwnn_begin_henkan, 1, 1, 0, /* @@ -2057,7 +2058,6 @@ static int yes_or_no (unsigned char *s) { - extern Lisp_Object Fy_or_n_p(); unsigned char mbuf[512]; unsigned char lb; int len; @@ -2073,9 +2073,12 @@ for (; (mbuf[len] != '(') && (len > 0); len--); { Lisp_Object yes, str; + struct gcpro gcpro1; str = make_string (mbuf, len); + GCPRO1 (str); yes = call1(Qyes_or_no_p, str); + UNGCPRO; if (NILP (yes)) return 0; else return (1); } @@ -2084,6 +2087,7 @@ static void puts2 (char *s) { +#if 0 /* jhod: We don't really need this echoed... */ #if 0 Lisp_Object args[1]; char mbuf[512]; @@ -2097,7 +2101,8 @@ Fmessage (1, args); #else message("%s",s); -#endif +#endif +#endif } int