bug#20522: 25.0.50; ‘C-u C-x =’ output, ‘to input’ field

[Eli Zaretskii <eliz@gnu.org>]

> From: Ivan Shmakov <ivan@siamics.net>
> Date: Thu, 07 May 2015 15:15:32 +0000
> 
> 	Please consider the revised patch MIMEd.
> 
> 	* lisp/descr-text.el (describe-char): Show the exact C-x 8 RET
> 	invocation instead of a template.  (Bug#20522)
> 
> 	It was also requested in bug#20499 that a specific C-x 8
> 	(iso-transl) sequence is shown.  Yet I believe that deserves a
> 	separate patch.
> 
> -- 
> FSF associate member #7257  http://am-1.org/~ivan/      … 3013 B6A0 230E 334A
> 
> [2:text/diff Hide]
> 
> --- a/lisp/descr-text.el
> +++ b/lisp/descr-text.el
> @@ -618,7 +618,14 @@ defun describe-char (pos &optional buffer)
>                                     'help-args '(,current-input-method))
>  				 "input method")
>  			 (list
> -			  "type \"C-x 8 RET HEX-CODEPOINT\" or \"C-x 8 RET NAME\"")))))
> +                          (let ((name
> +                                 (or (get-char-code-property char 'name)
> +                                     (get-char-code-property char 'old-name))))
> +                            (if name
> +                                (format
> +                                 "type \"C-x 8 RET %x\" or \"C-x 8 RET %s\""
> +                                 char name)
> +                              (format "type \"C-x 8 RET %x\"" char))))))))
>                ("buffer code"
>                 ,(if multibyte-p
>                      (encoded-string-description

LGTM, thanks.