Next: , Previous: Defining Advice, Up: Advising Functions   [Contents][Index]


16.3 Êñ°Ï¥¢¥É¥Ð¥¤¥¹

Êñ°Ï¥¢¥É¥Ð¥¤¥¹¤Ë¤è¤ê¡¢´Ø¿ô¤Î¸µÄêµÁ¤òÊñ¤ß¹þ¤àLisp¼°¤ò½ñ¤±¤Þ¤¹¡£ ´Ø¿ô¤Î¸µÄêµÁ¤ò¼Â¹Ô¤¹¤ë¾ì½ê¤òÆÃÊ̤ʥ·¥ó¥Ü¥ëad-do-it¤Ç»ØÄꤷ¤Þ¤¹¡£ Êñ°Ï¥¢¥É¥Ð¥¤¥¹¤ÎËÜÂΤ˸½¤ì¤¿¤³¤Î¥·¥ó¥Ü¥ë¤Ï¡¢ ¸µÄêµÁ¡Ê¤ÈÆâ¦¤ÎÊñ°Ï¥¢¥É¥Ð¥¤¥¹ËÜÂΡˤΥե©¡¼¥à¤ò´Þ¤ó¤Àprogn¤Ç ÃÖ¤­´¹¤¨¤é¤ì¤Þ¤¹¡£ Îã¤ò¼¨¤·¤Þ¤·¤ç¤¦¡£

(defadvice foo (around foo-around)
  "Ignore case in `foo'."
  (let ((case-fold-search t))
    ad-do-it))

¤³¤ì¤Ï¡¢foo¤Î¸µÄêµÁ¤ò¼Â¹Ô¤¹¤ë¤È¤­¤Ë Âçʸ»ú¾®Ê¸»ú¤ò¶èÊ̤·¤Ê¤¤¤Çõº÷¤¹¤ë¤³¤È¤òÊݾڤ·¤Þ¤¹¡£

Variable: ad-do-it

¤³¤ì¤Ï¼ÂºÝ¤Ë¤ÏÊÑ¿ô¤Ç¤Ï¤Ê¤¤¤¬¡¢Êñ°Ï¥¢¥É¥Ð¥¤¥¹Æâ¤Ç¤ÏÊÑ¿ô¤Î¤è¤¦¤ËÍѤ¤¤ë¡£ ´Ø¿ô¤Î¸µÄêµÁ¤È¡Ø¤è¤êÆâ¦¤Î¡ÙÊñ°Ï¥¢¥É¥Ð¥¤¥¹¤ò¼Â¹Ô¤¹¤ë¾ì½ê¤ò»ØÄꤹ¤ë¡£

Êñ°Ï¥¢¥É¥Ð¥¤¥¹¤Çad-do-it¤òÍѤ¤¤Ê¤±¤ì¤Ð¡¢´Ø¿ô¤Î¸µÄêµÁ¤ò¼Â¹Ô¤·¤Þ¤»¤ó¡£ ¤³¤ì¤Ï¡¢¸µÄêµÁ¤ò´°Á´¤Ë̵¸ú¤Ë¤¹¤ë¼êÃʤǤ¹¡£ ¡Ê¤µ¤é¤Ë¡¢Æâ¦¤ÎÊñ°Ï¥¢¥É¥Ð¥¤¥¹ÃÇÊÒ¤â̵¸ú¤Ë¤¹¤ë¡£¡Ë