diff options
| author | Nick Roberts | 2007-04-14 12:34:35 +0000 |
|---|---|---|
| committer | Nick Roberts | 2007-04-14 12:34:35 +0000 |
| commit | e47b701926d690e6a4e6a686656f7c9aafd4b055 (patch) | |
| tree | 9308a6c17e2e3da7f8b393c9c16e688d83e12a63 | |
| parent | 57b213434a27aa13ffa7dc25ca4628a903047317 (diff) | |
| download | emacs-e47b701926d690e6a4e6a686656f7c9aafd4b055.tar.gz emacs-e47b701926d690e6a4e6a686656f7c9aafd4b055.zip | |
(tmm-get-keybind): Use copy-sequence to ensure that the
global map isn't modified
| -rw-r--r-- | lisp/tmm.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/tmm.el b/lisp/tmm.el index 087d864d0c3..f70a8cd2ea2 100644 --- a/lisp/tmm.el +++ b/lisp/tmm.el | |||
| @@ -541,7 +541,7 @@ of `menu-bar-final-items'." | |||
| 541 | ;; Make a list of all the bindings in all the keymaps. | 541 | ;; Make a list of all the bindings in all the keymaps. |
| 542 | (setq minorbind (mapcar 'cdr (minor-mode-key-binding keyseq))) | 542 | (setq minorbind (mapcar 'cdr (minor-mode-key-binding keyseq))) |
| 543 | (setq localbind (local-key-binding keyseq)) | 543 | (setq localbind (local-key-binding keyseq)) |
| 544 | (setq globalbind (cdr (global-key-binding keyseq))) | 544 | (setq globalbind (copy-sequence (cdr (global-key-binding keyseq)))) |
| 545 | 545 | ||
| 546 | ;; If items have been redefined/undefined locally, remove them from | 546 | ;; If items have been redefined/undefined locally, remove them from |
| 547 | ;; the global list. | 547 | ;; the global list. |