Changeset 3794


Ignore:
Timestamp:
09/15/03 16:18:13 (20 years ago)
Author:
piso
Message:

invokeOpenFileHook(), invokeAfterSaveHook()

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/j/LispAPI.java

    r3192 r3794  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: LispAPI.java,v 1.24 2003-08-02 21:55:37 piso Exp $
     5 * $Id: LispAPI.java,v 1.25 2003-09-15 16:18:13 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    3939import org.armedbear.lisp.Primitive3;
    4040import org.armedbear.lisp.Primitive;
     41import org.armedbear.lisp.Primitives;
    4142import org.armedbear.lisp.Symbol;
    4243import org.armedbear.lisp.TypeError;
     
    772773    };
    773774
     775    public static void invokeOpenFileHook(Buffer buffer)
     776    {
     777        try {
     778            Primitives.FUNCALL.execute(PACKAGE_J.intern("INVOKE-HOOK"),
     779                                       PACKAGE_J.intern("OPEN-FILE-HOOK"),
     780                                       new JavaObject(buffer));
     781        }
     782        catch (Throwable t) {
     783            Log.debug(t);
     784        }
     785    }
     786
     787    public static void invokeAfterSaveHook(Buffer buffer)
     788    {
     789        try {
     790            Primitives.FUNCALL.execute(PACKAGE_J.intern("INVOKE-HOOK"),
     791                                       PACKAGE_J.intern("AFTER-SAVE-HOOK"),
     792                                       new JavaObject(buffer));
     793        }
     794        catch (Throwable t) {
     795            Log.debug(t);
     796        }
     797    }
     798
    774799    static {
    775800        for (Iterator it = Property.iterator(); it.hasNext();)
Note: See TracChangeset for help on using the changeset viewer.