Changeset 3795

Timestamp:

09/15/03 16:18:57 (20 years ago)

Author:

piso

Message:

OPEN-FILE-HOOK, AFTER-SAVE-HOOK

File:

• trunk/j/src/org/armedbear/lisp/j.lisp (modified) (2 diffs)

trunk/j/src/org/armedbear/lisp/j.lisp

@@ -14 +14 @@
           status
           defcommand
+          open-file-hook
+          after-save-hook
           key-pressed-hook
           variable-value
@@ -86 +88 @@
          (lambda () (execute-command ,command))))
 
+(defvar open-file-hook nil)
+
+(defvar after-save-hook nil)
+
 (defvar key-pressed-hook nil)