/[emacs]/emacs/lisp/international/mule-cmds.el
ViewVC logotype

Diff of /emacs/lisp/international/mule-cmds.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.264 by monnier, Thu Feb 3 16:06:33 2005 UTC revision 1.265 by jasonr, Tue Feb 15 23:14:57 2005 UTC
# Line 2421  See also `locale-charset-language-names' Line 2421  See also `locale-charset-language-names'
2421            (prefer-coding-system coding-system)            (prefer-coding-system coding-system)
2422            (setq locale-coding-system coding-system))))            (setq locale-coding-system coding-system))))
2423    
2424      ;; On Windows, override locale-coding-system, keyboard-coding-system,      ;; On Windows, override locale-coding-system,
2425      ;; selection-coding-system with system codepage.      ;; keyboard-coding-system with system codepage.  Note:
2426        ;; selection-coding-system is already set in w32select.c.
2427      (when (boundp 'w32-ansi-code-page)      (when (boundp 'w32-ansi-code-page)
2428        (let ((code-page-coding (intern (format "cp%d" w32-ansi-code-page))))        (let ((code-page-coding (intern (format "cp%d" w32-ansi-code-page))))
2429          (when (coding-system-p code-page-coding)          (when (coding-system-p code-page-coding)
2430            (setq locale-coding-system code-page-coding)            (setq locale-coding-system code-page-coding)
           (set-selection-coding-system code-page-coding)  
2431            (set-keyboard-coding-system code-page-coding)            (set-keyboard-coding-system code-page-coding)
2432            (set-terminal-coding-system code-page-coding))))            (set-terminal-coding-system code-page-coding))))
2433    

Legend:
Removed from v.1.264  
changed lines
  Added in v.1.265

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26