Re: [21.1.14] Setting browse-url-browser-function via customize broken

Simon> On 15 Mar 2002, Ville Skyttä wrote: Simon> That patch only changed the :type, and the :type works with Simon> the custom in Emacs. I suspect a bug in XEmacs custom, can Simon> some custom guru identify it? Simon> Are there any differences between custom in Emacs and Simon> XEmacs? That would affect what constitutes a valid :type Dunno. Simon> definition? Here's what toggle-debug-on-signal reveals in (emacs-version) "XEmacs 21.4 (patch 6) \"Common Lisp (Windows [1])\" [Lucid] (i586-pc-win32) of Tue Feb 19 2002 on D5DC120J" Signaling: (void-function nil) nil((alist :tag "Regexp/function association list" :key-type regexp :value-type function)) widget-apply((alist :tag "Regexp/function association list" :key-type regexp :value-type function) :menu-tag-get) widget-choice-action((choice :to #<marker at 282 in *Customize Variable: Browse Url Browser Function* 0x2423fbc> :from #<marker at 216 in *Customize Variable: Browse Url Browser Function* 0x2423fd4> :choice (function-item :tag "Emacs W3" :value browse-url-w3) :children ((function-item :to #<marker at 282 in *Customize Variable: Browse Url Browser Function* 0x2423f2c> :from #<marker at 230 in *Customize Variable: Browse Url Browser Function* 0x2423f74> :buttons ... :indent 0 :parent #0 :tag "Emacs W3" :value browse-url-w3)) :button-extent #<extent (217, 229) keymap button-or-field button 0x3f6403c in buffer *Customize Variable: Browse Url Browser Function*> :indent 0 :parent (custom-variable :to #<marker at 862 in *Customize Variable: Browse Url Browser Function* 0x23690bc> :from #<marker at 186 in *Customize Variable: Browse Url Browser Function* 0x2368f9c> :children (#0 ...) :comment-widget (custom-comment :comment-extent #<extent (824, 834) I 0x453de48 in buffer *Customize Variable: Browse Url Browser Function*> :to #<marker at 834 in *Customize Variable: Browse Url Browser Function* 0x2368eac> :from #<marker at 824 in *Customize Variable: Browse Url Browser Function* 0x2368cfc> :field-extent #<extent [833, 834) help-echo balloon-help keymap button-or-field field 0x4516d20 in buffer *Customize Variable: Browse Url Browser Function*> :sample-extent #<extent (824, 831) 0x453dbc4 in buffer *Customize Variable: Browse Url Browser Function*> :indent 0 :value "" :parent #1) :buttons (... ... ... ... ...) :custom-magic (custom-magic :value nil :buttons nil :to #<marker at 330 in *Customize Variable: Browse Url Browser Function* 0x228421c> :from #<marker at 282 in *Customize Variable: Browse Url Browser Function* 0x2284234> :children ... :indent 0 :parent #1 :args ...) :custom-form edit :value browse-url-browser-function :tag "Browse Url Browser Function" :custom-state saved :documentation-shown t) :value browse-url-w3 :format " %[Value Menu%] %v" :args ((function-item :tag "Emacs W3" :value browse-url-w3) (function-item :tag "W3 in another Emacs via `gnudoit'" :value browse-url-w3-gnudoit) (function-item :tag "Mozilla" :value browse-url-mozilla) (function-item :tag "Galeon" :value browse-url-galeon) (function-item :tag "Netscape" :value browse-url-netscape) (function-item :tag "Mosaic" :value browse-url-mosaic) (function-item :tag "Mosaic using CCI" :value browse-url-cci) (function-item :tag "IXI Mosaic" :value browse-url-iximosaic) (function-item :tag "Lynx in an xterm window" :value browse-url-lynx-xterm) (function-item :tag "Lynx in an Emacs window" :value browse-url-lynx-emacs) (function-item :tag "Grail" :value browse-url-grail) (function-item :tag "MMM" :value browse-url-mmm) (function-item :tag "KDE" :value browse-url-kde) (function-item :tag "Specified by `Browse Url Generic Program'" :value browse-url-generic) (function-item :tag "Default Windows browser" :value browse-url-default-windows-browser) (function-item :tag "GNOME invoking Mozilla" :value browse-url-gnome-moz) (function-item :tag "Default browser" :value browse-url-default-browser) (function :value "nil" :tag "Your own function") (alist :tag "Regexp/function association list" :key-type regexp :value-type function))) #<buttondown-event button3>) widget-apply((choice :to #<marker at 282 in *Customize Variable: Browse Url Browser Function* 0x2423fbc> :from #<marker at 216 in *Customize Variable: Browse Url Browser Function* 0x2423fd4> :choice (function-item :tag "Emacs W3" :value browse-url-w3) :children ((function-item :to #<marker at 282 in *Customize Variable: Browse Url Browser Function* 0x2423f2c> :from #<marker at 230 in *Customize Variable: Browse Url Browser Function* 0x2423f74> :buttons ... :indent 0 :parent #0 :tag "Emacs W3" :value browse-url-w3)) :button-extent #<extent (217, 229) keymap button-or-field button 0x3f6403c in buffer *Customize Variable: Browse Url Browser Function*> :indent 0 :parent (custom-variable :to #<marker at 862 in *Customize Variable: Browse Url Browser Function* 0x23690bc> :from #<marker at 186 in *Customize Variable: Browse Url Browser Function* 0x2368f9c> :children (#0 ...) :comment-widget (custom-comment :comment-extent #<extent (824, 834) I 0x453de48 in buffer *Customize Variable: Browse Url Browser Function*> :to #<marker at 834 in *Customize Variable: Browse Url Browser Function* 0x2368eac> :from #<marker at 824 in *Customize Variable: Browse Url Browser Function* 0x2368cfc> :field-extent #<extent [833, 834) help-echo balloon-help keymap button-or-field field 0x4516d20 in buffer *Customize Variable: Browse Url Browser Function*> :sample-extent #<extent (824, 831) 0x453dbc4 in buffer *Customize Variable: Browse Url Browser Function*> :indent 0 :value "" :parent #1) :buttons (... ... ... ... ...) :custom-magic (custom-magic :value nil :buttons nil :to #<marker at 330 in *Customize Variable: Browse Url Browser Function* 0x228421c> :from #<marker at 282 in *Customize Variable: Browse Url Browser Function* 0x2284234> :children ... :indent 0 :parent #1 :args ...) :custom-form edit :value browse-url-browser-function :tag "Browse Url Browser Function" :custom-state saved :documentation-shown t) :value browse-url-w3 :format " %[Value Menu%] %v" :args ((function-item :tag "Emacs W3" :value browse-url-w3) (function-item :tag "W3 in another Emacs via `gnudoit'" :value browse-url-w3-gnudoit) (function-item :tag "Mozilla" :value browse-url-mozilla) (function-item :tag "Galeon" :value browse-url-galeon) (function-item :tag "Netscape" :value browse-url-netscape) (function-item :tag "Mosaic" :value browse-url-mosaic) (function-item :tag "Mosaic using CCI" :value browse-url-cci) (function-item :tag "IXI Mosaic" :value browse-url-iximosaic) (function-item :tag "Lynx in an xterm window" :value browse-url-lynx-xterm) (function-item :tag "Lynx in an Emacs window" :value browse-url-lynx-emacs) (function-item :tag "Grail" :value browse-url-grail) (function-item :tag "MMM" :value browse-url-mmm) (function-item :tag "KDE" :value browse-url-kde) (function-item :tag "Specified by `Browse Url Generic Program'" :value browse-url-generic) (function-item :tag "Default Windows browser" :value browse-url-default-windows-browser) (function-item :tag "GNOME invoking Mozilla" :value browse-url-gnome-moz) (function-item :tag "Default browser" :value browse-url-default-browser) (function :value "nil" :tag "Your own function") (alist :tag "Regexp/function association list" :key-type regexp :value-type function))) :action #<buttondown-event button3>) widget-apply-action((choice :to #<marker at 282 in *Customize Variable: Browse Url Browser Function* 0x2423fbc> :from #<marker at 216 in *Customize Variable: Browse Url Browser Function* 0x2423fd4> :choice (function-item :tag "Emacs W3" :value browse-url-w3) :children ((function-item :to #<marker at 282 in *Customize Variable: Browse Url Browser Function* 0x2423f2c> :from #<marker at 230 in *Customize Variable: Browse Url Browser Function* 0x2423f74> :buttons ... :indent 0 :parent #0 :tag "Emacs W3" :value browse-url-w3)) :button-extent #<extent (217, 229) keymap button-or-field button 0x3f6403c in buffer *Customize Variable: Browse Url Browser Function*> :indent 0 :parent (custom-variable :to #<marker at 862 in *Customize Variable: Browse Url Browser Function* 0x23690bc> :from #<marker at 186 in *Customize Variable: Browse Url Browser Function* 0x2368f9c> :children (#0 ...) :comment-widget (custom-comment :comment-extent #<extent (824, 834) I 0x453de48 in buffer *Customize Variable: Browse Url Browser Function*> :to #<marker at 834 in *Customize Variable: Browse Url Browser Function* 0x2368eac> :from #<marker at 824 in *Customize Variable: Browse Url Browser Function* 0x2368cfc> :field-extent #<extent [833, 834) help-echo balloon-help keymap button-or-field field 0x4516d20 in buffer *Customize Variable: Browse Url Browser Function*> :sample-extent #<extent (824, 831) 0x453dbc4 in buffer *Customize Variable: Browse Url Browser Function*> :indent 0 :value "" :parent #1) :buttons (... ... ... ... ...) :custom-magic (custom-magic :value nil :buttons nil :to #<marker at 330 in *Customize Variable: Browse Url Browser Function* 0x228421c> :from #<marker at 282 in *Customize Variable: Browse Url Browser Function* 0x2284234> :children ... :indent 0 :parent #1 :args ...) :custom-form edit :value browse-url-browser-function :tag "Browse Url Browser Function" :custom-state saved :documentation-shown t) :value browse-url-w3 :format " %[Value Menu%] %v" :args ((function-item :tag "Emacs W3" :value browse-url-w3) (function-item :tag "W3 in another Emacs via `gnudoit'" :value browse-url-w3-gnudoit) (function-item :tag "Mozilla" :value browse-url-mozilla) (function-item :tag "Galeon" :value browse-url-galeon) (function-item :tag "Netscape" :value browse-url-netscape) (function-item :tag "Mosaic" :value browse-url-mosaic) (function-item :tag "Mosaic using CCI" :value browse-url-cci) (function-item :tag "IXI Mosaic" :value browse-url-iximosaic) (function-item :tag "Lynx in an xterm window" :value browse-url-lynx-xterm) (function-item :tag "Lynx in an Emacs window" :value browse-url-lynx-emacs) (function-item :tag "Grail" :value browse-url-grail) (function-item :tag "MMM" :value browse-url-mmm) (function-item :tag "KDE" :value browse-url-kde) (function-item :tag "Specified by `Browse Url Generic Program'" :value browse-url-generic) (function-item :tag "Default Windows browser" :value browse-url-default-windows-browser) (function-item :tag "GNOME invoking Mozilla" :value browse-url-gnome-moz) (function-item :tag "Default browser" :value browse-url-default-browser) (function :value "nil" :tag "Your own function") (alist :tag "Regexp/function association list" :key-type regexp :value-type function))) #<buttondown-event button3>) widget-button-click(#<buttondown-event button3>) call-interactively(widget-button-click) -- Adrian Aichner mailto:adrian＠xemacs.org http://www.xemacs.org/