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 84cec8a..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,32 +1552,31 @@ 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
 ;; which isn't terminated with a newline or the command `previous-line'
 ;; is used in the first line of a buffer.
 (defun its-next-line (&optional arg)
-  "Go to the end of the line if the line isn't terminated with a newline,
-otherwise run `next-line' as usual."
+  "Go to the end of the line if the line isn't terminated with a newline, otherwise run `next-line' as usual."
   (interactive "p")
   (if (= (line-end-position) (point-max))
       (end-of-line)
     (next-line arg)))
 
 (defun its-previous-line (&optional arg)
-  "Go to the beginning of the line if it is called in the first line of a
-buffer, otherwise run `previous-line' as usual."
+  "Go to the beginning of the line if it is called in the first line of a buffer, otherwise run `previous-line' as usual."
   (interactive "p")
   (if (= (line-beginning-position) (point-min))
       (beginning-of-line)
     (previous-line arg)))
 
 (substitute-key-definition 'next-line 'its-next-line
-                          its-mode-map global-map)
+                          its-mode-map global-map)
 (substitute-key-definition 'previous-line 'its-previous-line
-                          its-mode-map global-map)
+                          its-mode-map global-map)
 
 (provide 'its)