# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1040126216 0
# Node ID 669a7bd630a8da3dae9bd38095fa6cdbbf431363
# Parent  153dc2e78966ffe9ea80a46b5d466d079cd770f5
(set-file-name-coding-system): New function.

diff -r 153dc2e78966 -r 669a7bd630a8 lisp/international/mule.el
--- a/lisp/international/mule.el	Tue Dec 17 11:56:26 2002 +0000
+++ b/lisp/international/mule.el	Tue Dec 17 11:56:56 2002 +0000
@@ -1204,6 +1204,14 @@
   (let ((coding-system-for-read coding-system))
     (revert-buffer)))
 
+(defun set-file-name-coding-system (coding-system)
+  "Set coding system for decoding and encoding file names to CODING-SYSTEM.
+It actually just set the variable `file-name-coding-system' (which
+see) to CODING-SYSTEM."
+  (interactive "zCoding system for file names (default, nil): ")
+  (check-coding-system coding-system)
+  (setq file-name-coding-system coding-system))
+
 (defvar default-terminal-coding-system nil
   "Default value for the terminal coding system.
 This is normally set according to the selected language environment.