Mercurial > hg > xemacs-beta

comparison src/tooltalk.c @ 280:7df0dd720c89 r21-0b38

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b38
author cvs
date Mon, 13 Aug 2007 10:32:22 +0200
parents 6330739388db
children e11d67e05968
comparison
equal deleted inserted replaced
279:c20b2fb5bb0a 280:7df0dd720c89
535 check_status (tt_message_arg_bval (m, n, &value, &len)); 535 check_status (tt_message_arg_bval (m, n, &value, &len));
536 536
537 return make_string (value, len); 537 return make_string (value, len);
538 } 538 }
539 539
540 DEFUN ("get-tooltalk-message-attribute", 540 DEFUN ("get-tooltalk-message-attribute", Fget_tooltalk_message_attribute,
541 Fget_tooltalk_message_attribute, 2, 3, 0, /* 541 2, 3, 0, /*
542 Return the indicated Tooltalk message attribute. Attributes are 542 Return the indicated Tooltalk message attribute. Attributes are
543 identified by symbols with the same name (underscores and all) as the 543 identified by symbols with the same name (underscores and all) as the
544 suffix of the Tooltalk tt_message_<attribute> function that extracts the value. 544 suffix of the Tooltalk tt_message_<attribute> function that extracts the value.
545 String attribute values are copied, enumerated type values (except disposition) 545 String attribute values are copied, enumerated type values (except disposition)
546 are converted to symbols - e.g. TT_HANDLER is 'TT_HANDLER, uid and gid are 546 are converted to symbols - e.g. TT_HANDLER is 'TT_HANDLER, uid and gid are
677 attribute); 677 attribute);
678 678
679 return Qnil; 679 return Qnil;
680 } 680 }
681 681
682 DEFUN ("set-tooltalk-message-attribute", 682 DEFUN ("set-tooltalk-message-attribute", Fset_tooltalk_message_attribute,
683 Fset_tooltalk_message_attribute, 3, 4, 0, /* 683 3, 4, 0, /*
684 Initialize one Tooltalk message attribute. 684 Initialize one Tooltalk message attribute.
685 685
686 Attribute names and values are the same as for 686 Attribute names and values are the same as for
687 `get-tooltalk-message-attribute'. A property list is provided for user 687 `get-tooltalk-message-attribute'. A property list is provided for user
688 data (instead of the 'user message attribute); see 688 data (instead of the 'user message attribute); see