Revert subr.el workaround for GC bug.

* subr.el (set-transient-map): Comment out previous change.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 294eb11069186da59425845293521618e419beb4..f754e5e852b060419fafc44845b15cf81a05efe1 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2014-04-02  Richard Stallman  <rms@gnu.org>
+
+       * subr.el (set-transient-map): Comment out previous change.
+
 2014-04-02  Glenn Morris  <rgm@gnu.org>
 
        * menu-bar.el (menu-bar-file-menu):

diff --git a/lisp/subr.el b/lisp/subr.el
index 38ded7d70be79819893a825783042738982d8d68..79d90862ed5f3db91c5ff34d5ec94555f4b82995 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -4316,8 +4316,9 @@ lookup sequence then continues."
                 (remove-hook 'pre-command-hook clearfun)
                (when on-exit (funcall on-exit))
 ;; Comment out the fset if you want to debug the GC bug.
-               (fset clearfun nil)
-                (set clearfun nil)))))
+;;;            (fset clearfun nil)
+;;;             (set clearfun nil)
+               ))))
     (add-hook 'pre-command-hook clearfun)
     (internal-push-keymap map 'overriding-terminal-local-map)))