[Emacs-diffs] trunk r116836: Avoid GC crashes.

[Richard M. Stallman]

------------------------------------------------------------
revno: 116836
revision-id: address@hidden
parent: address@hidden
author: Richard Stallman
committer: Richard Stallman <address@hidden>
branch nick: trunk
timestamp: Fri 2014-03-21 19:16:26 -0400
message:
  Avoid GC crashes.
  
  * lisp/subr.el (set-transient-map): Clear out function and value
  of the temporary symbol when we're done with it.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/subr.el                   subr.el-20091113204419-o5vbwnq5f7feedwu-151

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-03-21 23:09:02 +0000
+++ b/lisp/ChangeLog    2014-03-21 23:16:26 +0000
@@ -1,5 +1,8 @@
 2014-03-21  Richard Stallman  <address@hidden>
 
+       * 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.

=== modified file 'lisp/subr.el'
--- a/lisp/subr.el      2014-03-01 03:54:47 +0000
+++ b/lisp/subr.el      2014-03-21 23:16:26 +0000
@@ -4312,7 +4312,10 @@
                        (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)))