svnno****@sourc*****
svnno****@sourc*****
2007年 6月 23日 (土) 22:16:40 JST
Revision: 474
http://svn.sourceforge.jp/cgi-bin/viewcvs.cgi?root=macemacsjp&view=rev&rev=474
Author: taiichi
Date: 2007-06-23 22:16:40 +0900 (Sat, 23 Jun 2007)
Log Message:
-----------
Modified Paths:
--------------
inline_patch/trunk/ChangeLog
inline_patch/trunk/emacs-inline.patch
-------------- next part --------------
Modified: inline_patch/trunk/ChangeLog
===================================================================
--- inline_patch/trunk/ChangeLog 2007-06-22 12:55:33 UTC (rev 473)
+++ inline_patch/trunk/ChangeLog 2007-06-23 13:16:40 UTC (rev 474)
@@ -1,3 +1,8 @@
+2007-06-23 HASHIMOTO Taiichi <taiic****@mbp15*****>
+
+ * mac-im.el (mac-translate-from-yen-to-backslash): ‰~‹L†‚ðƒoƒbƒN
+ ƒXƒ‰ƒbƒVƒ…‚É•ÏX‚·‚éŠÖ”‚ð’ljÁ
+
2007-06-22 HASHIMOTO Taiichi <taiic****@mac*****>
* mac-im.el: ‰~‹L†‚ðƒoƒbƒNƒXƒ‰ƒbƒVƒ…‚É•ÏX‚·‚éƒL[ƒoƒCƒ“ƒh‚ð’ljÁ
Modified: inline_patch/trunk/emacs-inline.patch
===================================================================
--- inline_patch/trunk/emacs-inline.patch 2007-06-22 12:55:33 UTC (rev 473)
+++ inline_patch/trunk/emacs-inline.patch 2007-06-23 13:16:40 UTC (rev 474)
@@ -15,10 +15,10 @@
(load "vc-hooks")
diff -p -N -r -x '*.orig' ../emacs-22.1/lisp/term/mac-im.el lisp/term/mac-im.el
*** ../emacs-22.1/lisp/term/mac-im.el 1970-01-01 09:00:00.000000000 +0900
---- lisp/term/mac-im.el 2007-06-22 21:24:08.000000000 +0900
+--- lisp/term/mac-im.el 2007-06-23 22:06:36.000000000 +0900
***************
*** 0 ****
---- 1,220 ----
+--- 1,225 ----
+ ;; mac-im.el --- Input Method for Mac OS X -*-coding: iso-2022-7bit;-*-
+
+ ;; Copyright (C) 2005, 2006 HASHIMOTO Taiichi <taiic****@mac*****>
@@ -229,16 +229,21 @@
+ [mac-change-input-method] 'mac-handle-input-method-change)
+
+ ;;
-+ ;; Convert yen to backslash when JIS keyboard is used.
++ ;; translate yen key to backslash key for JIS keyboard.
+ ;;
-+ (define-key global-map [2213] nil)
-+ (define-key global-map [67111077] nil)
-+ (define-key global-map [134219941] nil)
-+ (define-key global-map [201328805] nil)
-+ (define-key function-key-map [2213] [?\\])
-+ (define-key function-key-map [67111077] [?\C-\\])
-+ (define-key function-key-map [134219941] [?\M-\\])
-+ (define-key function-key-map [201328805] [?\C-\M-\\])
++ (defun mac-translate-from-yen-to-backslash ()
++ ;; Convert yen to backslash for JIS keyboard.
++ (interactive)
++
++ (define-key global-map [2213] nil)
++ (define-key global-map [67111077] nil)
++ (define-key global-map [134219941] nil)
++ (define-key global-map [201328805] nil)
++ (define-key function-key-map [2213] [?\\])
++ (define-key function-key-map [67111077] [?\C-\\])
++ (define-key function-key-map [134219941] [?\M-\\])
++ (define-key function-key-map [201328805] [?\C-\M-\\])
++ )
diff -p -N -r -x '*.orig' ../emacs-22.1/lisp/term/mac-win.el lisp/term/mac-win.el
*** ../emacs-22.1/lisp/term/mac-win.el 2007-05-14 23:56:30.000000000 +0900
--- lisp/term/mac-win.el 2007-06-09 21:38:40.000000000 +0900