3ef2ca
To: vim_dev@googlegroups.com
3ef2ca
Subject: Patch 7.4.199
3ef2ca
Fcc: outbox
3ef2ca
From: Bram Moolenaar <Bram@moolenaar.net>
3ef2ca
Mime-Version: 1.0
3ef2ca
Content-Type: text/plain; charset=UTF-8
3ef2ca
Content-Transfer-Encoding: 8bit
3ef2ca
------------
3ef2ca
3ef2ca
Patch 7.4.199
3ef2ca
Problem:    (issue 197) ]P doesn't paste over Visual selection.
3ef2ca
Solution:   Handle Visual mode specifically. (Christian Brabandt)
3ef2ca
Files:	    src/normal.c
3ef2ca
3ef2ca
3ef2ca
*** ../vim-7.4.198/src/normal.c	2014-02-23 23:38:58.824760280 +0100
3ef2ca
--- src/normal.c	2014-03-12 17:33:28.184831049 +0100
3ef2ca
***************
3ef2ca
*** 6751,6760 ****
3ef2ca
      {
3ef2ca
  	if (!checkclearop(cap->oap))
3ef2ca
  	{
3ef2ca
  	    prep_redo_cmd(cap);
3ef2ca
! 	    do_put(cap->oap->regname,
3ef2ca
! 	      (cap->cmdchar == ']' && cap->nchar == 'p') ? FORWARD : BACKWARD,
3ef2ca
! 						  cap->count1, PUT_FIXINDENT);
3ef2ca
  	}
3ef2ca
      }
3ef2ca
  
3ef2ca
--- 6751,6808 ----
3ef2ca
      {
3ef2ca
  	if (!checkclearop(cap->oap))
3ef2ca
  	{
3ef2ca
+ 	    int	    dir = (cap->cmdchar == ']' && cap->nchar == 'p')
3ef2ca
+ 							 ? FORWARD : BACKWARD;
3ef2ca
+ 	    int	    regname = cap->oap->regname;
3ef2ca
+ #ifdef FEAT_VISUAL
3ef2ca
+ 	    int	    was_visual = VIsual_active;
3ef2ca
+ 	    int	    line_count = curbuf->b_ml.ml_line_count;
3ef2ca
+ 	    pos_T   start, end;
3ef2ca
+ 
3ef2ca
+ 	    if (VIsual_active)
3ef2ca
+ 	    {
3ef2ca
+ 		start = ltoreq(VIsual, curwin->w_cursor)
3ef2ca
+ 						  ? VIsual : curwin->w_cursor;
3ef2ca
+ 		end =  equalpos(start,VIsual) ? curwin->w_cursor : VIsual;
3ef2ca
+ 		curwin->w_cursor = (dir == BACKWARD ? start : end);
3ef2ca
+ 	    }
3ef2ca
+ #endif
3ef2ca
+ # ifdef FEAT_CLIPBOARD
3ef2ca
+ 	    adjust_clip_reg(&regname);
3ef2ca
+ # endif
3ef2ca
  	    prep_redo_cmd(cap);
3ef2ca
! 
3ef2ca
! 	    do_put(regname, dir, cap->count1, PUT_FIXINDENT);
3ef2ca
! #ifdef FEAT_VISUAL
3ef2ca
! 	    if (was_visual)
3ef2ca
! 	    {
3ef2ca
! 		VIsual = start;
3ef2ca
! 		curwin->w_cursor = end;
3ef2ca
! 		if (dir == BACKWARD)
3ef2ca
! 		{
3ef2ca
! 		    /* adjust lines */
3ef2ca
! 		    VIsual.lnum += curbuf->b_ml.ml_line_count - line_count;
3ef2ca
! 		    curwin->w_cursor.lnum +=
3ef2ca
! 				      curbuf->b_ml.ml_line_count - line_count;
3ef2ca
! 		}
3ef2ca
! 
3ef2ca
! 		VIsual_active = TRUE;
3ef2ca
! 		if (VIsual_mode == 'V')
3ef2ca
! 		{
3ef2ca
! 		    /* delete visually selected lines */
3ef2ca
! 		    cap->cmdchar = 'd';
3ef2ca
! 		    cap->nchar = NUL;
3ef2ca
! 		    cap->oap->regname = regname;
3ef2ca
! 		    nv_operator(cap);
3ef2ca
! 		    do_pending_operator(cap, 0, FALSE);
3ef2ca
! 		}
3ef2ca
! 		if (VIsual_active)
3ef2ca
! 		{
3ef2ca
! 		    end_visual_mode();
3ef2ca
! 		    redraw_later(SOME_VALID);
3ef2ca
! 		}
3ef2ca
! 	    }
3ef2ca
! #endif
3ef2ca
  	}
3ef2ca
      }
3ef2ca
  
3ef2ca
*** ../vim-7.4.198/src/version.c	2014-03-12 17:08:01.508807656 +0100
3ef2ca
--- src/version.c	2014-03-12 17:30:36.908828425 +0100
3ef2ca
***************
3ef2ca
*** 740,741 ****
3ef2ca
--- 740,743 ----
3ef2ca
  {   /* Add new patch number below this line */
3ef2ca
+ /**/
3ef2ca
+     199,
3ef2ca
  /**/
3ef2ca
3ef2ca
-- 
3ef2ca
No man may purchase alcohol without written consent from his wife.
3ef2ca
		[real standing law in Pennsylvania, United States of America]
3ef2ca
3ef2ca
 /// Bram Moolenaar -- Bram@Moolenaar.net -- http://www.Moolenaar.net   \\\
3ef2ca
///        sponsor Vim, vote for features -- http://www.Vim.org/sponsor/ \\\
3ef2ca
\\\  an exciting new programming language -- http://www.Zimbu.org        ///
3ef2ca
 \\\            help me help AIDS victims -- http://ICCF-Holland.org    ///