Index: ./src/eval.c
===================================================================
RCS file: /cvsroot/vim/vim7/src/eval.c,v
retrieving revision 1.198
diff -r1.198 eval.c
613a614
> static void f_set __ARGS((typval_T *argvars, typval_T *rettv));
7161a7163
>     {"set",		2, 3, f_set},
9643c9645
<  * "get()" function
---
>  * A helper function for f_get/f_set to extract the dict or list index as a reference.
9645,9646c9647,9648
<     static void
< f_get(argvars, rettv)
---
>     static typval_T *
> get_idx_ref(argvars, rettv)
9677a9680,9691
>     return tv;
> }
> 
> /*
>  * "get()" function
>  */
>     static void
> f_get(argvars, rettv)
>     typval_T	*argvars;
>     typval_T	*rettv;
> {
>     typval_T	*tv = get_idx_ref(argvars, rettv);
9689a9704,9725
> /*
>  * "set()" function
>  */
>     static void
> f_set(argvars, rettv)
>     typval_T	*argvars;
>     typval_T	*rettv;
> {
>     typval_T	*tv = get_idx_ref(argvars, rettv);
> 
>     if (tv == NULL)
>     {
>         EMSG2(_(e_dictkey), get_tv_string(&argvars[1]));
>     }
>     else
>     {
> 	copy_tv(&argvars[2], tv);
>         if (rettv != NULL)
>             copy_tv(&argvars[2], rettv);
>     }
> }
> 
׮��w�_5�]z׾{�^