Mercurial > hg > xemacs-beta

comparison src/mule-canna.c @ 410:de805c49cfc1 r21-2-35

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-35
author cvs
date Mon, 13 Aug 2007 11:19:21 +0200
parents 2f8bb876ab1d
children 697ef44129c6
comparison
equal deleted inserted replaced
409:301b9ebbdf3b 410:de805c49cfc1
1 /* CANNA interface 1 /* CANNA interface -*- coding: euc-jp -*-
2 2
3 Copyright (C) 1995 Free Software Foundation, Inc. 3 Copyright (C) 1995 Free Software Foundation, Inc.
4 Copyright (C) 1995 Sun Microsystems, Inc. 4 Copyright (C) 1995 Sun Microsystems, Inc.
5 5
6 This file is part of XEmacs. 6 This file is part of XEmacs.
188 188
189 static int IRCP_context; 189 static int IRCP_context;
190 190
191 static Lisp_Object storeResults (unsigned char *, int, jrKanjiStatus *); 191 static Lisp_Object storeResults (unsigned char *, int, jrKanjiStatus *);
192 static Lisp_Object kanjiYomiList (int, int); 192 static Lisp_Object kanjiYomiList (int, int);
193 static Lisp_Object CANNA_mode_keys (void);
193 194
194 #ifdef CANNA_MULE 195 #ifdef CANNA_MULE
195 static void m2c (unsigned char *, int, unsigned char *); 196 static void m2c (unsigned char *, int, unsigned char *);
196 static Lisp_Object mule_make_string (unsigned char *, int); 197 static Lisp_Object mule_make_string (unsigned char *, int);
197 static int mule_strlen (unsigned char *, int); 198 static int mule_strlen (unsigned char *, int);
324 325
325 return Qnil; 326 return Qnil;
326 } 327 }
327 328
328 /* For whatever reason, calling Fding directly from libCanna loses */ 329 /* For whatever reason, calling Fding directly from libCanna loses */
329 static void call_Fding() 330 static void
330 { 331 call_Fding (void)
331 extern Lisp_Object Fding(); 332 {
332
333 Fding (Qnil, Qnil, Qnil); 333 Fding (Qnil, Qnil, Qnil);
334 } 334 }
335 335
336 DEFUN ("canna-initialize", Fcanna_initialize, 0, 3, 0, /* 336 DEFUN ("canna-initialize", Fcanna_initialize, 0, 3, 0, /*
337 Initialize ``canna'', which is a kana-to-kanji converter for GNU Emacs. 337 Initialize ``canna'', which is a kana-to-kanji converter for GNU Emacs.
419 /* イニシャライズで失敗した場合。 */ 419 /* イニシャライズで失敗した場合。 */
420 return Fcons (Qnil, val); 420 return Fcons (Qnil, val);
421 } 421 }
422 else 422 else
423 { 423 {
424 extern void (*jrBeepFunc)(); 424 extern void (*jrBeepFunc) (void);
425 Lisp_Object CANNA_mode_keys ();
426 425
427 jrBeepFunc = call_Fding; 426 jrBeepFunc = call_Fding;
428 427
429 #ifdef KC_SETAPPNAME 428 #ifdef KC_SETAPPNAME
430 #ifndef CANNA_MULE 429 #ifndef CANNA_MULE
533 jrKanjiControl (0, KC_CHANGEMODE, (char *)&ksv); 532 jrKanjiControl (0, KC_CHANGEMODE, (char *)&ksv);
534 val = storeResults (buf, ksv.val, ksv.ks); 533 val = storeResults (buf, ksv.val, ksv.ks);
535 return val; 534 return val;
536 } 535 }
537 536
538 Lisp_Object 537 static Lisp_Object
539 CANNA_mode_keys (void) 538 CANNA_mode_keys (void)
540 { 539 {
541 #define CANNAWORKBUFSIZE 32 540 #define CANNAWORKBUFSIZE 32
542 char xxx[CANNAWORKBUFSIZE]; 541 char xxx[CANNAWORKBUFSIZE];
543 Lisp_Object val; 542 Lisp_Object val;