X-Git-Url: http://cgit.sxemacs.org/?p=riece;a=blobdiff_plain;f=lisp%2Friece-button.el;h=fcf3026c1e0a389f9450efc1a1e49c41f928e36d;hp=f65e7bf0ba55428023313ad63f1114d825ca33e1;hb=c694c12685b03816d35bc0a35b0202ddaeb56118;hpb=a86316a5d418673f99e35a21a59356b57a778a3d;ds=sidebyside

diff --git a/lisp/riece-button.el b/lisp/riece-button.el
index f65e7bf..fcf3026 100644
--- a/lisp/riece-button.el
+++ b/lisp/riece-button.el
@@ -60,7 +60,7 @@
       (message "%s" (substitute-command-keys
 		     "Type \\[riece-command-join] to join the channel")))))
 
-(defun riece-button-add-channel-buttons (start end length)
+(defun riece-button-add-channel-buttons (start end)
   (save-excursion
     (catch 'done
       (while t
@@ -85,7 +85,7 @@
 	(set-buffer riece-channel-list-buffer)
 	(let ((inhibit-read-only t)
 	      buffer-read-only)
-	  (riece-button-add-channel-buttons (point-min) (point-max) nil)))))
+	  (riece-button-add-channel-buttons (point-min) (point-max))))))
 
 (defun riece-button-requires ()
   '(riece-highlight))
@@ -95,7 +95,11 @@
 	    (lambda ()
 	      (set-keymap-parent riece-channel-list-mode-map widget-keymap)
 	      (add-hook 'riece-update-buffer-functions
-			'riece-button-update-channel-list-buffer t))))
+			'riece-button-update-channel-list-buffer t)))
+  (add-hook 'riece-dialogue-mode-hook
+	    (lambda ()
+	      (set-keymap-parent riece-dialogue-mode-map widget-keymap)))
+  (add-hook 'riece-after-insert-functions 'riece-button-add-channel-buttons))
 
 (provide 'riece-button)