From 701414e3a0a3650bcc213b31bd6ddb8e0563cdfe Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Tue, 17 Dec 2002 11:56:56 +0000 Subject: [PATCH] (set-file-name-coding-system): New function. --- lisp/international/mule.el | 8 ++++++++ 1 file changed, 8 insertions(+) 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. -- 2.39.2