Xemacs Problem

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 _______________________________________________ XEmacs-Beta mailing list XEmacs-Beta(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-beta