diff --git a/lisp/loadup.el b/lisp/loadup.el
index 6f5b290348f..2f39713e6aa 100644
--- a/lisp/loadup.el
+++ b/lisp/loadup.el
@@ -114,17 +114,6 @@
 ;; We specify .el in case someone compiled version.el by mistake.
 (load "version.el")
 
-;; Precompute the keyboard equivalents in the menu bar items.
-(if (fboundp 'x-popup-menu)
-    (let ((submap (lookup-key global-map [menu-bar])))
-      (while submap
-	(and (consp (car submap))
-	     (symbolp (car (car submap)))
-	     (stringp (car-safe (cdr (car submap))))
-	     (keymapp (cdr (cdr (car submap))))
-	     (x-popup-menu nil (cdr (cdr (car submap)))))
-	(setq submap (cdr submap)))))
-
 ;If you want additional libraries to be preloaded and their
 ;doc strings kept in the DOC file rather than in core,
 ;you may load them with a "site-load.el" file.