Ticket #173: wrap-function-to-control-ime-patch.el

File wrap-function-to-control-ime-patch.el, 2.0 kB (added by anonymous, 3 years ago)

Line
1	;;; wrap-function-to-control-ime-patch.el
2	;;; pb`ð Äœwrap-function-to-control-ime
3	;;; ¡¡Fri Sep 23 02:56:57 2005¡¡
4	;;;
5
6	(defun wrap-function-to-control-ime-patch
7	(function interactive-p interactive-arg &optional suffix)
8	"Wrap FUNCTION, and IME control is enabled when FUNCTION is called. \n\
9	An original function is saved to FUNCTION-SUFFIX when suffix is string. \n\
10	If SUFFIX is nil, \"-original\" is added. \n\
11	------patch-----------------------------------------------------------\n\
12	RÍæí©çÈ¢ÌŸªAfep-force-offðfep-get-modeªnilÉÈéÜÅ\n\
13	messageÅ^C~OðÆèÈªçJèÔ³È¢ÆAŸßÝœ¢BÈOà\n\
14	ÈÉ©œæ€ÈßÉ Áœ±ÆªEEE\n\
15	àÆÌwrap-function-to-control-imeðÏŠÄµÜ€ÌÍ¿åÁÆSz\n\
16	ÈÌÅAÊÖÆµÄAy-or-n-pÉÌÝKpµœB"
17	;;;
18	(let ((original-function
19	(intern (concat (symbol-name function)
20	(if suffix suffix "-original")))))
21	(cond ((not (fboundp original-function))
22	(fset original-function
23	(symbol-function function))
24	(fset function
25	(list
26	'lambda '(&rest arguments)
27	(if interactive-p
28	(list 'interactive interactive-arg))
29	(` (cond ((fep-get-mode)
30	(progn
31	;; ñµÄ¢éBPŸÆA€Ü¢©È¢
32	;; ±Æªí©ÁÄ¢éB
33	(while (fep-get-mode)
34	(fep-force-off)
35	;; offÉµÄ©çÒ¿ðš©È¢Æ
36	;; Ç€à·è²¯éæ€ŸB»ÌœßÌ
37	;; Ò¿ðÇ€¢êé©AÀ±Ì ÆB
38	;; (sit-for 0) ;;xx
39	;; (sit-for 0)(sit-for 0) ;;xx
40	;; (message "") ;;xx
41	;; (message "off") ;;oo
42	;;
43	(message " ") ;;oo
44	;; (message "")(message "") ;;oo
45	;; ÈšAmw32ÍfepæèàºÊÉ é
46	;; çµAŸßB
47	;; (mw32-ime-toggle)
48	)
49	)
50	;; ÈºÍIWiÌÜÜB
51	(unwind-protect
52	(apply '(, original-function) arguments)
53	(if mw32-ime-state
54	(fep-force-on))))
55	(t
56	(apply '(, original-function)
57	arguments))))))))))
58	;;; end
59

Download in other formats:

Original Format