GNU bug report logs - #20522
25.0.50; `C-u C-x =' output, `to input' field

Previous Next

Full log

View this message in rfc822 format

From: Eli Zaretskii <eliz <at> gnu.org>
To: Ivan Shmakov <ivan <at> siamics.net>
Cc: 20522 <at> debbugs.gnu.org
Subject: bug#20522: 25.0.50; ‘C-u C-x =’ output,	‘to input’ field
Date: Thu, 07 May 2015 18:37:41 +0300

> From: Ivan Shmakov <ivan <at> 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.

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.