From: handa <handa>
Date: Wed, 4 Apr 2007 12:53:46 +0000 (+0000)
Subject: (minput_get_command, minput_config_command): Fix example
X-Git-Tag: FLT-base~90
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b217a56d503fabd33f17d8766c1a203bd92f1664;p=m17n%2Fm17n-lib.git

(minput_get_command, minput_config_command): Fix example
codes.
---

diff --git a/src/input.c b/src/input.c
index b48ef30..30a9ad8 100644
--- a/src/input.c
+++ b/src/input.c
@@ -4868,8 +4868,8 @@ get_im_command_description (MSymbol language, MSymbol name, MSymbol command)
 
   if (! cmds)
     return NULL;
-  plist = mplist_value (cmds);	/* (NAME DESCRIPTION KEY-SEQ ...) */
-  plist = mplist_next (plist);	/* (DESCRIPTION KEY-SEQ ...) */
+  plist = mplist_value (cmds);	/* (NAME DESCRIPTION STATUS KEY-SEQ ...) */
+  plist = mplist_next (plist);	/* (DESCRIPTION STATUS KEY-SEQ ...) */
   return  (mplist_key (plist) == Mtext
 	   ? (MText *) mplist_value (plist)
 	   : NULL);
@@ -4981,18 +4981,17 @@ minput_get_command (MSymbol language, MSymbol name, MSymbol command)
   MPlist *cmd, *plist, *key_seq_list, *key_seq;
 
   /* At first get the current key-sequence assignment.  */
-  cmd = mplist_get_command (Mt, unicode, start_command);
+  cmd = minput_get_command (Mt, unicode, start_command);
   if (! cmd)
     {
       /* The input method does not have the command "start".  Here
 	 should come some error handling code.  */
     }
-  /* Now CMD == ((start DESCRIPTION KEY-SEQUENCE ...) ...).  Extract
-     the part (KEY-SEQUENCE ...).  */
-  plist = mplist_next (mplist_next (mplist_value (cmd)));
+  /* Now CMD == ((start DESCRIPTION STATUS KEY-SEQUENCE ...) ...).
+     Extract the part (KEY-SEQUENCE ...).  */
+  plist = mplist_next (mplist_next (mplist_next (mplist_value (cmd))));
   /* Copy it because we should not modify it directly.  */
   key_seq_list = mplist_copy (plist);
-  m17n_object_unref (cmds);
   
   key_seq = mplist ();
   mplist_add (key_seq, Msymbol, msymbol ("C-x"));