--- a/lisp/egg/egg.el	Mon Aug 13 09:29:37 2007 +0200
+++ b/lisp/egg/egg.el	Mon Aug 13 09:30:11 2007 +0200
@@ -408,7 +408,9 @@
     (if (and (key-press-event-p event)
 	     (eq 0 (event-modifier-bits event)))
 	(setq ch (event-key event))
-      (setq unread-command-events (list event)))
+      (if (eq 1 (event-modifier-bits event))
+	  (setq ch (int-to-char (- (char-to-int (event-key event)) 96)))
+	(setq unread-command-events (list event))))
     ch))
 
 (eval-when-compile (require 'egg-jsymbol))
@@ -697,13 +699,13 @@
 	      (menu:select-goto-menu (1- menu:*select-menu-no*)))
 	     ((eq ch ?\C-l)  ;;; redraw menu
 	      (menu:select-goto-menu menu:*select-menu-no*))
-	     ((and (numberp ch) (<= ?0 ch) (<= ch ?9)
+	     ((and (characterp ch) (<= ?0 ch) (<= ch ?9)
 		   (<= ch (+ ?0 (1- (length menu:*select-items*)))))
 	      (menu:select-goto-item (- ch ?0)))
-	     ((and (numberp ch) (<= ?a ch) (<= ch ?z)
+	     ((and (characterp ch) (<= ?a ch) (<= ch ?z)
 		   (<= (+ 10 ch) (+ ?a (1- (length menu:*select-items*)))))
 	      (menu:select-goto-item (+ 10 (- ch ?a))))
-	     ((and (numberp ch) (<= ?A ch) (<= ch ?Z)
+	     ((and (characterp ch) (<= ?A ch) (<= ch ?Z)
 		   (<= (+ 10 ch) (+ ?A (1- (length menu:*select-items*)))))
 	      (menu:select-goto-item (+ 10 (- ch ?A))))
 	     ((or (eq ch ?\C-m) (eq ch 'return))