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

[Kenichi Handa]

Index: emacs/lisp/international/mule.el
diff -c emacs/lisp/international/mule.el:1.170 
emacs/lisp/international/mule.el:1.171
*** emacs/lisp/international/mule.el:1.170      Fri Nov 15 18:52:11 2002
--- emacs/lisp/international/mule.el    Tue Dec 17 06:56:56 2002
***************
*** 1204,1209 ****
--- 1204,1217 ----
    (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.