mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(mouse-major-mode-menu-1): No need to copy the top

Browse Source 
levels of structure.
This commit is contained in:
Karl Heuer 1996-07-13 00:55:05 +00:00
parent 1f0c496bc5
commit d3e458b053
1 changed files with 1 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lisp/mouse.el
View File

@ -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))))))