To whom it may concern,

I am using XEmacs (21.4) in Windows XP 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 2 sets of key bindings.  I have tried the 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, Tim A. Zitzer