+ @brief Set a hook function to a face.
+
+ The mface_set_hook () function sets the hook function of face
+ $FACE to $FUNC. */
+
+/***ja
+ @brief ¥Õ¥§¡¼¥¹¤Î¥Õ¥Ã¥¯´Ø¿ô¤òÀßÄꤹ¤ë.
+
+ ´Ø¿ô mface_set_hook () ¤Ï¡¢¥Õ¥§¡¼¥¹ $FACE ¤Î¥Õ¥Ã¥¯´Ø¿ô¤ò$FUNC ¤ËÀß
+ Äꤹ¤ë¡£ */
+
+int
+mface_put_hook (MFace *face, MFaceHookFunc func)
+{
+ if (face->hook != func)
+ {
+ MPlist *plist;
+ face->hook = func;
+
+ MPLIST_DO (plist, face->frame_list)
+ {
+ MFrame *frame = MPLIST_VAL (plist);
+
+ frame->tick++;
+ if (face == frame->face)
+ mface__update_frame_face (frame);
+ }
+ }
+ return 0;
+}
+
+/*=*/
+
+/***en