Version 1.5

NF: The yankring now respects the cpoptions setting, if 'y' is included and you press '.', the previous yank command is executed and added to the yankring.  You can also add this behaviour by setting this in your |vimrc|:
       let g:yankring_dot_repeat_yank = 1

NF: Duplicates will not be added to the yankring by default.  If a duplicate is found, the element will be moved to the top of the yankring.  This can be controlled by setting this in your |vimrc|:
       let g:yankring_ignore_duplicate = 0 (1 is default)

BF: Regression from version 1.4, the '.' operator may incorrectly insert garbage.

Author: dfishburn

doc/yankring.txt

@@ -43,6 +43,7 @@ For instructions on installing this file, type
        5.8  YRPop.............................: |YRPop-example|
        5.9  Visual modes......................: |yankring-visual-example|
        5.10 Using ranges......................: |YRYankRange-example|
+       5.11 :global...........................: |global-example|
     6. History................................: |yankring-history|
 
 ==============================================================================
@@ -101,6 +102,21 @@ For instructions on installing this file, type
         in the yankring to the fit the size of the Vim window, so that
         a single element does not display over multiple lines. >
             let g:yankring_max_display = 70
+    yankring_dot_repeat_yank
+<       Default: Based on the Vim cpoption setting
+        By default Vim will not repeat (using '.') yanking of text.  This can
+        be controlled via the |'cpoptions'| setting.  The yankring now respects
+        the cpoptions setting, if 'y' is included and you press '.', the
+        previous yank command is repeated and added to the yankring.
+        You can also add this behaviour by setting this in your |vimrc|: >
+            let g:yankring_dot_repeat_yank = 1
+    yankring_ignore_duplicate
+<       Default: 1
+        Duplicates will not be added to the yankring by default.  If a
+        duplicate is found, that element will be moved to the top of the
+        yankring (using YRSetTop).  This can be controlled by setting this in
+        your |vimrc|: >
+            let g:yankring_ignore_duplicate = 0 
     yankring_map_dot
 <       Default: 1
         If the '.' (repeat) command should be mapped by the yankring.
@@ -746,17 +762,41 @@ For instructions on installing this file, type
         :1,4YRYankRange
         :3,$YRDeleteRange
         :YRShow 
+<   
+                                                 *global-example*     
+    Using Vim's |:global| command can be very useful at times.  The example
+    adds all rows (in a buffer) to the yankring if they have a certain
+    phrase: >
+        :g/addme/YRYankCount 'yy'
+<   This is the breakdown for the above command: >
+        :g                  - for each line in the buffer
+        /addme              - check if the string "addme" is in the line
+        /YRYankCount 'yy'   - Ask the yankring to execute the 'yy' command
     
 
 ==============================================================================
 6. History                                       *yankring-history*
 
+  1.5: March 30, 2005: 
+         NF: The yankring now respects the cpoptions setting, if 'y' is
+             included and you press '.', the previous yank command is executed
+             and added to the yankring.  You can also add this behaviour by
+             setting this in your |vimrc|: >
+                let g:yankring_dot_repeat_yank = 1
+<        NF: Duplicates will not be added to the yankring by default.  If
+             a duplicate is found, the element will be moved to the top
+             of the yankring.  This can be controlled by setting this in 
+             your |vimrc|: >
+                let g:yankring_ignore_duplicate = 0 (1 is default)
+<        BF: Regression from version 1.4, the '.' operator may incorrectly
+             insert garbage.
+
   1.4: March 28, 2005: 
          NF: YRToggle has been updated.  If you toggle the yankring off
              (disable) the maps it creates are removed.  Calling YRToggle
              again will recreate the maps.  This truly disables the yankring,
              where the previous version attempted to do this via code.
-         BF: Using the '.' operator was not corrected replaying operations
+         BF: Using the '.' operator was not correctly replaying operations
              that did not move text in some way (g~t_) changed the case
              of the text but a '.' did not replay it.
          BF: When replacing previously pasted text the yankring did not

