I am using XEmacs (21.4) and am trying to configure the Gold Key binding. I would like f12 to be the Gold Key, which will switch back and forth between a new set of key bindings. I have tried this command:

(if default
(define-key 'edt-default-global-map 'f12 gold-binding)
(define-key 'edt-user-gold-map 'f12 gold-binding))

but to no avail. Here is an example of the key-bindings from regular Emacs which I am trying to replicate in XEmacs:

(defvar AViiON-map ())
(progn
(setq AViiON-map (make-keymap))
; (global-set-key 'f12 AViiON-map)
; (define-key AViiON-map "f" 'fill-paragraph)
; (define-key AViiON-map [End] 'end-of-buffer)
; (define-key AViiON-map [Home] 'beginning-of-buffer)
; (define-key AViiON-map [f1] 'call-last-kbd-macro) ;; added by DBS
; (define-key AViiON-map [f2] 'start-kbd-macro) ;; added by DBS
; (define-key AViiON-map [f3] 'end-kbd-macro) ;; added by DBS
; (define-key AViiON-map [f5] 'what-line)
; (define-key AViiON-map [f6] 'what-cursor-position)
; (define-key AViiON-map [f7] 'recenter)
; (define-key AViiON-map [f8] 'delete-other-windows) ;; changed by DBS
; (define-key AViiON-map [f9] 'insert-file)
; (define-key AViiON-map [f10] 'write-file)
; (define-key AViiON-map [f11] 'help-for-help)
; (define-key AViiON-map [f12] 'save-buffers-kill-emacs)

; added 10-20-94 from old
; (define-key AViiON-map "d" 'list-directory) ;; brief listing (like ls -C)
; (define-key AViiON-map "e" 'dired) ;; long listing (like ls -l)
; (define-key AViiON-map "h" 'help-for-help)
; (define-key AViiON-map "-" 'auto-fill-mode)
; (define-key AViiON-map "f" 'fill-paragraph) ;; changed by DBS
; (define-key AViiON-map "o" 'outline-mode)
; (define-key AViiON-map "t" 'text-mode)
; (define-key AViiON-map "b" 'buffer-menu)
; (define-key AViiON-map "n" 'other-window)
; (define-key AViiON-map "5" 'ispell-buffer)
; (define-key AViiON-map "6" 'spell-buffer)

; Assign Arlen Harbaugh's and other key-bindings - f12 is the gold-key
;(global-set-key [f1] 'set-mark-command)
(global-set-key [f2] 'copy-region-as-kill)
(global-set-key [f3] 'kill-region)
(global-set-key [f4] 'yank)
(global-set-key [f5] 'search-forward)
(global-set-key [f6] 'search-backward)
(global-set-key [f7] 'query-replace)
(global-set-key [f8] 'replace-string)
(global-set-key [f9] 'find-file)
(global-set-key [f10] 'save-buffer)
(global-set-key [f11] 'repeat-complex-command)
(global-set-key [f12] 'gold-binding)
(global-set-key "\C-h" 'delete-backward-char)
(global-set-key "\C-?" 'delete-char)
(global-set-key "\C-z" 'previous-line)
(global-set-key "\C-x*ar" 'hide-subtree)
(global-set-key "\C-x*br" 'show-subtree)
(global-set-key "\C-x*cr" 'show-branches)
(global-set-key "\eg" 'goto-line)
(global-set-key "\ep" 'lw) ; Switch buffers
)

Any help is greatly appreciated. Thanks so much.