Develop and Download Open Source Software

S 式エディタ

Browse CVS Repository

/[OSDN]/shiki/shiki/xyzzylisp.c

Diff of /shiki/shiki/xyzzylisp.c

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.11 by aloha, Wed Nov 29 14:58:27 2006 UTC revision 1.12 by aloha, Thu Nov 30 14:45:49 2006 UTC
# Line 709  SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT)); Line 709  SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
709  static SCM_DEFINE_STRING_CONST(xyzzylisp_need_buffer_save_p__NAME, "need-buffer-save-p", 18, 18);  static SCM_DEFINE_STRING_CONST(xyzzylisp_need_buffer_save_p__NAME, "need-buffer-save-p", 18, 18);
710  static SCM_DEFINE_SUBR(xyzzylisp_need_buffer_save_p__STUB, 1, 0, SCM_OBJ(&xyzzylisp_need_buffer_save_p__NAME), xyzzylisp_need_buffer_save_p, NULL, NULL);  static SCM_DEFINE_SUBR(xyzzylisp_need_buffer_save_p__STUB, 1, 0, SCM_OBJ(&xyzzylisp_need_buffer_save_p__NAME), xyzzylisp_need_buffer_save_p, NULL, NULL);
711    
712    static ScmObj xyzzylisp_undo(ScmObj *SCM_FP, int SCM_ARGCNT, void *data_)
713    {
714      SCM_ENTER_SUBR("undo");
715      {
716    Shiki_undo();
717    SCM_RETURN(SCM_UNDEFINED);
718      }
719    }
720    
721    static SCM_DEFINE_STRING_CONST(xyzzylisp_undo__NAME, "undo", 4, 4);
722    static SCM_DEFINE_SUBR(xyzzylisp_undo__STUB, 0, 0, SCM_OBJ(&xyzzylisp_undo__NAME), xyzzylisp_undo, NULL, NULL);
723    
724  static ScmObj xyzzylisp_msgbox(ScmObj *SCM_FP, int SCM_ARGCNT, void *data_)  static ScmObj xyzzylisp_msgbox(ScmObj *SCM_FP, int SCM_ARGCNT, void *data_)
725  {  {
726    ScmObj format_scm;    ScmObj format_scm;
# Line 818  void Scm_Init_xyzzylisp(ScmModule *modul Line 830  void Scm_Init_xyzzylisp(ScmModule *modul
830    SCM_DEFINE(module, "yes-or-no-p", SCM_OBJ(&xyzzylisp_yes_or_no_p__STUB));    SCM_DEFINE(module, "yes-or-no-p", SCM_OBJ(&xyzzylisp_yes_or_no_p__STUB));
831    SCM_DEFINE(module, "no-or-yes-p", SCM_OBJ(&xyzzylisp_no_or_yes_p__STUB));    SCM_DEFINE(module, "no-or-yes-p", SCM_OBJ(&xyzzylisp_no_or_yes_p__STUB));
832    SCM_DEFINE(module, "need-buffer-save-p", SCM_OBJ(&xyzzylisp_need_buffer_save_p__STUB));    SCM_DEFINE(module, "need-buffer-save-p", SCM_OBJ(&xyzzylisp_need_buffer_save_p__STUB));
833      SCM_DEFINE(module, "undo", SCM_OBJ(&xyzzylisp_undo__STUB));
834    SCM_DEFINE(module, "msgbox", SCM_OBJ(&xyzzylisp_msgbox__STUB));    SCM_DEFINE(module, "msgbox", SCM_OBJ(&xyzzylisp_msgbox__STUB));
835    SCM_DEFINE(module, "current-line-number", SCM_OBJ(&xyzzylisp_current_line_number__STUB));    SCM_DEFINE(module, "current-line-number", SCM_OBJ(&xyzzylisp_current_line_number__STUB));
836    SCM_DEFINE(module, "current-column", SCM_OBJ(&xyzzylisp_current_column__STUB));    SCM_DEFINE(module, "current-column", SCM_OBJ(&xyzzylisp_current_column__STUB));
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
Back to OSDN">Back to OSDN
 ViewVC Help
Powered by ViewVC 1.1.26  
About OSDN
Find Software
Develop Software
Help