From: Kenichi Handa <handa@m17n.org>
Date: Tue, 17 Dec 2002 11:56:56 +0000 (+0000)
Subject: (set-file-name-coding-system): New function.
X-Git-Tag: ttn-vms-21-2-B4~11983
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=701414e3a0a3650bcc213b31bd6ddb8e0563cdfe;p=emacs.git

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

diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index e425d8b8bfd..3eaf3dc61ce 100644
--- 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.