From: Kenichi Handa <handa@m17n.org>
Date: Tue, 17 Dec 2002 11:56:26 +0000 (+0000)
Subject: (mule-keymap, set-coding-system-map):
X-Git-Tag: ttn-vms-21-2-B4~11984
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2308d0d7e0c5fb0bb9fa8f110a11738e49e9479f;p=emacs.git

(mule-keymap, set-coding-system-map):
Add bindings for set-file-name-coding-system.
---

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index fa0520a2f27..04269014ca0 100644
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -39,6 +39,7 @@
 
 (define-key mule-keymap "f" 'set-buffer-file-coding-system)
 (define-key mule-keymap "r" 'revert-buffer-with-coding-system)
+(define-key mule-keymap "F" 'set-file-name-coding-system)
 (define-key mule-keymap "t" 'set-terminal-coding-system)
 (define-key mule-keymap "k" 'set-keyboard-coding-system)
 (define-key mule-keymap "p" 'set-buffer-process-coding-system)
@@ -130,6 +131,10 @@
 	      :enable buffer-file-name
 	      :help "Revisit this file immediately using specified coding system")
   t)
+(define-key-after set-coding-system-map [set-file-name-coding-system]
+  '(menu-item "For File Name" set-file-name-coding-system
+	      :help "How to decode/encode file names")
+  t)
 (define-key-after set-coding-system-map [separator-2]
   '("--")
   t)