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.0.228 < prev    next >
Encoding:
Internet Message Format  |  2002-02-16  |  26.5 KB
  1. To: vim-dev@vim.org
  2. Subject: Patch 6.0.228
  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.0.228
  11. Problem:    After putting text in Visual mode the '] mark is not at the end of
  12.         the put text.
  13.         Undo doesn't work properly when putting a word into a Visual
  14.         selection that spans more than one line.
  15. Solution:   Correct the '] mark for the deleting the Visually selected text.
  16.         #ifdef code that depends on FEAT_VISUAL properly.
  17.         Also fix that "d" crossing line boundary puts '[ just before
  18.         deleted text.
  19.         Fix undo by saving all deleted lines at once.
  20. Files:        src/ex_docmd.c, src/globals.h, src/normal.c, src/ops.c,
  21.         src/structs.h, src/vim.h
  22. *** ../vim60.227/src/ex_docmd.c    Sun Feb 17 13:55:07 2002
  23. --- src/ex_docmd.c    Sun Feb 17 20:22:06 2002
  24. ***************
  25. *** 6276,6282 ****
  26.       eap->forceit = TRUE;
  27.       }
  28.       curwin->w_cursor.lnum = eap->line2;
  29. !     do_put(eap->regname, eap->forceit ? BACKWARD : FORWARD, -1L, 0);
  30.   }
  31.   
  32.   /*
  33. --- 6276,6282 ----
  34.       eap->forceit = TRUE;
  35.       }
  36.       curwin->w_cursor.lnum = eap->line2;
  37. !     do_put(eap->regname, eap->forceit ? BACKWARD : FORWARD, 1L, PUT_LINE);
  38.   }
  39.   
  40.   /*
  41. *** ../vim60.227/src/globals.h    Sun Feb  3 12:42:13 2002
  42. --- src/globals.h    Sun Feb 17 16:23:37 2002
  43. ***************
  44. *** 446,451 ****
  45. --- 447,453 ----
  46.   
  47.   EXTERN int    redo_VIsual_busy INIT(= FALSE);
  48.                   /* TRUE when redoing Visual */
  49. + EXTERN int    did_visual_put INIT(= FALSE); /* TRUE after Visual mode "p" */
  50.   #endif
  51.   
  52.   #ifdef FEAT_MOUSE
  53. *** ../vim60.227/src/normal.c    Sat Feb 16 22:55:56 2002
  54. --- src/normal.c    Sun Feb 17 21:04:42 2002
  55. ***************
  56. *** 1130,1135 ****
  57. --- 1130,1138 ----
  58.   normal_end:
  59.   
  60.       msg_nowait = FALSE;
  61. + #ifdef FEAT_VISUAL
  62. +     did_visual_put = FALSE;
  63. + #endif
  64.   
  65.       /* Reset finish_op, in case it was set */
  66.   #ifdef CURSOR_SHAPE
  67. ***************
  68. *** 1888,1894 ****
  69. --- 1891,1899 ----
  70.       {
  71.           curwin->w_cursor = old_cursor;
  72.       }
  73. + #ifdef FEAT_VISUAL
  74.       oap->block_mode = FALSE;
  75. + #endif
  76.       oap->regname = 0;
  77.       oap->motion_force = NUL;
  78.       }
  79. ***************
  80. *** 7180,7185 ****
  81. --- 7185,7191 ----
  82.   
  83.   /*
  84.    * Handle an operator command.
  85. +  * The actual work is done by do_pending_operator().
  86.    */
  87.       static void
  88.   nv_operator(cap)
  89. ***************
  90. *** 7842,7852 ****
  91. --- 7848,7862 ----
  92.       colnr_T    left, right;
  93.   #endif
  94.       int        dir;
  95. +     int        flags = 0;
  96.   
  97.       if (cap->oap->op_type != OP_NOP)
  98.       clearopbeep(cap->oap);
  99.       else
  100.       {
  101. +     dir = (cap->cmdchar == 'P'
  102. +         || (cap->cmdchar == 'g' && cap->nchar == 'P'))
  103. +                              ? BACKWARD : FORWARD;
  104.   #ifdef FEAT_VISUAL
  105.       if (VIsual_active)
  106.       {
  107. ***************
  108. *** 7866,7881 ****
  109.           if (VIsual_mode == 'v' && *p_sel == 'e')
  110.           dir = BACKWARD;
  111.           else
  112.           dir = FORWARD;
  113.       }
  114. -     else
  115.   #endif
  116. -         dir = (cap->cmdchar == 'P'
  117. -             || (cap->cmdchar == 'g' && cap->nchar == 'P'))
  118. -                              ? BACKWARD : FORWARD;
  119.       prep_redo_cmd(cap);
  120. !     do_put(cap->oap->regname, dir,
  121. !               cap->count1, cap->cmdchar == 'g' ? PUT_CURSEND : 0);
  122.   
  123.   #ifdef FEAT_VISUAL
  124.       if (VIsual_active)
  125. --- 7876,7896 ----
  126.           if (VIsual_mode == 'v' && *p_sel == 'e')
  127.           dir = BACKWARD;
  128.           else
  129. +         {
  130. +         if (dir == BACKWARD)
  131. +             flags |= PUT_LINE_BACKWARD;
  132.           dir = FORWARD;
  133. +         }
  134. +         /* When deleting a linewise Visual area, must put the register as
  135. +          * lines to avoid it being deleted. */
  136. +         if (VIsual_mode == 'V')
  137. +         flags |= PUT_LINE;
  138.       }
  139.   #endif
  140.       prep_redo_cmd(cap);
  141. !     if (cap->cmdchar == 'g')
  142. !         flags |= PUT_CURSEND;
  143. !     do_put(cap->oap->regname, dir, cap->count1, flags);
  144.   
  145.   #ifdef FEAT_VISUAL
  146.       if (VIsual_active)
  147. ***************
  148. *** 7886,7891 ****
  149. --- 7901,7907 ----
  150.           cap->oap->regname = NUL;
  151.           curwin->w_cursor = curpos;
  152.           nv_operator(cap);
  153. +         did_visual_put = TRUE;  /* tell op_delete() to correct '] mark */
  154.       }
  155.   #endif
  156.       }
  157. *** ../vim60.227/src/ops.c    Tue Feb 12 12:14:36 2002
  158. --- src/ops.c    Sun Feb 17 21:07:29 2002
  159. ***************
  160. *** 50,56 ****
  161. --- 50,58 ----
  162.       char_u    **y_array;    /* pointer to array of line pointers */
  163.       linenr_T    y_size;        /* number of lines in y_array */
  164.       char_u    y_type;        /* MLINE, MCHAR or MBLOCK */
  165. + #ifdef FEAT_VISUAL
  166.       colnr_T    y_width;    /* only set if y_type == MBLOCK */
  167. + #endif
  168.   } y_regs[NUM_REGISTERS];
  169.   
  170.   static struct yankreg    *y_current;        /* ptr to current yankreg */
  171. ***************
  172. *** 99,108 ****
  173. --- 101,113 ----
  174.   #endif
  175.   static void    free_yank __ARGS((long));
  176.   static void    free_yank_all __ARGS((void));
  177. + static int    yank_copy_line __ARGS((struct block_def *bd, long y_idx));
  178.   #ifdef FEAT_CLIPBOARD
  179.   static void    copy_yank_reg __ARGS((struct yankreg *reg));
  180.   #endif
  181. + #ifdef FEAT_VISUAL
  182.   static void    block_prep __ARGS((oparg_T *oap, struct block_def *, linenr_T, int));
  183. + #endif
  184.   #if defined(FEAT_CLIPBOARD) || defined(FEAT_EVAL)
  185.   static void    str_to_reg __ARGS((struct yankreg *y_ptr, int type, char_u *str, long len));
  186.   #endif
  187. ***************
  188. *** 213,227 ****
  189.   {
  190.       long        i;
  191.       int            first_char;
  192. -     int            block_col = 0;
  193.       char_u        *s;
  194.   
  195.       if (u_save((linenr_T)(oap->start.lnum - 1),
  196.                          (linenr_T)(oap->end.lnum + 1)) == FAIL)
  197.       return;
  198.   
  199.       if (oap->block_mode)
  200.       block_col = curwin->w_cursor.col;
  201.   
  202.       for (i = oap->line_count; --i >= 0; )
  203.       {
  204. --- 218,236 ----
  205.   {
  206.       long        i;
  207.       int            first_char;
  208.       char_u        *s;
  209. + #ifdef FEAT_VISUAL
  210. +     int            block_col = 0;
  211. + #endif
  212.   
  213.       if (u_save((linenr_T)(oap->start.lnum - 1),
  214.                          (linenr_T)(oap->end.lnum + 1)) == FAIL)
  215.       return;
  216.   
  217. + #ifdef FEAT_VISUAL
  218.       if (oap->block_mode)
  219.       block_col = curwin->w_cursor.col;
  220. + #endif
  221.   
  222.       for (i = oap->line_count; --i >= 0; )
  223.       {
  224. ***************
  225. *** 246,257 ****
  226.   
  227.       changed_lines(oap->start.lnum, 0, oap->end.lnum + 1, 0L);
  228.   
  229.       if (oap->block_mode)
  230.       {
  231.       curwin->w_cursor.lnum = oap->start.lnum;
  232.       curwin->w_cursor.col = block_col;
  233.       }
  234. !     else if (curs_top)        /* put cursor on first line, for ">>" */
  235.       {
  236.       curwin->w_cursor.lnum = oap->start.lnum;
  237.       beginline(BL_SOL | BL_FIX);   /* shift_line() may have set cursor.col */
  238. --- 255,269 ----
  239.   
  240.       changed_lines(oap->start.lnum, 0, oap->end.lnum + 1, 0L);
  241.   
  242. + #ifdef FEAT_VISUAL
  243.       if (oap->block_mode)
  244.       {
  245.       curwin->w_cursor.lnum = oap->start.lnum;
  246.       curwin->w_cursor.col = block_col;
  247.       }
  248. !     else
  249. ! #endif
  250. !     if (curs_top)        /* put cursor on first line, for ">>" */
  251.       {
  252.       curwin->w_cursor.lnum = oap->start.lnum;
  253.       beginline(BL_SOL | BL_FIX);   /* shift_line() may have set cursor.col */
  254. ***************
  255. *** 1402,1411 ****
  256.       int            n;
  257.       linenr_T        lnum;
  258.       char_u        *ptr;
  259.       char_u        *newp, *oldp;
  260.       linenr_T        old_lcount = curbuf->b_ml.ml_line_count;
  261.       int            did_yank = FALSE;
  262. -     struct block_def    bd;
  263.   
  264.       if (curbuf->b_ml.ml_flags & ML_EMPTY)        /* nothing to do */
  265.       return OK;
  266. --- 1414,1425 ----
  267.       int            n;
  268.       linenr_T        lnum;
  269.       char_u        *ptr;
  270. + #ifdef FEAT_VISUAL
  271.       char_u        *newp, *oldp;
  272. +     struct block_def    bd;
  273. + #endif
  274.       linenr_T        old_lcount = curbuf->b_ml.ml_line_count;
  275.       int            did_yank = FALSE;
  276.   
  277.       if (curbuf->b_ml.ml_flags & ML_EMPTY)        /* nothing to do */
  278.       return OK;
  279. ***************
  280. *** 1538,1543 ****
  281. --- 1552,1558 ----
  282.       }
  283.       }
  284.   
  285. + #ifdef FEAT_VISUAL
  286.   /*
  287.    * block mode delete
  288.    */
  289. ***************
  290. *** 1584,1590 ****
  291.                                  oap->end.lnum + 1, 0L);
  292.       oap->line_count = 0;        /* no lines deleted */
  293.       }
  294. !     else if (oap->motion_type == MLINE)
  295.       {
  296.       if (oap->op_type == OP_CHANGE)
  297.       {
  298. --- 1599,1607 ----
  299.                                  oap->end.lnum + 1, 0L);
  300.       oap->line_count = 0;        /* no lines deleted */
  301.       }
  302. !     else
  303. ! #endif
  304. !     if (oap->motion_type == MLINE)
  305.       {
  306.       if (oap->op_type == OP_CHANGE)
  307.       {
  308. ***************
  309. *** 1623,1631 ****
  310.       }
  311.       else
  312.       {
  313. -     if (u_save_cursor() == FAIL)    /* save first line for undo */
  314. -         return FAIL;
  315. - 
  316.   #ifdef FEAT_VIRTUALEDIT
  317.       if (virtual_active())
  318.       {
  319. --- 1640,1645 ----
  320. ***************
  321. *** 1634,1639 ****
  322. --- 1648,1655 ----
  323.           /* For virtualedit: break the tabs that are partly included. */
  324.           if (gchar_pos(&oap->start) == '\t')
  325.           {
  326. +         if (u_save_cursor() == FAIL)    /* save first line for undo */
  327. +             return FAIL;
  328.           if (oap->line_count == 1)
  329.               endcol = getviscol2(oap->end.col, oap->end.coladd);
  330.           coladvance_force(getviscol2(oap->start.col, oap->start.coladd));
  331. ***************
  332. *** 1649,1654 ****
  333. --- 1665,1675 ----
  334.   
  335.           if (gchar_pos(&oap->end) == '\t')
  336.           {
  337. +         /* save last line for undo if it's not also the first line */
  338. +         if (oap->end.lnum != curwin->w_cursor.lnum
  339. +             && u_save((linenr_T)(oap->end.lnum - 1),
  340. +                        (linenr_T)(oap->end.lnum + 1)) == FAIL)
  341. +             return FAIL;
  342.           curwin->w_cursor = oap->end;
  343.           coladvance_force(getviscol2(oap->end.col, oap->end.coladd));
  344.           oap->end = curwin->w_cursor;
  345. ***************
  346. *** 1659,1664 ****
  347. --- 1680,1688 ----
  348.   
  349.       if (oap->line_count == 1)    /* delete characters within one line */
  350.       {
  351. +         if (u_save_cursor() == FAIL)    /* save line for undo */
  352. +         return FAIL;
  353. + 
  354.           /* if 'cpoptions' contains '$', display '$' at end of change */
  355.           if (       vim_strchr(p_cpo, CPO_DOLLAR) != NULL
  356.               && oap->op_type == OP_CHANGE
  357. ***************
  358. *** 1697,1717 ****
  359.       }
  360.       else                /* delete characters between lines */
  361.       {
  362.           truncate_line(TRUE);    /* delete from cursor to end of line */
  363.   
  364. !         oap->start = curwin->w_cursor;    /* remember curwin->w_cursor */
  365.           ++curwin->w_cursor.lnum;
  366. !                         /* includes save for undo */
  367. !         del_lines((long)(oap->line_count - 2), TRUE);
  368.   
  369. -         if (u_save_cursor() == FAIL)    /* save last line for undo */
  370. -         return FAIL;
  371. -         u_clearline();            /* "U" not possible now */
  372.           /* delete from start of line until op_end */
  373.           curwin->w_cursor.col = 0;
  374.           (void)del_bytes((long)(oap->end.col + 1 - !oap->inclusive),
  375.                       restart_edit == NUL && !virtual_active());
  376. !         curwin->w_cursor = oap->start;    /* restore curwin->w_cursor */
  377.   
  378.           (void)do_join(FALSE);
  379.       }
  380. --- 1721,1744 ----
  381.       }
  382.       else                /* delete characters between lines */
  383.       {
  384. +         pos_T   curpos;
  385. + 
  386. +         /* save deleted and changed lines for undo */
  387. +         if (u_save((linenr_T)(curwin->w_cursor.lnum - 1),
  388. +          (linenr_T)(curwin->w_cursor.lnum + oap->line_count)) == FAIL)
  389. +         return FAIL;
  390. + 
  391.           truncate_line(TRUE);    /* delete from cursor to end of line */
  392.   
  393. !         curpos = curwin->w_cursor;    /* remember curwin->w_cursor */
  394.           ++curwin->w_cursor.lnum;
  395. !         del_lines((long)(oap->line_count - 2), FALSE);
  396.   
  397.           /* delete from start of line until op_end */
  398.           curwin->w_cursor.col = 0;
  399.           (void)del_bytes((long)(oap->end.col + 1 - !oap->inclusive),
  400.                       restart_edit == NUL && !virtual_active());
  401. !         curwin->w_cursor = curpos;        /* restore curwin->w_cursor */
  402.   
  403.           (void)do_join(FALSE);
  404.       }
  405. ***************
  406. *** 1719,1735 ****
  407.   
  408.       msgmore(curbuf->b_ml.ml_line_count - old_lcount);
  409.   
  410.       /*
  411.        * Set "'[" and "']" marks.
  412.        */
  413. !     curbuf->b_op_start = oap->start;
  414. !     if (oap->block_mode)
  415.       {
  416. !     curbuf->b_op_end.lnum = oap->end.lnum;
  417. !     curbuf->b_op_end.col = oap->start.col;
  418.       }
  419.       else
  420. !     curbuf->b_op_end = oap->start;
  421.   
  422.       return OK;
  423.   }
  424. --- 1746,1793 ----
  425.   
  426.       msgmore(curbuf->b_ml.ml_line_count - old_lcount);
  427.   
  428. + #ifdef FEAT_VISUAL
  429.       /*
  430.        * Set "'[" and "']" marks.
  431.        */
  432. !     if (did_visual_put)
  433.       {
  434. !     /* "p" in Visual mode: The '] mark is at the end of the inserted text,
  435. !      * correct it for the deleted text. */
  436. !     if (oap->block_mode)
  437. !     {
  438. !         if (curbuf->b_op_end.lnum <= oap->end.lnum)
  439. !         curbuf->b_op_end.col -= bd.textlen
  440. !                           - bd.startspaces - bd.endspaces;
  441. !     }
  442. !     else if (oap->motion_type == MLINE)
  443. !         curbuf->b_op_end.lnum -= oap->line_count;
  444. !     else
  445. !     {
  446. !         if (curbuf->b_op_end.lnum == curbuf->b_op_start.lnum)
  447. !         {
  448. !         if (oap->line_count == 1)
  449. !             curbuf->b_op_end.col -= oap->end.col - oap->start.col + 1;
  450. !         else
  451. !             curbuf->b_op_end.col -= oap->end.col - 1;
  452. !         }
  453. !         curbuf->b_op_end.lnum -= oap->line_count - 1;
  454. !     }
  455.       }
  456.       else
  457. ! #endif
  458. !     {
  459. ! #ifdef FEAT_VISUAL
  460. !     if (oap->block_mode)
  461. !     {
  462. !         curbuf->b_op_end.lnum = oap->end.lnum;
  463. !         curbuf->b_op_end.col = oap->start.col;
  464. !     }
  465. !     else
  466. ! #endif
  467. !         curbuf->b_op_end = oap->start;
  468. !     }
  469. !     curbuf->b_op_start = oap->start;
  470.   
  471.       return OK;
  472.   }
  473. ***************
  474. *** 1952,1958 ****
  475. --- 2010,2018 ----
  476.       oparg_T    *oap;
  477.   {
  478.       pos_T        pos;
  479. + #ifdef FEAT_VISUAL
  480.       struct block_def    bd;
  481. + #endif
  482.       int            did_change = 0;
  483.   
  484.       if (u_save((linenr_T)(oap->start.lnum - 1),
  485. ***************
  486. *** 1960,1965 ****
  487. --- 2020,2026 ----
  488.       return;
  489.   
  490.       pos = oap->start;
  491. + #ifdef FEAT_VISUAL
  492.       if (oap->block_mode)            /* Visual block mode */
  493.       {
  494.       for (; pos.lnum <= oap->end.lnum; ++pos.lnum)
  495. ***************
  496. *** 1977,1982 ****
  497. --- 2038,2044 ----
  498.           changed_lines(oap->start.lnum, 0, oap->end.lnum + 1, 0L);
  499.       }
  500.       else                    /* not block mode */
  501. + #endif
  502.       {
  503.       if (oap->motion_type == MLINE)
  504.       {
  505. ***************
  506. *** 2470,2476 ****
  507. --- 2532,2540 ----
  508.   
  509.       y_current->y_size = yanklines;
  510.       y_current->y_type = yanktype;   /* set the yank register type */
  511. + #ifdef FEAT_VISUAL
  512.       y_current->y_width = 0;
  513. + #endif
  514.       y_current->y_array = (char_u **)lalloc_clear((long_u)(sizeof(char_u *) *
  515.                                   yanklines), TRUE);
  516.   
  517. ***************
  518. *** 2483,2488 ****
  519. --- 2547,2553 ----
  520.       y_idx = 0;
  521.       lnum = oap->start.lnum;
  522.   
  523. + #ifdef FEAT_VISUAL
  524.       if (oap->block_mode)
  525.       {
  526.       /* Visual block mode */
  527. ***************
  528. *** 2492,2522 ****
  529.       if (curwin->w_curswant == MAXCOL && y_current->y_width > 0)
  530.           y_current->y_width--;
  531.       }
  532.   
  533.       for ( ; lnum <= yankendlnum; lnum++, y_idx++)
  534.       {
  535.       switch (y_current->y_type)
  536.       {
  537.           case MBLOCK:
  538.           block_prep(oap, &bd, lnum, FALSE);
  539. ! copyline:
  540. !         if ((pnew = alloc(bd.startspaces + bd.endspaces
  541. !                            + bd.textlen + 1)) == NULL)
  542. !         {
  543. ! fail:             /* free the allocated lines */
  544. !             free_yank(y_idx + 1);
  545. !             y_current = curr;
  546. !             return FAIL;
  547. !         }
  548. !         y_current->y_array[y_idx] = pnew;
  549. !         copy_spaces(pnew, (size_t)bd.startspaces);
  550. !         pnew += bd.startspaces;
  551. !         mch_memmove(pnew, bd.textstart, (size_t)bd.textlen);
  552. !         pnew += bd.textlen;
  553. !         copy_spaces(pnew, (size_t)bd.endspaces);
  554. !         pnew += bd.endspaces;
  555. !         *pnew = NUL;
  556.           break;
  557.   
  558.           case MLINE:
  559.           if ((y_current->y_array[y_idx] =
  560. --- 2557,2575 ----
  561.       if (curwin->w_curswant == MAXCOL && y_current->y_width > 0)
  562.           y_current->y_width--;
  563.       }
  564. + #endif
  565.   
  566.       for ( ; lnum <= yankendlnum; lnum++, y_idx++)
  567.       {
  568.       switch (y_current->y_type)
  569.       {
  570. + #ifdef FEAT_VISUAL
  571.           case MBLOCK:
  572.           block_prep(oap, &bd, lnum, FALSE);
  573. !         if (yank_copy_line(&bd, y_idx) == FAIL)
  574. !             goto fail;
  575.           break;
  576. + #endif
  577.   
  578.           case MLINE:
  579.           if ((y_current->y_array[y_idx] =
  580. ***************
  581. *** 2595,2601 ****
  582.               bd.textlen = endcol - startcol + oap->inclusive;
  583.               }
  584.               bd.textstart = p + startcol;
  585. !             goto copyline;
  586.           }
  587.           /* NOTREACHED */
  588.       }
  589. --- 2648,2656 ----
  590.               bd.textlen = endcol - startcol + oap->inclusive;
  591.               }
  592.               bd.textstart = p + startcol;
  593. !             if (yank_copy_line(&bd, y_idx) == FAIL)
  594. !             goto fail;
  595. !             break;
  596.           }
  597.           /* NOTREACHED */
  598.       }
  599. ***************
  600. *** 2623,2630 ****
  601.                     + STRLEN(y_current->y_array[0]) + 1), TRUE);
  602.           if (pnew == NULL)
  603.           {
  604. !             y_idx = y_current->y_size - 1;
  605. !             goto fail;
  606.           }
  607.           STRCPY(pnew, curr->y_array[--j]);
  608.           STRCAT(pnew, y_current->y_array[0]);
  609. --- 2678,2685 ----
  610.                     + STRLEN(y_current->y_array[0]) + 1), TRUE);
  611.           if (pnew == NULL)
  612.           {
  613. !         y_idx = y_current->y_size - 1;
  614. !         goto fail;
  615.           }
  616.           STRCPY(pnew, curr->y_array[--j]);
  617.           STRCAT(pnew, y_current->y_array[0]);
  618. ***************
  619. *** 2643,2649 ****
  620.       }
  621.       if (mess)            /* Display message about yank? */
  622.       {
  623. !     if (yanktype == MCHAR && !oap->block_mode && yanklines == 1)
  624.           yanklines = 0;
  625.       /* Some versions of Vi use ">=" here, some don't...  */
  626.       if (yanklines > p_report)
  627. --- 2698,2708 ----
  628.       }
  629.       if (mess)            /* Display message about yank? */
  630.       {
  631. !     if (yanktype == MCHAR
  632. ! #ifdef FEAT_VISUAL
  633. !         && !oap->block_mode
  634. ! #endif
  635. !         && yanklines == 1)
  636.           yanklines = 0;
  637.       /* Some versions of Vi use ">=" here, some don't...  */
  638.       if (yanklines > p_report)
  639. ***************
  640. *** 2660,2667 ****
  641.       /*
  642.        * Set "'[" and "']" marks.
  643.        */
  644. !     curbuf->b_op_start = oap->start;
  645. !     curbuf->b_op_end = oap->end;
  646.   
  647.   #ifdef FEAT_CLIPBOARD
  648.       /*
  649. --- 2719,2731 ----
  650.       /*
  651.        * Set "'[" and "']" marks.
  652.        */
  653. ! #ifdef FEAT_VISUAL
  654. !     if (!did_visual_put)
  655. ! #endif
  656. !     {
  657. !     curbuf->b_op_start = oap->start;
  658. !     curbuf->b_op_end = oap->end;
  659. !     }
  660.   
  661.   #ifdef FEAT_CLIPBOARD
  662.       /*
  663. ***************
  664. *** 2702,2707 ****
  665. --- 2766,2797 ----
  666.   #endif
  667.   
  668.       return OK;
  669. + 
  670. + fail:        /* free the allocated lines */
  671. +     free_yank(y_idx + 1);
  672. +     y_current = curr;
  673. +     return FAIL;
  674. + }
  675. + 
  676. +     static int
  677. + yank_copy_line(bd, y_idx)
  678. +     struct block_def    *bd;
  679. +     long        y_idx;
  680. + {
  681. +     char_u    *pnew;
  682. + 
  683. +     if ((pnew = alloc(bd->startspaces + bd->endspaces + bd->textlen + 1))
  684. +                                       == NULL)
  685. +     return FAIL;
  686. +     y_current->y_array[y_idx] = pnew;
  687. +     copy_spaces(pnew, (size_t)bd->startspaces);
  688. +     pnew += bd->startspaces;
  689. +     mch_memmove(pnew, bd->textstart, (size_t)bd->textlen);
  690. +     pnew += bd->textlen;
  691. +     copy_spaces(pnew, (size_t)bd->endspaces);
  692. +     pnew += bd->endspaces;
  693. +     *pnew = NUL;
  694. +     return OK;
  695.   }
  696.   
  697.   #ifdef FEAT_CLIPBOARD
  698. ***************
  699. *** 2736,2744 ****
  700.   
  701.   /*
  702.    * put contents of register "regname" into the text
  703. -  * For ":put" command count == -1.
  704.    * flags: PUT_FIXINDENT    make indent look nice
  705.    *      PUT_CURSEND    leave cursor after end of new text
  706.    */
  707.       void
  708.   do_put(regname, dir, count, flags)
  709. --- 2826,2834 ----
  710.   
  711.   /*
  712.    * put contents of register "regname" into the text
  713.    * flags: PUT_FIXINDENT    make indent look nice
  714.    *      PUT_CURSEND    leave cursor after end of new text
  715. +  *      PUT_LINE    force linewise put (":put")
  716.    */
  717.       void
  718.   do_put(regname, dir, count, flags)
  719. ***************
  720. *** 2750,2769 ****
  721.       char_u    *ptr;
  722.       char_u    *newp, *oldp;
  723.       int        yanklen;
  724. -     int        oldlen;
  725.       int        totlen = 0;        /* init for gcc */
  726.       linenr_T    lnum;
  727.       colnr_T    col;
  728.       long    i;            /* index in y_array[] */
  729.       int        y_type;
  730.       long    y_size;
  731.       long    y_width = 0;
  732. -     char_u    **y_array = NULL;
  733. -     long    nr_lines = 0;
  734.       colnr_T    vcol;
  735.       int        delcount;
  736.       int        incr = 0;
  737.       long    j;
  738.       pos_T    new_cursor;
  739.       int        indent;
  740.       int        orig_indent = 0;    /* init for gcc */
  741. --- 2840,2862 ----
  742.       char_u    *ptr;
  743.       char_u    *newp, *oldp;
  744.       int        yanklen;
  745.       int        totlen = 0;        /* init for gcc */
  746.       linenr_T    lnum;
  747.       colnr_T    col;
  748.       long    i;            /* index in y_array[] */
  749.       int        y_type;
  750.       long    y_size;
  751. + #ifdef FEAT_VISUAL
  752. +     int        oldlen;
  753.       long    y_width = 0;
  754.       colnr_T    vcol;
  755.       int        delcount;
  756.       int        incr = 0;
  757.       long    j;
  758. +     struct block_def bd;
  759. + #endif
  760. +     char_u    **y_array = NULL;
  761. +     long    nr_lines = 0;
  762.       pos_T    new_cursor;
  763.       int        indent;
  764.       int        orig_indent = 0;    /* init for gcc */
  765. ***************
  766. *** 2771,2777 ****
  767.       int        first_indent = TRUE;
  768.       int        lendiff = 0;
  769.       pos_T    old_pos;
  770. -     struct block_def bd;
  771.       char_u    *insert_string = NULL;
  772.       int        allocated = FALSE;
  773.       long    cnt;
  774. --- 2864,2869 ----
  775. ***************
  776. *** 2879,2894 ****
  777.       get_yank_register(regname, FALSE);
  778.   
  779.       y_type = y_current->y_type;
  780.       y_width = y_current->y_width;
  781.       y_size = y_current->y_size;
  782.       y_array = y_current->y_array;
  783.       }
  784.   
  785. !     if (count == -1)        /* :put command */
  786. !     {
  787.       y_type = MLINE;
  788. -     count = 1;
  789. -     }
  790.   
  791.       if (y_size == 0 || y_array == NULL)
  792.       {
  793. --- 2971,2987 ----
  794.       get_yank_register(regname, FALSE);
  795.   
  796.       y_type = y_current->y_type;
  797. + #ifdef FEAT_VISUAL
  798.       y_width = y_current->y_width;
  799. + #endif
  800.       y_size = y_current->y_size;
  801.       y_array = y_current->y_array;
  802.       }
  803.   
  804. !     if ((flags & PUT_LINE_BACKWARD) && y_type == MLINE)
  805. !     dir = BACKWARD;
  806. !     if (flags & PUT_LINE)        /* :put command */
  807.       y_type = MLINE;
  808.   
  809.       if (y_size == 0 || y_array == NULL)
  810.       {
  811. ***************
  812. *** 2897,2902 ****
  813. --- 2990,2996 ----
  814.       goto end;
  815.       }
  816.   
  817. + #ifdef FEAT_VISUAL
  818.       if (y_type == MBLOCK)
  819.       {
  820.       lnum = curwin->w_cursor.lnum + y_size + 1;
  821. ***************
  822. *** 2905,2911 ****
  823.       if (u_save(curwin->w_cursor.lnum - 1, lnum) == FAIL)
  824.           goto end;
  825.       }
  826. !     else if (y_type == MLINE)
  827.       {
  828.       lnum = curwin->w_cursor.lnum;
  829.   #ifdef FEAT_FOLDING
  830. --- 2999,3007 ----
  831.       if (u_save(curwin->w_cursor.lnum - 1, lnum) == FAIL)
  832.           goto end;
  833.       }
  834. !     else
  835. ! #endif
  836. !     if (y_type == MLINE)
  837.       {
  838.       lnum = curwin->w_cursor.lnum;
  839.   #ifdef FEAT_FOLDING
  840. ***************
  841. *** 2954,2959 ****
  842. --- 3050,3056 ----
  843.       lnum = curwin->w_cursor.lnum;
  844.       col = curwin->w_cursor.col;
  845.   
  846. + #ifdef FEAT_VISUAL
  847.       /*
  848.        * Block mode
  849.        */
  850. ***************
  851. *** 3126,3131 ****
  852. --- 3223,3229 ----
  853.           curwin->w_cursor.lnum = lnum;
  854.       }
  855.       else
  856. + #endif
  857.       {
  858.       /*
  859.        * Character or Line mode
  860. ***************
  861. *** 4093,4098 ****
  862. --- 4215,4221 ----
  863.   }
  864.   #endif
  865.   
  866. + #ifdef FEAT_VISUAL
  867.   /*
  868.    * prepare a few things for block mode yank/delete/tilde
  869.    *
  870. ***************
  871. *** 4255,4260 ****
  872. --- 4378,4384 ----
  873.       bdp->textcol = (colnr_T) (pstart - line);
  874.       bdp->textstart = pstart;
  875.   }
  876. + #endif /* FEAT_VISUAL */
  877.   
  878.   #ifdef FEAT_RIGHTLEFT
  879.   static void reverse_line __ARGS((char_u *s));
  880. ***************
  881. *** 4596,4608 ****
  882. --- 4720,4738 ----
  883.       str = skipwhite(str);
  884.       if (STRNCMP(str, "CHAR", 4) == 0)
  885.           y_current->y_type = MCHAR;
  886. + #ifdef FEAT_VISUAL
  887.       else if (STRNCMP(str, "BLOCK", 5) == 0)
  888.           y_current->y_type = MBLOCK;
  889. + #endif
  890.       else
  891.           y_current->y_type = MLINE;
  892.       /* get the block width; if it's missing we get a zero, which is OK */
  893.       str = skipwhite(skiptowhite(str));
  894. + #ifdef FEAT_VISUAL
  895.       y_current->y_width = getdigits(&str);
  896. + #else
  897. +     (void)getdigits(&str);
  898. + #endif
  899.       }
  900.   
  901.       while (!(eof = viminfo_readline(virp))
  902. ***************
  903. *** 4679,4687 ****
  904. --- 4809,4819 ----
  905.           case MCHAR:
  906.           type = (char_u *)"CHAR";
  907.           break;
  908. + #ifdef FEAT_VISUAL
  909.           case MBLOCK:
  910.           type = (char_u *)"BLOCK";
  911.           break;
  912. + #endif
  913.           default:
  914.           sprintf((char *)IObuff, _("Unknown register type %d"),
  915.               y_regs[i].y_type);
  916. ***************
  917. *** 4692,4698 ****
  918.       if (y_previous == &y_regs[i])
  919.           fprintf(fp, "\"");
  920.       c = get_register_name(i);
  921. !     fprintf(fp, "\"%c\t%s\t%d\n", c, type, y_regs[i].y_width);
  922.       num_lines = y_regs[i].y_size;
  923.   
  924.       /* If max_num_lines < 0, then we save ALL the lines in the register */
  925. --- 4824,4836 ----
  926.       if (y_previous == &y_regs[i])
  927.           fprintf(fp, "\"");
  928.       c = get_register_name(i);
  929. !     fprintf(fp, "\"%c\t%s\t%d\n", c, type,
  930. ! #ifdef FEAT_VISUAL
  931. !             (int)y_regs[i].y_width
  932. ! #else
  933. !             0
  934. ! #endif
  935. !             );
  936.       num_lines = y_regs[i].y_size;
  937.   
  938.       /* If max_num_lines < 0, then we save ALL the lines in the register */
  939. ***************
  940. *** 4803,4808 ****
  941. --- 4941,4947 ----
  942.   #endif
  943.       colnr_T    old_curswant;
  944.       int        old_set_curswant;
  945. +     pos_T    old_op_start, old_op_end;
  946.       oparg_T    oa;
  947.       cmdarg_T    ca;
  948.   
  949. ***************
  950. *** 4818,4823 ****
  951. --- 4957,4964 ----
  952.       old_cursor = curwin->w_cursor;
  953.       old_curswant = curwin->w_curswant;
  954.       old_set_curswant = curwin->w_set_curswant;
  955. +     old_op_start = curbuf->b_op_start;
  956. +     old_op_end = curbuf->b_op_end;
  957.   #ifdef FEAT_VISUAL
  958.       old_visual = VIsual;
  959.       old_visual_mode = VIsual_mode;
  960. ***************
  961. *** 4836,4841 ****
  962. --- 4977,4984 ----
  963.       curwin->w_cursor = old_cursor;
  964.       curwin->w_curswant = old_curswant;
  965.       curwin->w_set_curswant = old_set_curswant;
  966. +     curbuf->b_op_start = old_op_start;
  967. +     curbuf->b_op_end = old_op_end;
  968.   #ifdef FEAT_VISUAL
  969.       VIsual = old_visual;
  970.       VIsual_mode = old_visual_mode;
  971. ***************
  972. *** 5204,5210 ****
  973. --- 5347,5355 ----
  974.       }
  975.       y_ptr->y_type = type;
  976.       y_ptr->y_size = lnum;
  977. + # ifdef FEAT_VISUAL
  978.       y_ptr->y_width = 0;
  979. + # endif
  980.   }
  981.   #endif /* FEAT_CLIPBOARD || FEAT_EVAL || PROTO */
  982.   
  983. ***************
  984. *** 5320,5326 ****
  985.           if (VIsual_mode == Ctrl_V)
  986.           {
  987.           oparg.is_VIsual = 1;
  988. !         oparg.block_mode = 1;
  989.           oparg.op_type = OP_NOP;
  990.           getvcols(curwin, &min_pos, &max_pos,
  991.               &oparg.start_vcol, &oparg.end_vcol);
  992. --- 5465,5471 ----
  993.           if (VIsual_mode == Ctrl_V)
  994.           {
  995.           oparg.is_VIsual = 1;
  996. !         oparg.block_mode = TRUE;
  997.           oparg.op_type = OP_NOP;
  998.           getvcols(curwin, &min_pos, &max_pos,
  999.               &oparg.start_vcol, &oparg.end_vcol);
  1000. *** ../vim60.227/src/structs.h    Thu Jan 17 16:30:27 2002
  1001. --- src/structs.h    Sun Feb 17 16:22:11 2002
  1002. ***************
  1003. *** 1428,1435 ****
  1004.                      do_change()) */
  1005.   #ifdef FEAT_VISUAL
  1006.       int        is_VIsual;    /* operator on Visual area */
  1007. - #endif
  1008.       int        block_mode;    /* current operator is Visual block mode */
  1009.       colnr_T    start_vcol;    /* start col for block mode operator */
  1010.       colnr_T    end_vcol;    /* end col for block mode operator */
  1011.   } oparg_T;
  1012. --- 1428,1435 ----
  1013.                      do_change()) */
  1014.   #ifdef FEAT_VISUAL
  1015.       int        is_VIsual;    /* operator on Visual area */
  1016.       int        block_mode;    /* current operator is Visual block mode */
  1017. + #endif
  1018.       colnr_T    start_vcol;    /* start col for block mode operator */
  1019.       colnr_T    end_vcol;    /* end col for block mode operator */
  1020.   } oparg_T;
  1021. *** ../vim60.227/src/vim.h    Mon Feb  4 17:08:29 2002
  1022. --- src/vim.h    Sun Feb 17 21:05:10 2002
  1023. ***************
  1024. *** 816,821 ****
  1025. --- 816,823 ----
  1026.   /* flags for do_put() */
  1027.   #define PUT_FIXINDENT    1    /* make indent look nice */
  1028.   #define PUT_CURSEND    2    /* leave cursor after end of new text */
  1029. + #define PUT_LINE    4    /* put register as lines */
  1030. + #define PUT_LINE_BACKWARD 8    /* put linewise register backwards */
  1031.   
  1032.   /* flags for set_indent() */
  1033.   #define SIN_CHANGED    1    /* call changed_bytes() when line changed */
  1034. *** ../vim60.227/src/version.c    Sun Feb 17 15:39:58 2002
  1035. --- src/version.c    Sun Feb 17 22:11:06 2002
  1036. ***************
  1037. *** 608,609 ****
  1038. --- 608,611 ----
  1039.   {   /* Add new patch number below this line */
  1040. + /**/
  1041. +     228,
  1042.   /**/
  1043.  
  1044.  
  1045.  
  1046. -- 
  1047. INSPECTOR END OF FILM: Move along.  There's nothing to see!  Keep moving!
  1048.    [Suddenly he notices the cameras.]
  1049. INSPECTOR END OF FILM: (to Camera) All right, put that away sonny.
  1050.    [He walks over to it and puts his hand over the lens.]
  1051.                  "Monty Python and the Holy Grail" PYTHON (MONTY) PICTURES LTD
  1052.  
  1053.  ///  Bram Moolenaar -- Bram@moolenaar.net -- http://www.moolenaar.net  \\\
  1054. ///   Creator of Vim -- http://vim.sf.net -- ftp://ftp.vim.org/pub/vim   \\\
  1055. \\\           Project leader for A-A-P -- http://www.a-a-p.org           ///
  1056.  \\\  Help me helping AIDS orphans in Uganda - http://iccf-holland.org  ///
  1057.