mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-08 15:35:02 +00:00
Code Issues Releases Activity

Fix last change.

Browse Source
This commit is contained in:
Jason Rumney 2004-05-09 15:39:00 +00:00
parent 4bf9153503
commit 5eb9438339
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/international/code-pages.el
View File

@ -4482,13 +4482,13 @@ Return an updated `non-iso-charset-alist'."
?๐ ?๑ ?๒ ?๓ ?๔ ?๕ ?๖ ?๗ ?๘ ?๙ ?๚ ?๛ nil nil nil nil]
"ISO-8859-11. This is `thai-tis620' with the addition of no-break-space.")
(dotimes (i 8)
(dotimes (i 9)
(let ((w (intern (format "windows-125%d" i)))
(c (intern (format "cp125%d" i))))
(if (coding-system-p c) ; 1251 is in cyrillic.el
(define-coding-system-alias c w)
(if (coding-system-p w)
(define-coding-system-alias w c)))
;; Define cp125* as aliases for all windows-125*, so on Windows
;; we can just concat "cp" to the ANSI codepage we get from the system
;; and not have to worry about whether it should be "cp" or "windows-".
(define-coding-system-alias c w)
;; Compatibility with codepage.el, though cp... are not the
;; canonical names.
(push (assoc w non-iso-charset-alist) non-iso-charset-alist)))

2
lisp/international/mule-cmds.el
View File

@ -2415,7 +2415,7 @@ See also `locale-charset-language-names', `locale-language-names',
;; On Windows, override locale-coding-system, keyboard-coding-system,
;; selection-coding-system with system codepage.
(when (boundp w32-ansi-code-page)
(when (boundp 'w32-ansi-code-page)
(let ((code-page-coding (intern (format "cp%d" w32-ansi-code-page))))
(when (coding-system-p code-page-coding)
(setq locale-coding-system code-page-coding)