(canna-self-insert-string): Use `functionp' instead of `fboundp' for

`canna-self-insert-string-filter' in XEmacs.

diff --git a/canna.el b/canna.el
index 6e57051..16d8d77 100644 (file)
--- a/canna.el
+++ b/canna.el
@@ -7,7 +7,7 @@
 ;; Author: Akira Kon <kon@d1.bs2.mt.nec.co.jp>
 ;;         MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;         Stephen Turnbull <turnbull@sk.tsukuba.ac.jp>
 ;; Author: Akira Kon <kon@d1.bs2.mt.nec.co.jp>
 ;;         MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;         Stephen Turnbull <turnbull@sk.tsukuba.ac.jp>

-;; Version: $Revision: 1.22 $
+;; Version: $Revision: 1.23 $

 ;; Keywords: Canna, Japanese, input method, mule, multilingual
 
 ;; This file is part of Emacs-Canna.
 ;; Keywords: Canna, Japanese, input method, mule, multilingual
 
 ;; This file is part of Emacs-Canna.

@@ -70,7 +70,7 @@
  ((featurep 'xemacs)
   (defvar canna-self-insert-string-filter (function identity))
   (defun canna-self-insert-string (string)
  ((featurep 'xemacs)
   (defvar canna-self-insert-string-filter (function identity))
   (defun canna-self-insert-string (string)

-    (if (fboundp canna-self-insert-string-filter)
+    (if (functionp canna-self-insert-string-filter)

        (setq string (funcall canna-self-insert-string-filter string)))
     (let ((len (length string))
          (i 0)
        (setq string (funcall canna-self-insert-string-filter string)))
     (let ((len (length string))
          (i 0)