Mercurial > hg > xemacs-beta
view lisp/post-gc.el @ 5083:88f955fa5a7f
Back out revision c673987f5f3d, undump mule/make-coding-system.el.
lisp/ChangeLog addition:
2010-02-26 Aidan Kehoe <kehoea@parhasard.net>
Back out Ben's revision c673987f5f3d.
* coding.el:
Add a compiler macro for #'make-coding-system on non-Mule builds
too, to fix the problem he addressed with that changeset.
* mule/make-coding-system.el (fixed-width-private-use-start):
Don't call (decode-char ... 'ucs) here, it can make bootstrapping
harder.
src/ChangeLog addition:
2010-02-26 Aidan Kehoe <kehoea@parhasard.net>
* file-coding.c (Fmake_coding_system_internal):
Be somewhat clearer in this docstring, especially for the sake of
people running non-Mule builds who will see this docstring when
they do F1 f make-coding-system RET.
author | Aidan Kehoe <kehoea@parhasard.net> |
---|---|
date | Fri, 26 Feb 2010 15:52:24 +0000 (2010-02-26) |
parents | 75b8038f720e |
children | d27c1ee1943b 308d34e9f07d |
line wrap: on
line source
;;; post-gc.el --- post-gc actions ;; Copyright (C) 1985-1986, 1990, 1992-1997 Free Software Foundation, Inc. ;; Copyright (c) 1993, 1994 Sun Microsystems, Inc. ;; Copyright (C) 1995 Board of Trustees, University of Illinois ;; Author: Mike Sperber <mike@xemacs.org> ;; Maintainer: XEmacs Development Team ;; Keywords: internal, dumped ;; This file is part of XEmacs. ;; XEmacs is free software; you can redistribute it and/or modify it ;; under the terms of the GNU General Public License as published by ;; the Free Software Foundation; either version 2, or (at your option) ;; any later version. ;; XEmacs is distributed in the hope that it will be useful, but ;; WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ;; General Public License for more details. ;; You should have received a copy of the GNU General Public License ;; along with XEmacs; see the file COPYING. If not, write to the ;; Free Software Foundation, 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. ;;; Synched up with: Not in FSF. ;;; Commentary: ;; This file is dumped with XEmacs. ;; This file defines actions to happen after each GC to perform ;; additional cleanup, call finalizers, etc. (defun run-finalizers (alist) "Run the finalizers for all objects that have just become unreachable." (let ((info (assq 'finalize-list alist))) (if info (let ((finalize-list (cdr info))) (while finalize-list (funcall (cdr (car finalize-list)) (car (car finalize-list))) (setq finalize-list (cdr finalize-list))))))) (add-hook 'post-gc-hook 'run-finalizers) (defvar simple-finalizer-ephemerons '() "List of ephemerons for objects that have a finalizer attached..") (defun add-finalizer (object func) "Add FUNC as a finalizer for object OBJECT." (setq simple-finalizer-ephemerons (cons (make-ephemeron object object func) simple-finalizer-ephemerons))) (defun cleanup-simple-finalizers (alist) "Clean up `simple-finalizer-ephemerons'." ;; We have to do this by hand because DELETE-IF isn't defined yet. (let ((current simple-finalizer-ephemerons) (prev nil)) (while (not (null current)) (if (not (ephemeron-ref (car current))) (if (null prev) (setq simple-finalizer-ephemerons (cdr current)) (setcdr prev (cdr current))) (setq prev current)) (setq current (cdr current))))) (add-hook 'post-gc-hook 'cleanup-simple-finalizers)