Mercurial > hg > xemacs-beta

comparison lisp/mule/canna.el @ 163:0132846995bd r20-3b8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b8
author cvs
date Mon, 13 Aug 2007 09:43:35 +0200
parents 6608ceec7cf8
children e45d5e7c476e
comparison
equal deleted inserted replaced
162:4de2936b4e77 163:0132846995bd
3 ;; Copyright (C) 1994 Akira Kon, NEC Corporation. 3 ;; Copyright (C) 1994 Akira Kon, NEC Corporation.
4 ;; Copyright (C) 1996,1997 MORIOKA Tomohiko 4 ;; Copyright (C) 1996,1997 MORIOKA Tomohiko
5 5
6 ;; Author: Akira Kon <kon@d1.bs2.mt.nec.co.jp> 6 ;; Author: Akira Kon <kon@d1.bs2.mt.nec.co.jp>
7 ;; MORIOKA Tomohiko <morioka@jaist.ac.jp> 7 ;; MORIOKA Tomohiko <morioka@jaist.ac.jp>
8 ;; Version: $Revision: 1.6 $ 8 ;; Version: $Revision: 1.7 $
9 ;; Keywords: Canna, Japanese, input method, mule, multilingual 9 ;; Keywords: Canna, Japanese, input method, mule, multilingual
10 10
11 ;; This file is not a part of Emacs yet. 11 ;; This file is not a part of Emacs yet.
12 12
13 ;; This program is free software; you can redistribute it and/or 13 ;; This program is free software; you can redistribute it and/or
38 38
39 ;; -*-mode: emacs-lisp-*- 39 ;; -*-mode: emacs-lisp-*-
40 40
41 ;; by $B<i2,(B $BCNI'(B <morioka@jaist.ac.jp> 1996/11/11 41 ;; by $B<i2,(B $BCNI'(B <morioka@jaist.ac.jp> 1996/11/11
42 (or (boundp 'CANNA) 42 (or (boundp 'CANNA)
43 (not (fboundp 'dynamic-link))
43 (let ((handle (dynamic-link (expand-file-name "canna.so" exec-directory)))) 44 (let ((handle (dynamic-link (expand-file-name "canna.so" exec-directory))))
44 (dynamic-call "emacs_canna_init" handle)) 45 (dynamic-call "emacs_canna_init" handle))
45 ) 46 )
46 47
47 (defvar self-insert-after-hook nil) 48 (defvar self-insert-after-hook nil)
48 ;; (defalias 'self-insert-internal 'self-insert-command) 49 ;; (defalias 'self-insert-internal 'self-insert-command)
49 ;; end 50 ;; end
50 51
51 (defconst canna-rcs-version 52 (defconst canna-rcs-version
52 "$Id: canna.el,v 1.6 1997/04/27 19:30:30 steve Exp $") 53 "$Id: canna.el,v 1.7 1997/06/21 20:02:46 steve Exp $")
53 54
54 (defun canna-version () 55 (defun canna-version ()
55 "Display version of canna.el in mini-buffer." 56 "Display version of canna.el in mini-buffer."
56 (interactive) 57 (interactive)
57 (message (concat 58 (message (concat