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
2cef5737
Commit
2cef5737
authored
Mar 03, 1998
by
Kenichi Handa
Browse files
(DEFAULT_NONASCII_INSERT_OFFSET): Macro definition is
moved to charset.h. (concat): Use unibyte_char_to_multibyte.
parent
93fdf93b
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
3 additions
and
15 deletions
+3
-15
src/fns.c
src/fns.c
+3
-15
No files found.
src/fns.c
View file @
2cef5737
...
...
@@ -40,8 +40,6 @@ Boston, MA 02111-1307, USA. */
#define NULL (void *)0
#endif
#define DEFAULT_NONASCII_INSERT_OFFSET 0x800
/* Nonzero enables use of dialog boxes for questions
asked by mouse commands. */
int use_dialog_box;
...
...
@@ -573,9 +571,9 @@ concat (nargs, args, target_type, last_special)
break;
else if (STRINGP (this))
{
int c;
if (STRING_MULTIBYTE (this))
{
int c;
FETCH_STRING_CHAR_ADVANCE (c, this,
thisindex,
thisindex_byte);
...
...
@@ -583,21 +581,11 @@ concat (nargs, args, target_type, last_special)
}
else
{
unsigned char c;
XSETFASTINT (elt, XSTRING (this)->data[thisindex++]);
if (some_multibyte && XINT (elt) >= 0200
&& XINT (elt) < 0400)
{
c = XINT (elt);
if (! NILP (Vnonascii_translate_table))
c = XINT (Faref (Vnonascii_translate_table,
make_number (c)));
else if (nonascii_insert_offset > 0)
c += nonascii_insert_offset;
else
c += DEFAULT_NONASCII_INSERT_OFFSET;
c = unibyte_char_to_multibyte (XINT (elt));
XSETINT (elt, c);
}
}
...
...
@@ -793,7 +781,7 @@ string_byte_to_char (string, byte_index)
}
/* Convert STRING to a multibyte string.
Single-byte characters 02
0
0 through 0377 are converted
Single-byte characters 02
4
0 through 0377 are converted
by adding nonascii_insert_offset to each. */
Lisp_Object
...
...
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