[h-e-w] Gnuserv emacs 21.1.1 error with trace back

[Peter Fraser]

using the gnuserv.el from
http://www.wyrdrune.com/Files/gnuserv.zip 

and
"GNU Emacs 21.1.1 (i386-msvc-nt5.1.2600) of 2001-10-22 on buffy"

with
(require 'gnuserv)
(if (load "gnuserv" 'noerror 'nomessage)
        (gnuserv-start))
Then when I go through the menu items
 Options->Customize Emacs->Top Level Customization Group
Then pick "External group: Go to Group"
Then pick "Locate group: Go to Group"

I get the following error:

Debugger entered--Lisp error: (wrong-number-of-arguments #[nil ",F   ,T
,T[server-kill-buffer-running server-buffer-clients server-process t
server-buffer-done] 3] 1)
  kill-buffer(#<buffer *Customize Group: Locate*>)
  custom-buffer-create(((locate custom-group)) "*Customize Group: Locate*" "
for group Locate")
  customize-group(locate)
  custom-group-link-action((custom-group-link :args nil :value locate :tag
"Go to Group" :parent (custom-group :group (custom-group
:documentation-shown t :custom-state standard :tag "External" :value
external :buttons ... :sample-overlay #<overlay from 496 to 504 in
*Customize Group: External*> :custom-magic ... :children ... :from #<marker
(before-insertion) at 466 in *Customize Group: External*> :to #<marker at
1026 in *Customize Group: External*>) :tag "Locate" :custom-prefixes
("external-") :custom-level 2 :value locate :parent (custom-group
:documentation-shown t :custom-state standard :tag "External" :value
external :buttons ... :sample-overlay #<overlay from 496 to 504 in
*Customize Group: External*> :custom-magic ... :children ... :from #<marker
(before-insertion) at 466 in *Customize Group: External*> :to #<marker at
1026 in *Customize Group: External*>) :indent 0 :sample-overlay #<overlay
from 828 to 834 in *Customize Group: External*> :custom-magic (custom-magic
:args ... :parent #1 :indent 0 :children nil :from #<marker
(before-insertion) at 1026 in *Customize Group: External*> :to #<marker at
951 in *Customize Group: External*> :buttons nil :value nil) :buttons (...
... #0) :documentation-indent 0 :from #<marker (before-insertion) at 828 in
*Customize Group: External*> :to #<marker at 888 in *Customize Group:
External*>) :indent 0 :button-overlay #<overlay from 842 to 853 in
*Customize Group: External*> :from #<marker (before-insertion) at 842 in
*Customize Group: External*> :to #<marker at 853 in *Customize Group:
External*>) (mouse-1 (#<window 10 on *Customize Group: External*> 848 (150 .
388) -43439484)))
  widget-apply((custom-group-link :args nil :value locate :tag "Go to Group"
:parent (custom-group :group (custom-group :documentation-shown t
:custom-state standard :tag "External" :value external :buttons ...
:sample-overlay #<overlay from 496 to 504 in *Customize Group: External*>
:custom-magic ... :children ... :from #<marker (before-insertion) at 466 in
*Customize Group: External*> :to #<marker at 1026 in *Customize Group:
External*>) :tag "Locate" :custom-prefixes ("external-") :custom-level 2
:value locate :parent (custom-group :documentation-shown t :custom-state
standard :tag "External" :value external :buttons ... :sample-overlay
#<overlay from 496 to 504 in *Customize Group: External*> :custom-magic ...
:children ... :from #<marker (before-insertion) at 466 in *Customize Group:
External*> :to #<marker at 1026 in *Customize Group: External*>) :indent 0
:sample-overlay #<overlay from 828 to 834 in *Customize Group: External*>
:custom-magic (custom-magic :args ... :parent #1 :indent 0 :children nil
:from #<marker (before-insertion) at 1026 in *Customize Group: External*>
:to #<marker at 951 in *Customize Group: External*> :buttons nil :value nil)
:buttons (... ... #0) :documentation-indent 0 :from #<marker
(before-insertion) at 828 in *Customize Group: External*> :to #<marker at
888 in *Customize Group: External*>) :indent 0 :button-overlay #<overlay
from 842 to 853 in *Customize Group: External*> :from #<marker
(before-insertion) at 842 in *Customize Group: External*> :to #<marker at
853 in *Customize Group: External*>) :action (mouse-1 (#<window 10 on
*Customize Group: External*> 848 (150 . 388) -43439484)))
  widget-apply-action((custom-group-link :args nil :value locate :tag "Go to
Group" :parent (custom-group :group (custom-group :documentation-shown t
:custom-state standard :tag "External" :value external :buttons ...
:sample-overlay #<overlay from 496 to 504 in *Customize Group: External*>
:custom-magic ... :children ... :from #<marker (before-insertion) at 466 in
*Customize Group: External*> :to #<marker at 1026 in *Customize Group:
External*>) :tag "Locate" :custom-prefixes ("external-") :custom-level 2
:value locate :parent (custom-group :documentation-shown t :custom-state
standard :tag "External" :value external :buttons ... :sample-overlay
#<overlay from 496 to 504 in *Customize Group: External*> :custom-magic ...
:children ... :from #<marker (before-insertion) at 466 in *Customize Group:
External*> :to #<marker at 1026 in *Customize Group: External*>) :indent 0
:sample-overlay #<overlay from 828 to 834 in *Customize Group: External*>
:custom-magic (custom-magic :args ... :parent #1 :indent 0 :children nil
:from #<marker (before-insertion) at 1026 in *Customize Group: External*>
:to #<marker at 951 in *Customize Group: External*> :buttons nil :value nil)
:buttons (... ... #0) :documentation-indent 0 :from #<marker
(before-insertion) at 828 in *Customize Group: External*> :to #<marker at
888 in *Customize Group: External*>) :indent 0 :button-overlay #<overlay
from 842 to 853 in *Customize Group: External*> :from #<marker
(before-insertion) at 842 in *Customize Group: External*> :to #<marker at
853 in *Customize Group: External*>) (mouse-1 (#<window 10 on *Customize
Group: External*> 848 (150 . 388) -43439484)))
  widget-button-click((mouse-1 (#<window 10 on *Customize Group: External*>
848 (150 . 388) -43439484)))
  Custom-move-and-invoke((mouse-1 (#<window 10 on *Customize Group:
External*> 848 (150 . 388) -43439484)))
* call-interactively(Custom-move-and-invoke)
__________________
Peter J Fraser  519 895 1860 x201
Thinkage                519 895 1864 fax
85 McIntyre Dr
Kitchener
On N2R 1H6