map R key to reload bundles

autoload/vundle/scripts.vim

@@ -1,5 +1,6 @@
 func! vundle#scripts#all(bang, ...)
-  let info = ['"Keymap: i - Install bundle; c - Cleanup; r - Refine list']
+  let b:match = ''
+  let info = ['"Keymap: i - Install bundle; c - Cleanup; r - Refine list; R - Reload list']
   if a:1== '' " whether refine search string given
     let matches = s:load_scripts(a:bang)
     call s:display(info, matches)
@@ -9,10 +10,16 @@ func! vundle#scripts#all(bang, ...)
     let @/=a:1
     " TODO: highlight doesn't work
     setl hls
+    let b:match = a:1
   endif
   echo len(matches).' bundles found'
 endf
 
+func! vundle#scripts#reload() abort
+  silent exec ':Bundles! '.(exists('b:match') ? b:match : '')
+  redraw!
+endf
+
 func! vundle#scripts#complete(a,c,d)
   return join(s:load_scripts(0),"\n")
 endf

ftplugin/vundle.vim

@@ -8,3 +8,4 @@ nnoremap <buffer> i :call vundle#scripts#install()<CR>
 nnoremap <buffer> r :Bundles 
 nnoremap <buffer> c :BundleClean<CR>
 nnoremap <buffer> C :BundleClean!<CR>
+nnoremap <buffer> R :call vundle#scripts#reload()<CR>