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
1d969a23
Commit
1d969a23
authored
Apr 02, 1998
by
Richard M. Stallman
Browse files
(char_table_translate): New function.
parent
17030183
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
17 additions
and
0 deletions
+17
-0
src/fns.c
src/fns.c
+17
-0
No files found.
src/fns.c
View file @
1d969a23
...
...
@@ -1875,6 +1875,23 @@ See also the documentation of make-char.")
XCHAR_TABLE
(
char_table
)
->
contents
[
code1
]
=
value
;
return
value
;
}
/* Look up the element in TABLE at index CH,
and return it as an integer.
If the element is nil, return CH itself.
(Actually we do that for any non-integer.) */
int
char_table_translate
(
table
,
ch
)
Lisp_Object
table
;
int
ch
;
{
Lisp_Object
value
;
value
=
Faref
(
table
,
make_number
(
ch
));
if
(
!
INTEGERP
(
value
))
return
ch
;
return
XINT
(
value
);
}
/* Map C_FUNCTION or FUNCTION over SUBTABLE, calling it for each
character or group of characters that share a value.
...
...
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