Develop and Download Open Source Software

Browse CVS Repository

Diff of /shiki/shiki/buffer.c

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

revision 1.16 by aloha, Sat Feb 3 09:48:01 2007 UTC revision 1.17 by aloha, Sat Feb 3 11:23:38 2007 UTC
# Line 260  GtkTextBuffer *Shiki_new_buffer_create(g Line 260  GtkTextBuffer *Shiki_new_buffer_create(g
260    tabinfo->tabpage_label = g_strndup(tabinfo->name, 10);    tabinfo->tabpage_label = g_strndup(tabinfo->name, 10);
261    tabinfo->env           = Scm_MakeModule(NULL, FALSE);    tabinfo->env           = Scm_MakeModule(NULL, FALSE);
262    
263      /* 環境が GC されるのを防ぐ */
264      Scm_Define(SCM_CURRENT_MODULE(), SCM_SYMBOL(SCM_INTERN(tabinfo->name)), tabinfo->env);  
265    
266    /* xyzzy lisp 関数を登録 */    /* xyzzy lisp 関数を登録 */
267    Scm_Init_xyzzylisp(SCM_MODULE(tabinfo->env));    Scm_Init_xyzzylisp(SCM_MODULE(tabinfo->env));
268    
# Line 378  void Shiki_delete_buffer(GtkTextBuffer * Line 381  void Shiki_delete_buffer(GtkTextBuffer *
381    /* タブが 1 つしか残っていなかったら消させない */    /* タブが 1 つしか残っていなかったら消させない */
382    if(g_list_length(Shiki_EDITOR_BUFFER_LIST) == 1)    if(g_list_length(Shiki_EDITOR_BUFFER_LIST) == 1)
383      return;      return;
384    
385      /* Scheme 世界の束縛を絶つ */
386      Scm_Define(SCM_CURRENT_MODULE(), SCM_SYMBOL(SCM_INTERN(tabInfo->name)), SCM_FALSE);
387    
388    /* デリートハンドラをエディタトップレベルのウィジットから取り除く */    /* デリートハンドラをエディタトップレベルのウィジットから取り除く */
389    g_signal_handler_disconnect(Shiki_EDITOR_WINDOW, tabInfo->delete_handler_id);    g_signal_handler_disconnect(Shiki_EDITOR_WINDOW, tabInfo->delete_handler_id);
390    Shiki_EDITOR_BUFFER_LIST = g_list_delete_link(Shiki_EDITOR_BUFFER_LIST, bufListElem);      Shiki_EDITOR_BUFFER_LIST = g_list_delete_link(Shiki_EDITOR_BUFFER_LIST, bufListElem);  

Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26