diff options
| author | Karl Heuer <kwzh@gnu.org> | 1996-07-13 00:55:05 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1996-07-13 00:55:05 +0000 |
| commit | d3e458b05384b5d7bd76a770815f012845165dc0 (patch) | |
| tree | 18bb8e8c2704f2d2fe34587fe0e5580671b9cc1d /lisp/mouse.el | |
| parent | 1f0c496bc5ddc4259731f04bd5d3c4e1d3906ac9 (diff) | |
| download | emacs-d3e458b05384b5d7bd76a770815f012845165dc0.tar.gz | |
(mouse-major-mode-menu-1): No need to copy the top
levels of structure.
Diffstat (limited to 'lisp/mouse.el')
| -rw-r--r-- | lisp/mouse.el | 19 |
1 files changed, 1 insertions, 18 deletions
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)))))) |