# HG changeset patch
# User Nick Roberts <nickrob@snap.net.nz>
# Date 1176554075 0
# Node ID 4588da3832c664681ca2200476752f627c213ae6
# Parent  775d7060a1201a4da338dc36d27deb7416f48da3
(tmm-get-keybind): Use copy-sequence to ensure that the
global map isn't modified

diff -r 775d7060a120 -r 4588da3832c6 lisp/tmm.el
--- a/lisp/tmm.el	Sat Apr 14 12:33:25 2007 +0000
+++ b/lisp/tmm.el	Sat Apr 14 12:34:35 2007 +0000
@@ -541,7 +541,7 @@
 	  ;; 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.