[Emacs-diffs] Changes to emacs/lisp/international/mule-cmds.el

[Jason Rumney]

Index: emacs/lisp/international/mule-cmds.el
diff -c emacs/lisp/international/mule-cmds.el:1.264 
emacs/lisp/international/mule-cmds.el:1.265
*** emacs/lisp/international/mule-cmds.el:1.264 Thu Feb  3 16:06:33 2005
--- emacs/lisp/international/mule-cmds.el       Tue Feb 15 23:14:57 2005
***************
*** 2421,2433 ****
          (prefer-coding-system coding-system)
          (setq locale-coding-system coding-system))))
  
!     ;; On Windows, override locale-coding-system, keyboard-coding-system,
!     ;; selection-coding-system with system codepage.
      (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)
-         (set-selection-coding-system code-page-coding)
          (set-keyboard-coding-system code-page-coding)
          (set-terminal-coding-system code-page-coding))))
  
--- 2421,2433 ----
          (prefer-coding-system coding-system)
          (setq locale-coding-system coding-system))))
  
!     ;; On Windows, override locale-coding-system,
!     ;; keyboard-coding-system with system codepage.  Note:
!     ;; selection-coding-system is already set in w32select.c.
      (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)
          (set-keyboard-coding-system code-page-coding)
          (set-terminal-coding-system code-page-coding))))