diff options
Diffstat (limited to 'src/keymap.c')
| -rw-r--r-- | src/keymap.c | 17 |
1 files changed, 10 insertions, 7 deletions
diff --git a/src/keymap.c b/src/keymap.c index c8cc933e782..ec483c7a632 100644 --- a/src/keymap.c +++ b/src/keymap.c | |||
| @@ -2205,10 +2205,12 @@ push_key_description (EMACS_INT ch, char *p) | |||
| 2205 | 2205 | ||
| 2206 | DEFUN ("single-key-description", Fsingle_key_description, | 2206 | DEFUN ("single-key-description", Fsingle_key_description, |
| 2207 | Ssingle_key_description, 1, 2, 0, | 2207 | Ssingle_key_description, 1, 2, 0, |
| 2208 | doc: /* Return a pretty description of command character KEY. | 2208 | doc: /* Return a pretty description of a character event KEY. |
| 2209 | Control characters turn into C-whatever, etc. | 2209 | Control characters turn into C-whatever, etc. |
| 2210 | Optional argument NO-ANGLES non-nil means don't put angle brackets | 2210 | Optional argument NO-ANGLES non-nil means don't put angle brackets |
| 2211 | around function keys and event symbols. */) | 2211 | around function keys and event symbols. |
| 2212 | |||
| 2213 | See `text-char-description' for describing character codes. */) | ||
| 2212 | (Lisp_Object key, Lisp_Object no_angles) | 2214 | (Lisp_Object key, Lisp_Object no_angles) |
| 2213 | { | 2215 | { |
| 2214 | USE_SAFE_ALLOCA; | 2216 | USE_SAFE_ALLOCA; |
| @@ -2282,11 +2284,12 @@ push_text_char_description (register unsigned int c, register char *p) | |||
| 2282 | /* This function cannot GC. */ | 2284 | /* This function cannot GC. */ |
| 2283 | 2285 | ||
| 2284 | DEFUN ("text-char-description", Ftext_char_description, Stext_char_description, 1, 1, 0, | 2286 | DEFUN ("text-char-description", Ftext_char_description, Stext_char_description, 1, 1, 0, |
| 2285 | doc: /* Return a pretty description of file-character CHARACTER. | 2287 | doc: /* Return the description of CHARACTER in standard Emacs notation. |
| 2286 | Control characters turn into "^char", etc. This differs from | 2288 | CHARACTER must be a valid character code that passes the `characterp' test. |
| 2287 | `single-key-description' which turns them into "C-char". | 2289 | Control characters turn into "^char", the 2**7 bit is treated as Meta, etc. |
| 2288 | Also, this function recognizes the 2**7 bit as the Meta character, | 2290 | This differs from `single-key-description' which accepts character events, |
| 2289 | whereas `single-key-description' uses the 2**27 bit for Meta. | 2291 | and thus doesn't enforce the `characterp' condition, turns control |
| 2292 | characters into "C-char", and uses the 2**27 bit for Meta. | ||
| 2290 | See Info node `(elisp)Describing Characters' for examples. */) | 2293 | See Info node `(elisp)Describing Characters' for examples. */) |
| 2291 | (Lisp_Object character) | 2294 | (Lisp_Object character) |
| 2292 | { | 2295 | { |