Changeset 3794
- Timestamp:
- 09/15/03 16:18:13 (20 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/j/src/org/armedbear/j/LispAPI.java
r3192 r3794 3 3 * 4 4 * Copyright (C) 2003 Peter Graves 5 * $Id: LispAPI.java,v 1.2 4 2003-08-02 21:55:37piso Exp $5 * $Id: LispAPI.java,v 1.25 2003-09-15 16:18:13 piso Exp $ 6 6 * 7 7 * This program is free software; you can redistribute it and/or … … 39 39 import org.armedbear.lisp.Primitive3; 40 40 import org.armedbear.lisp.Primitive; 41 import org.armedbear.lisp.Primitives; 41 42 import org.armedbear.lisp.Symbol; 42 43 import org.armedbear.lisp.TypeError; … … 772 773 }; 773 774 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 774 799 static { 775 800 for (Iterator it = Property.iterator(); it.hasNext();)
Note: See TracChangeset
for help on using the changeset viewer.