Mercurial > emacs

comparison lisp/international/mule-cmds.el @ 90105:7e3f621f1dd4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-15 Merge from emacs--cvs-trunk--0 Patches applied: * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-95 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-96 Move Gnus images into etc/images * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-97 - miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-105 Update from CVS * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-14 Merge from emacs--cvs-trunk--0 * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-15 Update from CVS: lisp/imap.el (imap-log): Doc fix. * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-16 Merge from emacs--cvs-trunk--0
author Miles Bader <miles@gnu.org>
date Fri, 18 Feb 2005 00:41:50 +0000
parents a01e7a9f1659 04686828d0da
children 30ad2795fdab
comparison
equal deleted inserted replaced
90104:a01e7a9f1659 90105:7e3f621f1dd4
2402 (locale-info 'codeset)))) 2402 (locale-info 'codeset))))
2403 (unless result 2403 (unless result
2404 (message "Warning: Default coding system `%s' disagrees with 2404 (message "Warning: Default coding system `%s' disagrees with
2405 system codeset `%s' for this locale." coding-system codeset)))))))) 2405 system codeset `%s' for this locale." coding-system codeset))))))))
2406 2406
2407 ;; On Windows, override locale-coding-system, keyboard-coding-system, 2407 ;; On Windows, override locale-coding-system,
2408 ;; selection-coding-system with system codepage. 2408 ;; keyboard-coding-system with system codepage. Note:
2409 ;; selection-coding-system is already set in w32select.c.
2409 (when (boundp 'w32-ansi-code-page) 2410 (when (boundp 'w32-ansi-code-page)
2410 (let ((code-page-coding (intern (format "cp%d" w32-ansi-code-page)))) 2411 (let ((code-page-coding (intern (format "cp%d" w32-ansi-code-page))))
2411 (when (coding-system-p code-page-coding) 2412 (when (coding-system-p code-page-coding)
2412 (setq locale-coding-system code-page-coding) 2413 (setq locale-coding-system code-page-coding)
2413 (set-selection-coding-system code-page-coding)
2414 (set-keyboard-coding-system code-page-coding) 2414 (set-keyboard-coding-system code-page-coding)
2415 (set-terminal-coding-system code-page-coding)))) 2415 (set-terminal-coding-system code-page-coding))))
2416 2416
2417 ;; On Darwin, file names are always encoded in utf-8, no matter the locale. 2417 ;; On Darwin, file names are always encoded in utf-8, no matter the locale.
2418 (when (eq system-type 'darwin) 2418 (when (eq system-type 'darwin)