Next: Computed Advice, Previous: Defining Advice, Up: Advising Functions [Contents][Index]
Êñ°Ï¥¢¥É¥Ð¥¤¥¹¤Ë¤è¤ê¡¢´Ø¿ô¤Î¸µÄêµÁ¤òÊñ¤ß¹þ¤àLisp¼°¤ò½ñ¤±¤Þ¤¹¡£
´Ø¿ô¤Î¸µÄêµÁ¤ò¼Â¹Ô¤¹¤ë¾ì½ê¤òÆÃÊ̤ʥ·¥ó¥Ü¥ëad-do-it
¤Ç»ØÄꤷ¤Þ¤¹¡£
Êñ°Ï¥¢¥É¥Ð¥¤¥¹¤ÎËÜÂΤ˸½¤ì¤¿¤³¤Î¥·¥ó¥Ü¥ë¤Ï¡¢
¸µÄêµÁ¡Ê¤ÈÆâ¦¤ÎÊñ°Ï¥¢¥É¥Ð¥¤¥¹ËÜÂΡˤΥե©¡¼¥à¤ò´Þ¤ó¤Àprogn
¤Ç
ÃÖ¤´¹¤¨¤é¤ì¤Þ¤¹¡£
Îã¤ò¼¨¤·¤Þ¤·¤ç¤¦¡£
(defadvice foo (around foo-around) "Ignore case in `foo'." (let ((case-fold-search t)) ad-do-it))
¤³¤ì¤Ï¡¢foo
¤Î¸µÄêµÁ¤ò¼Â¹Ô¤¹¤ë¤È¤¤Ë
Âçʸ»ú¾®Ê¸»ú¤ò¶èÊ̤·¤Ê¤¤¤Çõº÷¤¹¤ë¤³¤È¤òÊݾڤ·¤Þ¤¹¡£
¤³¤ì¤Ï¼ÂºÝ¤Ë¤ÏÊÑ¿ô¤Ç¤Ï¤Ê¤¤¤¬¡¢Êñ°Ï¥¢¥É¥Ð¥¤¥¹Æâ¤Ç¤ÏÊÑ¿ô¤Î¤è¤¦¤ËÍѤ¤¤ë¡£ ´Ø¿ô¤Î¸µÄêµÁ¤È¡Ø¤è¤êÆâ¦¤Î¡ÙÊñ°Ï¥¢¥É¥Ð¥¤¥¹¤ò¼Â¹Ô¤¹¤ë¾ì½ê¤ò»ØÄꤹ¤ë¡£
Êñ°Ï¥¢¥É¥Ð¥¤¥¹¤Çad-do-it
¤òÍѤ¤¤Ê¤±¤ì¤Ð¡¢´Ø¿ô¤Î¸µÄêµÁ¤ò¼Â¹Ô¤·¤Þ¤»¤ó¡£
¤³¤ì¤Ï¡¢¸µÄêµÁ¤ò´°Á´¤Ë̵¸ú¤Ë¤¹¤ë¼êÃʤǤ¹¡£
¡Ê¤µ¤é¤Ë¡¢Æâ¦¤ÎÊñ°Ï¥¢¥É¥Ð¥¤¥¹ÃÇÊÒ¤â̵¸ú¤Ë¤¹¤ë¡£¡Ë