Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
173517c6
Commit
173517c6
authored
Sep 25, 2006
by
Kenichi Handa
Browse files
(Fsingle_key_description): Return unique names for
generic characters.
parent
86b1704f
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
17 additions
and
5 deletions
+17
-5
src/ChangeLog
src/ChangeLog
+5
-0
src/keymap.c
src/keymap.c
+12
-5
No files found.
src/ChangeLog
View file @
173517c6
2006-09-25 Kenichi Handa <handa@m17n.org>
* keymap.c (Fsingle_key_description): Return unique names for
generic characters.
2006-09-24 Richard Stallman <rms@gnu.org>
* search.c (compile_pattern_1): Don't BLOCK_INPUT.
...
...
src/keymap.c
View file @
173517c6
...
...
@@ -2386,15 +2386,22 @@ around function keys and event symbols. */)
SPLIT_CHAR
(
without_bits
,
charset
,
c1
,
c2
);
if
(
charset
&&
CHARSET_DEFINED_P
(
charset
)
&&
((
c1
>=
0
&&
c1
<
32
)
||
(
c2
>=
0
&&
c2
<
32
)))
&&
CHAR_VALID_P
(
charset
,
1
)
&&
(
c1
==
0
||
c2
==
0
))
{
/* Handle a generic character. */
Lisp_Object
name
;
name
=
CHARSET_TABLE_INFO
(
charset
,
CHARSET_LONG_NAME_IDX
);
char
buf
[
256
];
name
=
CHARSET_TABLE_INFO
(
charset
,
CHARSET_SHORT_NAME_IDX
);
CHECK_STRING
(
name
);
return
concat2
(
build_string
(
"Character set "
),
name
);
if
(
c1
==
0
)
/* Only a charset is specified. */
sprintf
(
buf
,
"Generic char %d: all of "
,
without_bits
);
else
/* 1st code-point of 2-dimensional charset is specified. */
sprintf
(
buf
,
"Generic char %d: row %d of "
,
without_bits
,
c1
);
return
concat2
(
build_string
(
buf
),
name
);
}
else
{
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment