Avoid GC crashes.

* lisp/subr.el (set-transient-map): Clear out function and value
of the temporary symbol when we're done with it.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7e26346418a02e1ca9b7603c3d658c3d2dccad1b..cdb9c3536a68981e644876639ddf6cc51ec7f3fd 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2014-03-21  Richard Stallman  <rms@gnu.org>
 
+       * subr.el (set-transient-map): Clear out function and value
+       of the temporary symbol when we're done with it.
+
        * mail/rmailsum.el (rmail-summary-delete-forward):
        Optimize case of reaching end and handling count.
        (rmail-summary-mark-deleted): Optimize when N is current msg.

diff --git a/lisp/subr.el b/lisp/subr.el
index e4350bffff858dafe3464ca5b3c06e67d0961095..1246efedeafb757387a396a0388d5ef8c70d153d 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -4312,7 +4312,10 @@ lookup sequence then continues."
                        (t (funcall keep-pred)))
                 (internal-pop-keymap map 'overriding-terminal-local-map)
                 (remove-hook 'pre-command-hook clearfun)
-                (when on-exit (funcall on-exit))))))
+               (when on-exit (funcall on-exit))
+;; Comment out the fset if you want to debug the GC bug.
+               (fset clearfun nil)
+                (set clearfun nil)))))
     (add-hook 'pre-command-hook clearfun)
     (internal-push-keymap map 'overriding-terminal-local-map)))