From: Karl Heuer <kwzh@gnu.org>
Date: Sat, 13 Jul 1996 00:55:05 +0000 (+0000)
Subject: (mouse-major-mode-menu-1): No need to copy the top
X-Git-Tag: emacs-19.34~205
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d3e458b05384b5d7bd76a770815f012845165dc0;p=emacs.git

(mouse-major-mode-menu-1): No need to copy the top
levels of structure.
---

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 1f7124e90fb..7ffc98c7a9d 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -99,24 +99,7 @@
 		(setq submap (car tail))))
 	  (setq tail (cdr tail)))
 	(if (eq submap t)
-	    ;; We have more than one submap, so we want to
-	    ;; return a keymap just like menubar.
-	    ;; But first copy the top level structure of the menu,
-	    ;; enough so that adding equiv-keys to this copy
-	    ;; won't alter menubar itself.
-	    ;; This is a kludge, and next version
-	    ;; we'll change the menu bar code not to mind
-	    ;; if there are X equiv keys there.
-	    (let ((newmap (copy-sequence menubar)))
-	      (setq menubar newmap)
-	      (while newmap
-		(if (consp (car newmap))
-		    (setcar newmap (cons (car (car newmap))
-					 (cons (nth 1 (car newmap))
-					       (nthcdr 2 (car newmap))))))
-		(setq newmap (cdr newmap)))
-	      (setq mouse-major-mode-menu-prefix nil)
-	      menubar)
+	    menubar
 	  (setq mouse-major-mode-menu-prefix (list (car submap)))
 	  (cdr (cdr submap))))))