plugin/yankring.vim

@@ -1,8 +1,8 @@
 " yankring.vim - Yank / Delete Ring for Vim
 " ---------------------------------------------------------------
-" Version:  1.4
+" Version:  1.5
 " Authors:  David Fishburn <[email protected]>
-" Last Modified: Fri Mar 25 2005 11:14:00 PM
+" Last Modified: Tue Mar 29 2005 3:06:25 PM
 " Script:   http://www.vim.org/scripts/script.php?script_id=1234
 " Based On: Mocked up version by Yegappan Lakshmanan
 "           http://groups.yahoo.com/group/vim/post?act=reply&messageNum=34406
@@ -18,7 +18,7 @@ if v:version < 602
   finish
 endif
 
-let loaded_yankring = 14
+let loaded_yankring = 15
 
 " Allow the user to override the # of yanks/deletes recorded
 if !exists('g:yankring_max_history')
@@ -42,6 +42,20 @@ if !exists('g:yankring_max_display')
     let g:yankring_max_display = 0
 endif
 
+" Controls whether the . operator will repeat yank operations
+" The default is based on cpoptions: |cpo-y|
+"	y	A yank command can be redone with ".".
+if !exists('g:yankring_dot_repeat_yank')
+    let g:yankring_dot_repeat_yank = (&cpoptions=~'y'?1:0)
+endif
+
+" Only adds unique items to the yankring.
+" If the item already exists, that element is set as the
+" top of the yankring.
+if !exists('g:yankring_ignore_duplicate')
+    let g:yankring_ignore_duplicate = 1
+endif
+
 " Allow the user to specify what characters to use for the mappings.
 if !exists('g:yankring_n_keys')
     let g:yankring_n_keys = 'yy,dd,yw,dw,ye,de,yE,dE,yiw,diw,yaw,daw,y$,d$,Y,D,yG,dG,ygg,dgg'
@@ -68,6 +82,14 @@ if !exists('g:yankring_paste_n_akey')
     let g:yankring_paste_n_akey = 'p'
 endif
 
+if !exists('g:yankring_paste_v_bkey')
+    let g:yankring_paste_v_bkey = 'P'
+endif
+
+if !exists('g:yankring_paste_v_akey')
+    let g:yankring_paste_v_akey = 'p'
+endif
+
 if !exists('g:yankring_replace_n_pkey')
     let g:yankring_replace_n_pkey = '<C-P>'
 endif
@@ -297,6 +319,10 @@ function! s:YRClear()
     let s:yr_prev_vis_lend    = 0
     let s:yr_prev_vis_cstart  = 0
     let s:yr_prev_vis_cend    = 0
+
+    " This is used to determine if the visual selection should be
+    " reset prior to issuing the YRReplace
+    let s:yr_prev_vis_mode    = 0
 endfunction
 
 
@@ -394,6 +420,23 @@ endfunction
 " Adds this value to the yankring.
 function! s:YRRecord(value) 
 
+    if g:yankring_ignore_duplicate == 1
+        " Ensure the element is not already in the yankring
+        let iter = s:yr_count
+
+        let elem = s:yr_paste_idx
+        " let iter = s:yr_count
+        while iter > 0
+            if getreg(a:value) == s:yr_elem_{elem}
+                exec "YRSetTop ".elem
+                " echomsg "YR: Same as element: ".elem
+                return
+            endif
+            let iter = iter - 1
+            let elem = s:YRGetNextElem(elem, -1)
+        endwhile
+    endif
+
     let s:yr_elem_{s:yr_next_idx}      = getreg(a:value)
     let s:yr_elem_type_{s:yr_next_idx} = getregtype(a:value)
     let s:yr_paste_idx                 = s:yr_next_idx
@@ -427,7 +470,8 @@ function! s:YRSetPrevOP(op_code, count, reg)
     let s:yr_prev_chg_cstart  = col("'[")
     let s:yr_prev_chg_cend    = col("']")
 
