How do I create a keymap to solve this problem?

How do I create a keymap to solve this problem?

[Jeff W]

I'm using EDT emulation (don't laugh).  Something broke the
edt-bind-gold-key command in 21.3.  As the backtrace below shows.

(edt-bind-gold-key  KEY COMMAND)  

translates to

(define-key (edt-user-gold-map KEY COMMAND)

However, the keymap edt-user-gold-map has gone missing in 21.3

How do I create the placeholder for this keymap so that these commands
will work?  (or is there another way to define a command as
PF1-<keyboard_key>

Thanks!
/j




Debugger entered--Lisp error: (wrong-type-argument keymapp
edt-user-gold-map)
  define-key(edt-user-gold-map "c" switch-to-buffer)
  edt-bind-gold-key("c" switch-to-buffer)
  eval-buffer(#<buffer  *load*> nil "~/.emacs" nil t)
  load-with-code-conversion("/engim/users/jwinston/.emacs" "~/.emacs"
t t)
  load("~/.emacs" t t)

" [init-file-user system-type user-init-file-1 user-init-file source
alt ms-dos "~" "/_emacs" windows-nt directory-files nil
"^\\.emacs\\(\\.elc?\\)?$" "~/.emacs" "~/_emacs" vax-vms
"sys$login:.emacs" "/.emacs" t load file-name-extension "elc"
file-name-sans-extension ".el" file-exists-p file-newer-than-file-p
message "Warning: %s is newer than %s" sit-for 1 "default"
inhibit-default-init inhibit-startup-message] 5]()
  command-line()
  normal-top-level()