From 56fac4dbdaf3b4c1fae36bb5595e660ce742c823 Mon Sep 17 00:00:00 2001 From: Yegappan Lakshmanan Date: Sun, 10 Sep 2006 00:00:00 +0000 Subject: [PATCH] Version 4.1 When the Tlist_File_Fold_Auto_Close variable is set to 1, jumping to the taglist window closes all the folds. Modified the plugin to not close the fold for the currently active file. When the TlistLock and TlistUnlock commands are invoked, an error message is displayed. This problem is fixed. --- plugin/taglist.vim | 67 ++++++++++++++++++++++++---------------------- 1 file changed, 35 insertions(+), 32 deletions(-) diff --git a/plugin/taglist.vim b/plugin/taglist.vim index 62d074d..d375a6e 100644 --- a/plugin/taglist.vim +++ b/plugin/taglist.vim @@ -1,7 +1,15 @@ " File: taglist.vim " Author: Yegappan Lakshmanan (yegappan AT yahoo DOT com) -" Version: 4.0 -" Last Modified: September 6, 2006 +" Version: 4.1 +" Last Modified: September 10, 2006 +" Copyright: Copyright (C) 2002-2006 Yegappan Lakshmanan +" Permission is hereby granted to use and distribute this code, +" with or without modifications, provided that this copyright +" notice is copied with it. Like anything else that's free, +" taglist.vim is provided *as is* and comes with no warranty of any +" kind, either expressed or implied. In no event will the copyright +" holder be liable for any damamges resulting from the use of this +" software. " " The "Tag List" plugin is a source code browser plugin for Vim and provides " an overview of the structure of the programming language files and allows @@ -274,8 +282,8 @@ if !exists('loaded_taglist') \ call s:Tlist_Session_Load() command! -nargs=* -complete=file TlistSessionSave \ call s:Tlist_Session_Save() - command! TlistLock -bar let Tlist_Auto_Update=0 - command! TlistUnlock -bar let Tlist_Auto_Update=1 + command! -bar TlistLock let Tlist_Auto_Update=0 + command! -bar TlistUnlock let Tlist_Auto_Update=1 " Commands for enabling/disabling debug and to display debug messages command! -nargs=? -complete=file -bar TlistDebug @@ -649,7 +657,7 @@ let s:tlist_file_name_idx_cache = -1 " Tlist_Get_File_Index() " Return the index of the specified filename function! s:Tlist_Get_File_Index(fname) - if s:tlist_file_count == 0 + if s:tlist_file_count == 0 || a:fname == '' return -1 endif @@ -1587,8 +1595,8 @@ function! s:Tlist_Window_Init() autocmd BufUnload __Tag_List__ call s:Tlist_Post_Close_Cleanup() " Close the fold for this buffer when leaving the buffer if g:Tlist_File_Fold_Auto_Close - autocmd BufWinLeave,BufLeave * silent - \ call s:Tlist_Window_Close_File_Fold(expand(':p')) + autocmd BufEnter * silent + \ call s:Tlist_Window_Open_File_Fold(expand(':p')) endif " Exit Vim itself if only the taglist window is present (optional) if g:Tlist_Exit_OnlyWindow @@ -2252,7 +2260,7 @@ function! s:Tlist_Process_File(filename, ftype) let ttype = s:Tlist_Extract_Tagtype(one_line) " Make sure the tag type is a valid and supported one - if ttype == '' || stridx(s:ctags_flags, ttype) == -1 + if ttype == '' || stridx(ctags_flags, ttype) == -1 " Line is not in proper tags format or Tag type is not " supported continue @@ -3829,14 +3837,11 @@ endfunction " When a buffer is deleted, remove the file from the taglist autocmd BufDelete * silent call s:Tlist_Buffer_Removed(expand(':p')) -" Tlist_Window_Close_File_Fold -" Close the fold for the specified file -function! s:Tlist_Window_Close_File_Fold(filename) - call s:Tlist_Log_Msg('Tlist_Window_Close_File_Fold (' . a:filename . ')') - " Make sure a valid filename is supplied - if a:filename == '' - return - endif +" Tlist_Window_Open_File_Fold +" Open the fold for the specified file and close the fold for all the +" other files +function! s:Tlist_Window_Open_File_Fold(filename) + call s:Tlist_Log_Msg('Tlist_Window_Open_File_Fold (' . a:filename . ')') " Make sure the taglist window is present let winnum = bufwinnr(g:TagList_title) @@ -3845,13 +3850,6 @@ function! s:Tlist_Window_Close_File_Fold(filename) return endif - " Get tag list index of the specified file - let fidx = s:Tlist_Get_File_Index(a:filename) - if fidx == -1 - " File not present in the taglist window - return - endif - " Save the original window number let org_winnr = winnr() if org_winnr == winnum @@ -3860,21 +3858,26 @@ function! s:Tlist_Window_Close_File_Fold(filename) let in_taglist_window = 0 endif + if in_taglist_window + " When entering the taglist window, no need to update the folds + return + endif + " Go to the taglist window if !in_taglist_window call s:Tlist_Exe_Cmd_No_Acmds(winnum . 'wincmd w') endif - " Save the cursor position - let save_lnum = line('.') + " Close all the folds + silent! %foldclose - " Perform the requested action on the file - " Close the fold for the file - exe "silent! " . s:tlist_{fidx}_start . "," . - \ s:tlist_{fidx}_end . "foldclose" - - " Move the cursor to the original location - exe save_lnum + " Get tag list index of the specified file + let fidx = s:Tlist_Get_File_Index(a:filename) + if fidx != -1 + " Open the fold for the file + exe "silent! " . s:tlist_{fidx}_start . "," . + \ s:tlist_{fidx}_end . "foldopen" + endif " Go back to the original window if !in_taglist_window