-    " TODO
+    " If storing the last change position (using '[, '])
+    " is not good enough, then another option is to:
     " Use :redir on the :changes command
     " and grab the last item.  Store this value
     " and compare it is YRDoRepeat.
@@ -458,6 +502,15 @@ function! s:YRDoRepeat()
                 \ s:yr_prev_chg_cend   == col("']") 
         let dorepeat = 1
     endif
+    " If we are going to repeat check to see if the
+    " previous command was a yank operation.  If so determine
+    " if yank operations are allowed to be repeated.
+    if dorepeat == 1 && s:yr_prev_op_code =~ '^y'
+        " This value be default is set based on cpoptions.
+        if g:yankring_dot_repeat_yank == 0
+            let dorepeat = 0
+        endif
+    endif
     return dorepeat
 endfunction
 
@@ -589,7 +642,7 @@ endfunction
 
 " Paste from either the yankring or from a specified register
 " Optionally a count can be provided, so paste the same value 10 times 
-function! s:YRPaste(replace_last_paste_selection, nextvalue, direction) 
+function! s:YRPaste(replace_last_paste_selection, nextvalue, direction, ...) 
     " Disabling the yankring removes the default maps.
     " But there are some maps the user can create on their own, and 
     " these would most likely call this function.  So place an extra
@@ -603,44 +656,56 @@ function! s:YRPaste(replace_last_paste_selection, nextvalue, direction)
     let default_buffer = ((&clipboard=='unnamed')?'*':'"')
     let v_count = v:count
 
+    " Default command mode to normal mode 'n'
+    let cmd_mode = 'n'
+    if a:0 > 0
+        " Change to visual mode, if command executed via
+        " a visual map
+        let cmd_mode = ((a:1 == 'v') ? 'v' : 'n')
+    endif
+
     " User has decided to bypass the yankring and specify a specific 
     " register
     if user_register != default_buffer
         if a:replace_last_paste_selection == 1
-            " Supports this for example -   5p
-            exec "normal! ".
-                    \ (
-                    \ (v_count > 0)?(v_count):'').
-                    \ (a:direction =~ 'b'?
-                    \ (g:yankring_replace_n_pkey):
-                    \ (g:yankring_replace_n_nkey) 
-                    \ )
+            echomsg 'YR: A register cannot be specified in replace mode'
+            return
         else
             exec "normal! ".
-                    \ ((v_count > 0)?(v_count):'').
-                    \ (user_register==default_buffer?'':'"'.user_register).
-                    \ (a:direction =~ 'b'?'P':'p')
+                        \ ((cmd_mode=='n') ? "" : "gv").
+                        \ ((v_count > 0)?(v_count):'').
+                        \ (user_register==default_buffer?'':'"'.user_register).
+                        \ (a:direction =~ 'b'?'P':'p')
         endif
-        let s:yr_paste_dir = a:direction
+        let s:yr_paste_dir     = a:direction
+        let s:yr_prev_vis_mode = ((cmd_mode=='n') ? 0 : 1)
         return
     endif
 
     " Try to second guess the user to make these mappings less intrusive.
     " If the user hits paste compare the contents of the paste register
     " to the current entry in the yankring.  If they are different, lets
     " assume the user wants the contents of the paste register.
-    " So if they pressed yw (yank word) and hit paste, the yankring
+    " So if they pressed [yt ] (yank to space) and hit paste, the yankring
     " would not have the word in it, so assume they want the word pasted.
     if a:replace_last_paste_selection != 1 
         if s:yr_count > 0
             if getreg(default_buffer) != s:yr_elem_{s:yr_paste_idx}
-                exec 'normal! '.(a:direction =~ 'b'?'P':'p')
-                let s:yr_paste_dir = a:direction
+                exec "normal! ".
+                            \ ((cmd_mode=='n') ? "" : "gv").
+                            \ ((v_count > 0)?(v_count):'').
+                            \ (a:direction =~ 'b'?'P':'p')
+                let s:yr_paste_dir     = a:direction
+                let s:yr_prev_vis_mode = ((cmd_mode=='n') ? 0 : 1)
                 return
             endif
         else
