Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
b2b7f29e
Commit
b2b7f29e
authored
Apr 01, 2008
by
Stefan Monnier
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(Funibyte_charset, Fset_unibyte_charset): Remove.
parent
bf694ab9
Changes
3
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
4 additions
and
44 deletions
+4
-44
etc/NEWS
etc/NEWS
+0
-6
src/ChangeLog
src/ChangeLog
+4
-0
src/charset.c
src/charset.c
+0
-38
No files found.
etc/NEWS
View file @
b2b7f29e
...
...
@@ -773,12 +773,6 @@ charsets ordered by priority.
*** The new function `set-charset-priority' sets priorities of charsets.
*** The new function `unibyte-charset' returns the current unibyte
charset. The unibyte charset determines how unibyte/multibyte
conversion is done.
*** The new function `set-unibyte-charset' sets the unibyte charset.
*** The new function `unibyte-string' make a unibyte string from bytes.
*** The new function `define-char-code-property' defines a character
...
...
src/ChangeLog
View file @
b2b7f29e
2008-04-01 Stefan Monnier <monnier@iro.umontreal.ca>
* charset.c (Funibyte_charset, Fset_unibyte_charset): Remove.
2008-03-31 Juri Linkov <juri@jurta.org>
* window.c (Fdisplay_buffer): Reinitialize `tem' to nil.
...
...
src/charset.c
View file @
b2b7f29e
...
...
@@ -1170,42 +1170,6 @@ DEFUN ("define-charset-alias", Fdefine_charset_alias,
}
DEFUN
(
"unibyte-charset"
,
Funibyte_charset
,
Sunibyte_charset
,
0
,
0
,
0
,
doc
:
/* Return the unibyte charset (set by `set-unibyte-charset'). */
)
()
{
return
CHARSET_NAME
(
CHARSET_FROM_ID
(
charset_unibyte
));
}
DEFUN
(
"set-unibyte-charset"
,
Fset_unibyte_charset
,
Sset_unibyte_charset
,
1
,
1
,
0
,
doc
:
/* Set the unibyte charset to CHARSET.
This determines how unibyte/multibyte conversion is done. See also
function `unibyte-charset'. */
)
(
charset
)
Lisp_Object
charset
;
{
struct
charset
*
cs
;
int
i
,
c
;
CHECK_CHARSET_GET_CHARSET
(
charset
,
cs
);
if
(
!
cs
->
ascii_compatible_p
||
cs
->
dimension
!=
1
)
error
(
"Inappropriate unibyte charset: %s"
,
SDATA
(
SYMBOL_NAME
(
charset
)));
charset_unibyte
=
cs
->
id
;
memset
(
unibyte_has_multibyte_table
,
1
,
128
);
for
(
i
=
128
;
i
<
256
;
i
++
)
{
c
=
DECODE_CHAR
(
cs
,
i
);
unibyte_to_multibyte_table
[
i
]
=
(
c
<
0
?
BYTE8_TO_CHAR
(
i
)
:
c
);
unibyte_has_multibyte_table
[
i
]
=
c
>=
0
;
}
return
Qnil
;
}
DEFUN
(
"charset-plist"
,
Fcharset_plist
,
Scharset_plist
,
1
,
1
,
0
,
doc
:
/* Return the property list of CHARSET. */
)
(
charset
)
...
...
@@ -2142,8 +2106,6 @@ syms_of_charset ()
defsubr
(
&
Smap_charset_chars
);
defsubr
(
&
Sdefine_charset_internal
);
defsubr
(
&
Sdefine_charset_alias
);
defsubr
(
&
Sunibyte_charset
);
defsubr
(
&
Sset_unibyte_charset
);
defsubr
(
&
Scharset_plist
);
defsubr
(
&
Sset_charset_plist
);
defsubr
(
&
Sunify_charset
);
...
...
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