* riece-button.el (riece-user-button-finger): Pass an identity
authorDaiki Ueno <ueno@unixuser.org>
Wed, 22 Oct 2003 02:56:05 +0000 (02:56 +0000)
committerDaiki Ueno <ueno@unixuser.org>
Wed, 22 Oct 2003 02:56:05 +0000 (02:56 +0000)
object instead of the prefix.

lisp/ChangeLog
lisp/riece-button.el

index f766267..126440d 100644 (file)
@@ -1,5 +1,8 @@
 2003-10-22  Daiki Ueno  <ueno@unixuser.org>
 
 2003-10-22  Daiki Ueno  <ueno@unixuser.org>
 
+       * riece-button.el (riece-user-button-finger): Pass an identity
+       object instead of the prefix.
+
        * riece-ctcp.el: Require 'riece-highlight.
        (riece-ctcp-action-face): New face.
        (riece-ctcp-action-face): New variable.
        * riece-ctcp.el: Require 'riece-highlight.
        (riece-ctcp-action-face): New face.
        (riece-ctcp-action-face): New variable.
index 2582772..f75ac2f 100644 (file)
@@ -182,8 +182,7 @@ This function is used as a callback for a channel button."
 
 (defun riece-user-button-finger ()
   (interactive)
 
 (defun riece-user-button-finger ()
   (interactive)
-  (riece-command-finger
-   (riece-identity-prefix (get-text-property (point) 'riece-identity))))
+  (riece-command-finger (get-text-property (point) 'riece-identity)))
 
 (defun riece-make-identity-button-map ()
   (let ((map (make-sparse-keymap)))
 
 (defun riece-make-identity-button-map ()
   (let ((map (make-sparse-keymap)))