[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#20522: 25.0.50; ‘C-u C-x =’ output, ‘to input’ field
From: |
Eli Zaretskii |
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@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.