Previous: Symbol Plists, Up: Property Lists   [Contents][Index]


7.4.3 ¥·¥ó¥Ü¥ë¤Î³°Éô¤Î°À­¥ê¥¹¥È

¥·¥ó¥Ü¥ë°Ê³°¤Î¾ì½ê¤ËÊݸ¤·¤¿Â°À­¥ê¥¹¥È¤ÎÁàºî¤ËÊØÍø¤Ê2¤Ä¤Î´Ø¿ô¤¬¤¢¤ê¤Þ¤¹¡£

Function: plist-get plist property

¤³¤ì¤Ï¡¢Â°À­¥ê¥¹¥Èplist¤ËÊݸ¤µ¤ì¤Æ¤¤¤ë°À­property¤ÎÃͤòÊÖ¤¹¡£ ¤¿¤È¤¨¤Ð¡¢¤Ä¤®¤Î¤È¤ª¤ê¡£

(plist-get '(foo 4) 'foo)
     ⇒ 4
Function: plist-put plist property value

¤³¤ì¤Ï¡¢Â°À­¥ê¥¹¥Èplist¤Ë¡¢ property¤ÎÃͤȤ·¤Ævalue¤ò³ÊǼ¤¹¤ë¡£ ¤³¤ì¤Ïplist¤òÇ˲õŪ¤ËÊѹ¹¤¹¤ë¤«¡¢¤¢¤ë¤¤¤Ï¡¢ ¸Å¤¤¤â¤Î¤òÊѹ¹¤»¤º¤Ë¿·¤¿¤Ê¥ê¥¹¥È¹½Â¤¤ò¹½ÃÛ¤¹¤ë¡£ ´Ø¿ô¤ÏÊѹ¹¤·¤¿Â°À­¥ê¥¹¥È¤òÊÖ¤¹¤Î¤Ç¡¢ plist¤òÊÝ»ý¤·¤Æ¤¤¤¿¤È¤³¤í¤ØÊݸ¤·Ä¾¤»¤ë¡£ ¤¿¤È¤¨¤Ð¡¢¤Ä¤®¤Î¤È¤ª¤ê¡£

(setq my-plist '(bar t foo 4))
     ⇒ (bar t foo 4)
(setq my-plist (plist-put my-plist 'foo 69))
     ⇒ (bar t foo 69)
(setq my-plist (plist-put my-plist 'quux '(a)))
     ⇒ (bar t foo 69 quux (a))

¤Ä¤®¤Î¤è¤¦¤Ë¤·¤Æ¡¢plist-put¤òÍѤ¤¤Æput¤òÄêµÁ¤Ç¤­¤Þ¤¹¡£

(defun put (symbol prop value)
  (setplist symbol
            (plist-put (symbol-plist symbol) prop value)))