From: Masatake YAMATO <jet@gyve.org>
Date: Tue, 18 May 2004 13:38:59 +0000 (+0000)
Subject: * wid-edit.el (widget-radio-button-notify): Don't pass `widget'
X-Git-Tag: ttn-vms-21-2-B4~6158
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4d4ea14a2d05b86ddd9d8f8bd78b7764cb858e69;p=emacs.git

* wid-edit.el (widget-radio-button-notify): Don't pass `widget'
to widget-apply. :action method assumes 2 arguments, not 3.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5cc94e6aae6..8e2b74d5b60 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-05-18  Masatake YAMATO  <jet@gyve.org>
+
+	* wid-edit.el (widget-radio-button-notify): Don't pass `widget'
+	to widget-apply. :action method assumes 2 arguments, not 3.
+
 2004-05-17  Glenn Morris  <gmorris@ast.cam.ac.uk>
 
 	* progmodes/f90.el (f90-end-block-re, f90-start-block-re): New
diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index 33f1f06ba9a..b1a89e4fbef 100644
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -2294,7 +2294,7 @@ Return an alist of (TYPE MATCH)."
 
 (defun widget-radio-button-notify (widget child &optional event)
   ;; Tell daddy.
-  (widget-apply (widget-get widget :parent) :action widget event))
+  (widget-apply (widget-get widget :parent) :action event))
 
 ;;; The `radio-button-choice' Widget.