bug#49316: Add apply-partially's right version

[Eli Zaretskii]

> Cc: contovob@tcd.ie, Eli Zaretskii <eliz@gnu.org>
> From: daanturo <daanturo@gmail.com>
> Date: Fri, 2 Jul 2021 09:49:19 +0700
> 
> I have replaced the examples:
> 
> 
>            (defalias '**2 (apply-rpartially #'expt 2)
>              "Return argument ** 2.")
>            (defalias '2** (apply-partially #'expt 2)
>              "Return 2 ** argument.")
>            (**2 3)
>                 => 9
>            (2** 3)
>                 => 8

Thanks, the patch LGTM.