fix typo in ChangeLog (2015-02-03) (2015-02-02)

[tamago-tsunagi/tamago-tsunagi.git] / its.el

diff --git a/its.el b/its.el
index 04e2940..b4a7a81 100644 (file)
--- a/its.el
+++ b/its.el
@@ -5,8 +5,6 @@
 ;; Author: NIIBE Yutaka <gniibe@chroot.org>
 ;;         KATAYAMA Yoshio <kate@pfu.co.jp>
 
-;; Maintainer: TOMURA Satoru <tomura@etl.go.jp>
-
 ;; Keywords: mule, multilingual, input method
 
 ;; This file is part of EGG.
@@ -23,8 +21,8 @@
 
 ;; You should have received a copy of the GNU General Public License
 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc.,
+;; 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
 
 ;;; Commentary:
 
@@ -37,7 +35,7 @@
 (require 'egg-edep)
 
 (defgroup its nil
-  "Input Translation System of Tamago 4."
+  "Input Translation System of Tamago-tsunagi."
   :group 'egg)
 
 (defcustom its-enable-fullwidth-alphabet t
@@ -397,7 +395,7 @@ This variable override `its-delete-by-keystroke'."
 (defun its-self-insert-char ()
   (interactive)
   (let ((inhibit-read-only t)
-       (key last-command-char)
+       (key last-command-event)
        (cursor (get-text-property (point) 'its-cursor))
        (syl (get-text-property (1- (point)) 'its-syl)))
     (cond
@@ -1264,7 +1262,7 @@ Return last state."
   (interactive "P")
   (let ((syl (and (null (get-text-property (point) 'its-cursor))
                  (get-text-property (1- (point)) 'its-syl))))
-    (if (its-keyseq-acceptable-p (vector last-command-char) syl)
+    (if (its-keyseq-acceptable-p (vector last-command-event) syl)
        (its-self-insert-char)
       (its-kick-convert-region n))))
 
@@ -1554,7 +1552,8 @@ Return last state."
   (with-output-to-temp-buffer "*Help*"
     (princ "ITS mode:\n")
     (princ (documentation 'its-mode))
-    (help-setup-xref (cons #'help-xref-mode (current-buffer)) (interactive-p))))
+    (help-setup-xref (cons #'help-xref-mode (current-buffer))
+      (called-interactively-p 'interactive))))
 
 ;; The `point-left' hook function will never be called in Emacs 21.2.50
 ;; when the command `next-line' is used in the last line of a buffer