[macemacsjp-cvs 356] CVS update: inline_patch

アーカイブの一覧に戻る

HASHIMOTO Taiichi taiic****@users*****
2006年 5月 26日 (金) 01:22:07 JST


Index: inline_patch/emacs-inline.patch
diff -u inline_patch/emacs-inline.patch:1.28 inline_patch/emacs-inline.patch:1.29
--- inline_patch/emacs-inline.patch:1.28	Fri May 26 00:00:41 2006
+++ inline_patch/emacs-inline.patch	Fri May 26 01:22:07 2006
@@ -13,10 +13,10 @@
   
   (load "vc-hooks")
 *** ../emacs-20060517-0/lisp/term/mac-im.el	Thu Jan  1 09:00:00 1970
---- lisp/term/mac-im.el	Thu May 25 20:35:34 2006
+--- lisp/term/mac-im.el	Fri May 26 01:04:52 2006
 ***************
 *** 0 ****
---- 1,339 ----
+--- 1,343 ----
 + ;; mac-im.el --- Input Method for Mac OS X -*-coding: iso-2022-7bit;-*-
 + 
 + ;; Copyright (C) 2005, 2006 HASHIMOTO Taiichi <taiic****@mac*****>
@@ -295,14 +295,18 @@
 + ;;
 + (defun mac-setup-inline-input-method ()
 +   (interactive)
-+   (mac-set-inline-input-method t)
-+   (setq default-input-method "MacOSX"))
++   (if (fboundp 'mac-set-inline-input-method)
++       (progn
++ 	(mac-set-inline-input-method t)
++ 	(setq default-input-method "MacOSX"))))
 + 
 + (defun mac-exit-inline-input-method ()
 +   (interactive)
-+   (mac-set-inline-input-method nil)
-+   (set-input-method (get-language-info current-language-environment
-+ 				       'input-method)))
++   (if (fboundp 'mac-set-inline-input-method)
++       (progn
++ 	(mac-set-inline-input-method nil)
++ 	(set-input-method (get-language-info current-language-environment
++ 					     'input-method)))))
 + 
 + 
 + ;;
@@ -355,7 +359,7 @@
 +   [mac-input-method] 'mac-input-method-isearch-edit-string)
 + (define-key special-event-map
 +   [mac-change-input-method] 'mac-handle-input-method-change)
-+ 
++       
 diff -prN -x '*.orig' ../emacs-20060517-0/src/Makefile.in src/Makefile.in
 *** ../emacs-20060517-0/src/Makefile.in	Wed May 17 22:57:26 2006
 --- src/Makefile.in	Wed May 17 22:58:25 2006


macemacsjp-cvs メーリングリストの案内
アーカイブの一覧に戻る