* test/automated/keymaps-test.el: Fix test to make it repeatable

(keymap-store_in_keymap-FASTINT-on-nonchars): Reset Buffer-menu-mode-map
entry to its initial value to make the test repeatable in interactive
sessions (assuming it doesn't fail and crashes Emacs, of course).

diff --git a/test/automated/keymap-tests.el b/test/automated/keymap-tests.el
index 482ed27cd4fb3469c48bbd169b9b2a31cf726328..973b24073913d4bf3fc6e119da7c5d0e1849642d 100644 (file)
--- a/test/automated/keymap-tests.el
+++ b/test/automated/keymap-tests.el
@@ -26,13 +26,17 @@
 (ert-deftest keymap-store_in_keymap-FASTINT-on-nonchars ()
   "Check for bug fixed in \"Fix assertion violation in define-key\",
 commit 86c19714b097aa477d339ed99ffb5136c755a046."
-  (should-not (eq (lookup-key Buffer-menu-mode-map [32]) 'undefined))
-  ;; This will cause an assertion violation if the bug is present.
-  ;; We could run an inferior Emacs process and check for the return
-  ;; status, but in some environments an assertion failure triggers
-  ;; an abort dialog that requires user intervention anyway.
-  (define-key Buffer-menu-mode-map [(32 . 126)] 'undefined)
-  (should (eq (lookup-key Buffer-menu-mode-map [32]) 'undefined)))
+  (let ((def (lookup-key Buffer-menu-mode-map [32])))
+    (unwind-protect
+        (progn
+          (should-not (eq def 'undefined))
+          ;; This will cause an assertion violation if the bug is present.
+          ;; We could run an inferior Emacs process and check for the return
+          ;; status, but in some environments an assertion failure triggers
+          ;; an abort dialog that requires user intervention anyway.
+          (define-key Buffer-menu-mode-map [(32 . 32)] 'undefined)
+          (should (eq (lookup-key Buffer-menu-mode-map [32]) 'undefined)))
+      (define-key Buffer-menu-mode-map [32] def))))
 
 (provide 'keymap-tests)