beginner question re: generating define-key map entries

i have a question about generating define-key entries. (i'm not on this list & am just starting to learn xemacs lisp) given this function: (defun fume-list-index-select (arg) (interactive) (goto-line arg) ) is there any easier way to code this... (defvar fume-list-mode-map nil) (or fume-list-mode-map (let ((map (make-sparse-keymap))) (define-key map "1" (lambda () (interactive) (fume-list-index-select 1))) (define-key map "2" (lambda () (interactive) (fume-list-index-select 2))) (define-key map "3" (lambda () (interactive) (fume-list-index-select 3))) (define-key map "4" (lambda () (interactive) etc... thanks for your help, jr -- ------------------------------------------------------------------------ Joel W. Reed 412-257-3881 --------------All the simple programs have been written.----------------