Mercurial > hg > xemacs-beta

diff lisp/mule/korean-hooks.el @ 110:fe104dbd9147 r20-1b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b7
author cvs
date Mon, 13 Aug 2007 09:19:45 +0200
parents a145efe76779
children cca96a509cfe
line wrap: on
line diff
--- a/lisp/mule/korean-hooks.el	Mon Aug 13 09:18:41 2007 +0200
+++ b/lisp/mule/korean-hooks.el	Mon Aug 13 09:19:45 2007 +0200
@@ -94,10 +94,10 @@
                 (let ((proc (get-buffer-process (current-buffer))))
                   (set-process-input-coding-system  proc 'euc-korea)
                   (set-process-output-coding-system proc 'euc-korea))))
-    (set-file-coding-system-for-read 'autodetect)
-    (set-default-file-coding-system 'euc-korea)
-    (setq keyboard-coding-system     'euc-korea)
-    (setq terminal-coding-system     'euc-korea)
+    (set-buffer-file-coding-system-for-read 'autodetect)
+    (set-default-buffer-file-coding-system  'euc-korea)
+    (setq keyboard-coding-system            'euc-korea)
+    (setq terminal-coding-system            'euc-korea)
     (when (eq 'x (device-type (selected-device)))
       (x-use-halfwidth-roman-font 'korean-ksc5601 "ksc5636"))