Mercurial > emacs

changeset 48880:669a7bd630a8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(set-file-name-coding-system): New function.
author Kenichi Handa <handa@m17n.org>
date Tue, 17 Dec 2002 11:56:56 +0000
parents 153dc2e78966
children 23fcd656a17e
files lisp/international/mule.el
diffstat 1 files changed, 8 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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.