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
7dd4fd43
Commit
7dd4fd43
authored
Mar 16, 2002
by
Eli Zaretskii
Browse files
(codepage-setup): Don't define a codepage if it is already defined.
parent
55859ca7
Changes
2
Show whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
9 additions
and
3 deletions
+9
-3
lisp/ChangeLog
lisp/ChangeLog
+3
-0
lisp/international/codepage.el
lisp/international/codepage.el
+6
-3
No files found.
lisp/ChangeLog
View file @
7dd4fd43
2002-03-16 Eli Zaretskii <eliz@is.elta.co.il>
* international/codepage.el (codepage-setup): Don't define a
codepage if it is already defined.
* textmodes/po.el (po-find-charset): Search for the Charset=
header even if we've read less than 4KB.
<top-level>: Remove the setup for all known codepages: it seems
...
...
lisp/international/codepage.el
View file @
7dd4fd43
...
...
@@ -659,9 +659,12 @@ read/written by MS-DOS software, or for display on the MS-DOS terminal."
(
candidates
(
cp-supported-codepages
)))
(
list
(
completing-read
"Setup DOS Codepage: (default 437) "
candidates
nil
t
nil
nil
"437"
))))
(
let
((
cp
(
format
"cp%s"
codepage
)))
(
let*
((
cp
(
format
"cp%s"
codepage
))
(
cp-defined
(
intern-soft
cp
)))
(
or
(
and
cp-defined
;; avoid defining if already defined
(
coding-system-p
cp-defined
))
(
cp-make-coding-systems-for-codepage
cp
(
cp-charset-for-codepage
cp
)
(
cp-offset-for-codepage
cp
))))
cp
(
cp-charset-for-codepage
cp
)
(
cp-offset-for-codepage
cp
))))
)
(
provide
'codepage
)
...
...
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