(set-file-name-coding-system): New function.

diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index e425d8b8bfd7f489d7c20dcac6d9e85549ee11e4..3eaf3dc61cef550b5c3be12b9337f2e478189950 100644 (file)
--- a/lisp/international/mule.el
+++ b/lisp/international/mule.el
@@ -1204,6 +1204,14 @@ usual for visiting a file."
   (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.