(tmm-get-keybind): Use copy-sequence to ensure that the

global map isn't modified

diff --git a/lisp/tmm.el b/lisp/tmm.el
index 087d864d0c3a9ccbd0908a763544dcf2d7d083a3..f70a8cd2ea2722752af3ad345d9538d1d1b11653 100644 (file)
--- a/lisp/tmm.el
+++ b/lisp/tmm.el
@@ -541,7 +541,7 @@ of `menu-bar-final-items'."
          ;; Make a list of all the bindings in all the keymaps.
          (setq minorbind (mapcar 'cdr (minor-mode-key-binding keyseq)))
          (setq localbind (local-key-binding keyseq))
-         (setq globalbind (cdr (global-key-binding keyseq)))
+         (setq globalbind (copy-sequence (cdr (global-key-binding keyseq))))
 
          ;; If items have been redefined/undefined locally, remove them from
          ;; the global list.