'("User"
["Finger (WHOIS)" riece-user-button-finger]
["Start Private Conversation" riece-user-button-join-partner]
- ["Give Channel Operator Privileges" riece-user-button-set-operators]
- ["Allow To Speak" riece-user-button-set-speakers])
+ ["Set +o" riece-user-button-set-operators]
+ ["Set +v" riece-user-button-set-speakers])
"Menu for user buttons.")
(defvar riece-button-enabled nil)
(select-window window)
(set-window-point window point))
(if riece-debug
- (message "buffer %s not visible" (buffer-name buffer)))))))
+ (riece-debug (format "buffer %s not visible"
+ (buffer-name buffer))))))))
(defun riece-identity-button-popup-menu (event)
"Popup the menu for identity buttons."