-            exec 'normal! '.(a:direction =~ 'b'?'P':'p')
-            let s:yr_paste_dir = a:direction
+            exec "normal! ".
+                        \ ((cmd_mode=='n') ? "" : "gv").
+                        \ ((v_count > 0)?(v_count):'').
+                        \ (a:direction =~ 'b'?'P':'p')
+            let s:yr_paste_dir     = a:direction
+            let s:yr_prev_vis_mode = ((cmd_mode=='n') ? 0 : 1)
             return
         endif
     endif
@@ -678,10 +743,13 @@ function! s:YRPaste(replace_last_paste_selection, nextvalue, direction)
 
         " First undo the previous paste
         exec "normal! u"
+        " Check if the visual selection should be reselected
         " Next paste the correct item from the ring
         " This is done as separate statements since it appeared that if 
         " there was nothing to undo, the paste never happened.
-        exec "normal! ".((s:yr_paste_dir =~ 'b')?'P':'p')
+        exec "normal! ".
+                    \ ((s:yr_prev_vis_mode==0) ? "" : "gv").
+                    \ ((s:yr_paste_dir =~ 'b')?'P':'p')
         call setreg(default_buffer, save_reg, save_reg_type)
         call s:YRSetPrevOP('', '', '')
     else
@@ -694,16 +762,18 @@ function! s:YRPaste(replace_last_paste_selection, nextvalue, direction)
                     \ , s:yr_elem_{s:yr_paste_idx}
                     \ , s:yr_elem_type_{s:yr_paste_idx})
         exec "normal! ".
-                \ (
-                \ ((v_count > 0)?(v_count):'').
-                \ ((a:direction =~ 'b')?'P':'p')
-                \ )
+                    \ ((cmd_mode=='n') ? "" : "gv").
+                    \ (
+                    \ ((v_count > 0)?(v_count):'').
+                    \ ((a:direction =~ 'b')?'P':'p')
+                    \ )
         call setreg(default_buffer, save_reg, save_reg_type)
         call s:YRSetPrevOP(
                     \ ((a:direction =~ 'b')?'P':'p')
                     \ , v_count
                     \ , default_buffer)
-        let s:yr_paste_dir = a:direction
+        let s:yr_paste_dir     = a:direction
+        let s:yr_prev_vis_mode = ((cmd_mode=='n') ? 0 : 1)
     endif
 
 endfunction
@@ -752,6 +822,12 @@ function! YRMapsCreate()
     if g:yankring_paste_n_akey != ''
         exec 'nnoremap <silent>'.g:yankring_paste_n_akey." :<C-U>YRPaste 'a'<CR>"
     endif
+    if g:yankring_paste_v_bkey != ''
+        exec 'vnoremap <silent>'.g:yankring_paste_v_bkey." :<C-U>YRPaste 'b', 'v'<CR>"
+    endif
+    if g:yankring_paste_v_akey != ''
+        exec 'vnoremap <silent>'.g:yankring_paste_v_akey." :<C-U>YRPaste 'a', 'v'<CR>"
+    endif
     if g:yankring_replace_n_pkey != ''
         exec 'nnoremap <silent>'.g:yankring_replace_n_pkey." :<C-U>YRReplace '-1', 'b'<CR>"
     endif
@@ -806,6 +882,12 @@ function! YRMapsDelete()
     if g:yankring_paste_n_akey != ''
         exec 'nunmap '.g:yankring_paste_n_akey
     endif
+    if g:yankring_paste_v_bkey != ''
+        exec 'vunmap '.g:yankring_paste_v_bkey
+    endif
+    if g:yankring_paste_v_akey != ''
+        exec 'vunmap '.g:yankring_paste_v_akey
+    endif
     if g:yankring_replace_n_pkey != ''
         exec 'nunmap '.g:yankring_replace_n_pkey
     endif