home *** CD-ROM | disk | FTP | other *** search
/ vim.ftp.fu-berlin.de / 2015-02-03.vim.ftp.fu-berlin.de.tar / vim.ftp.fu-berlin.de / patches / 6.1.125 < prev    next >
Encoding:
Internet Message Format  |  2002-07-05  |  4.3 KB
  1. To: vim-dev@vim.org
  2. Subject: Patch 6.1.125
  3. Fcc: outbox
  4. From: Bram Moolenaar <Bram@moolenaar.net>
  5. MIME-Version: 1.0
  6. Content-Type: text/plain; charset=ISO-8859-1
  7. Content-Transfer-Encoding: 8bit
  8. ------------
  9.  
  10. Patch 6.1.125
  11. Problem:    Explorer plugin asks for saving a modified buffer even when it's
  12.         open in another window as well.
  13. Solution:   Count the number of windows using the buffer.
  14. Files:        runtime/plugin/explorer.vim
  15.  
  16.  
  17. *** ../vim61.124/runtime/plugin/explorer.vim    Sat Feb 16 11:50:58 2002
  18. --- runtime/plugin/explorer.vim    Wed Jun 12 22:05:16 2002
  19. ***************
  20. *** 1,7 ****
  21.   "=============================================================================
  22.   " File: explorer.vim
  23.   " Author: M A Aziz Ahmed (aziz@acorn-networks.com)
  24. ! " Last Change:    2002 Feb 16
  25.   " Version: 2.5 + changes
  26.   " Additions by Mark Waggoner (waggoner@aracnet.com) et al.
  27.   "-----------------------------------------------------------------------------
  28. --- 1,7 ----
  29.   "=============================================================================
  30.   " File: explorer.vim
  31.   " Author: M A Aziz Ahmed (aziz@acorn-networks.com)
  32. ! " Last Change:    2002 Jun 12
  33.   " Version: 2.5 + changes
  34.   " Additions by Mark Waggoner (waggoner@aracnet.com) et al.
  35.   "-----------------------------------------------------------------------------
  36. ***************
  37. *** 332,337 ****
  38. --- 332,356 ----
  39.   endfunction
  40.   
  41.   "---
  42. + " Determine the number of windows open to this buffer number.
  43. + " Care of Yegappan Lakshman.  Thanks!
  44. + fun! s:BufInWindows(bnum)
  45. +   let cnt = 0
  46. +   let winnum = 1
  47. +   while 1
  48. +     let bufnum = winbufnr(winnum)
  49. +     if bufnum < 0
  50. +       break
  51. +     endif
  52. +     if bufnum == a:bnum
  53. +       let cnt = cnt + 1
  54. +     endif
  55. +     let winnum = winnum + 1
  56. +   endwhile
  57. + 
  58. +   return cnt
  59. + endfunction
  60. + 
  61.   " If this is the only window, open file in a new window
  62.   " Otherwise, open file in the most recently visited window
  63.   "
  64. ***************
  65. *** 344,371 ****
  66.       call s:OpenEntry()
  67.     " Other windows exist
  68.     else
  69. !     " Check if the previous buffer is modified - ask if they want to
  70. !     " save!
  71. !     let bufname = bufname(winbufnr(winnr()))
  72. !     if &modified
  73.         let action=confirm("Save Changes in " . bufname . "?","&Yes\n&No\n&Cancel")
  74.         " Yes - try to save - if there is an error, cancel
  75.         if action == 1
  76. !     let v:errmsg = ""
  77. !     silent w
  78. !     if v:errmsg != ""
  79. !       echoerr "Unable to write buffer!"
  80. !       wincmd p
  81. !       return
  82. !     endif
  83.         " No, abandon changes
  84.         elseif action == 2
  85. !     set nomodified
  86. !     echomsg "Warning, abandoning changes in " . bufname
  87.         " Cancel (or any other result), don't do the open
  88.         else
  89. !     wincmd p
  90. !     return
  91.         endif
  92.       endif
  93.       wincmd p
  94. --- 363,391 ----
  95.       call s:OpenEntry()
  96.     " Other windows exist
  97.     else
  98. !     " Check if the previous buffer is modified - ask if they want to save!
  99. !     " Was it modified, and is it the only window open to this file
  100. !     if &modified && s:BufInWindows(winbufnr(winnr())) < 2
  101. !       let bufname = bufname(winbufnr(winnr()))
  102. ! 
  103.         let action=confirm("Save Changes in " . bufname . "?","&Yes\n&No\n&Cancel")
  104.         " Yes - try to save - if there is an error, cancel
  105.         if action == 1
  106. !         let v:errmsg = ""
  107. !         silent w
  108. !         if v:errmsg != ""
  109. !           echoerr "Unable to write buffer!"
  110. !           wincmd p
  111. !           return
  112. !         endif
  113.         " No, abandon changes
  114.         elseif action == 2
  115. !         set nomodified
  116. !         echomsg "Warning, abandoning changes in " . bufname
  117.         " Cancel (or any other result), don't do the open
  118.         else
  119. !         wincmd p
  120. !         return
  121.         endif
  122.       endif
  123.       wincmd p
  124. *** ../vim61.124/src/version.c    Thu Jul  4 21:59:55 2002
  125. --- src/version.c    Sat Jul  6 19:30:38 2002
  126. ***************
  127. *** 608,609 ****
  128. --- 608,611 ----
  129.   {   /* Add new patch number below this line */
  130. + /**/
  131. +     125,
  132.   /**/
  133.  
  134. -- 
  135. BEDEVERE: How do you know so much about swallows?
  136. ARTHUR:   Well you have to know these things when you're a king, you know.
  137.                  "Monty Python and the Holy Grail" PYTHON (MONTY) PICTURES LTD
  138.  
  139.  ///  Bram Moolenaar -- Bram@moolenaar.net -- http://www.moolenaar.net  \\\
  140. ///   Creator of Vim -- http://vim.sf.net -- ftp://ftp.vim.org/pub/vim   \\\
  141. \\\           Project leader for A-A-P -- http://www.a-a-p.org           ///
  142.  \\\  Help me helping AIDS orphans in Uganda - http://iccf-holland.org  ///
  143.