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.237 < prev    next >
Encoding:
Internet Message Format  |  2002-10-29  |  15.2 KB
  1. To: vim-dev@vim.org
  2. Subject: Patch 6.1.237
  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.237
  11. Problem:    Putting in Visual block mode does not work correctly when "$" was
  12.         used or when the first line is short.  (Christian Michon)
  13. Solution:   First delete the selected text and then put the new text.  Save
  14.         and restore registers as necessary.
  15. Files:        src/globals.h, src/normal.c, src/ops.c, src/proto/ops.pro,
  16.         src/vim.h
  17.  
  18.  
  19. *** ../vim61.236/src/globals.h    Sun Oct 13 18:48:35 2002
  20. --- src/globals.h    Sun Oct 27 18:31:36 2002
  21. ***************
  22. *** 453,459 ****
  23.   
  24.   EXTERN int    redo_VIsual_busy INIT(= FALSE);
  25.                   /* TRUE when redoing Visual */
  26. - EXTERN int    did_visual_put INIT(= FALSE); /* TRUE after Visual mode "p" */
  27.   #endif
  28.   
  29.   #ifdef FEAT_MOUSE
  30. --- 453,458 ----
  31. *** ../vim61.236/src/normal.c    Thu Oct 17 20:11:44 2002
  32. --- src/normal.c    Sun Oct 27 20:29:45 2002
  33. ***************
  34. *** 1138,1146 ****
  35.   normal_end:
  36.   
  37.       msg_nowait = FALSE;
  38. - #ifdef FEAT_VISUAL
  39. -     did_visual_put = FALSE;
  40. - #endif
  41.   
  42.       /* Reset finish_op, in case it was set */
  43.   #ifdef CURSOR_SHAPE
  44. --- 1138,1143 ----
  45. ***************
  46. *** 7928,7935 ****
  47.       cmdarg_T  *cap;
  48.   {
  49.   #ifdef FEAT_VISUAL
  50. !     pos_T    curpos;
  51. !     colnr_T    left, right;
  52.   #endif
  53.       int        dir;
  54.       int        flags = 0;
  55. --- 7925,7932 ----
  56.       cmdarg_T  *cap;
  57.   {
  58.   #ifdef FEAT_VISUAL
  59. !     int        regname;
  60. !     void    *reg1 = NULL, *reg2 = NULL;
  61.   #endif
  62.       int        dir;
  63.       int        flags = 0;
  64. ***************
  65. *** 7952,8027 ****
  66.       dir = (cap->cmdchar == 'P'
  67.           || (cap->cmdchar == 'g' && cap->nchar == 'P'))
  68.                                ? BACKWARD : FORWARD;
  69. - #ifdef FEAT_VISUAL
  70. -     if (VIsual_active)
  71. -     {
  72. -         /* Putting in Visual mode: The put text replaces the selected
  73. -          * text.  First put the register at the end of the Visual
  74. -          * selection, then delete the selected text.  In some cases the
  75. -          * register is put before the Visual selection. */
  76. -         if (lt(VIsual, curwin->w_cursor))
  77. -         {
  78. -         curbuf->b_visual_start = VIsual;
  79. -         curbuf->b_visual_end = curwin->w_cursor;
  80. -         }
  81. -         else
  82. -         {
  83. -         curbuf->b_visual_start = curwin->w_cursor;
  84. -         curbuf->b_visual_end = VIsual;
  85. -         }
  86. -         curpos = curwin->w_cursor;
  87. -         if (VIsual_mode == Ctrl_V)
  88. -         {
  89. -         getvcols(curwin, &curwin->w_cursor, &VIsual, &left, &right);
  90. -         curwin->w_cursor = curbuf->b_visual_start;
  91. -         coladvance(right);
  92. -         }
  93. -         else
  94. -         curwin->w_cursor = curbuf->b_visual_end;
  95. -         if (VIsual_mode == 'v' && *p_sel == 'e')
  96. -         dir = BACKWARD;
  97. -         else
  98. -         {
  99. -         /* Put linewise text above a characterwise or blockwise
  100. -          * selected Visual area; handled in do_put(). */
  101. -         if (dir == BACKWARD && VIsual_mode != 'V')
  102. -             flags |= PUT_LINE_BACKWARD;
  103. -         dir = FORWARD;
  104. -         }
  105. -         /* When deleting a linewise Visual area, must put the register as
  106. -          * lines to avoid it being deleted. */
  107. -         if (VIsual_mode == 'V')
  108. -         flags |= PUT_LINE;
  109. -     }
  110. - #endif
  111.       prep_redo_cmd(cap);
  112.       if (cap->cmdchar == 'g')
  113.           flags |= PUT_CURSEND;
  114. -     do_put(cap->oap->regname, dir, cap->count1, flags);
  115.   
  116.   #ifdef FEAT_VISUAL
  117.       if (VIsual_active)
  118.       {
  119. !         /* If linewise text was put above the Visual area, need to correct
  120. !          * the line numbers to shift the Visual area down. */
  121. !         if ((flags & PUT_LINE_BACKWARD)
  122. !             && curbuf->b_visual_start.lnum > curbuf->b_op_end.lnum)
  123. !         {
  124. !         linenr_T l;
  125. ! 
  126. !         l = curbuf->b_op_end.lnum - curbuf->b_op_start.lnum + 1;
  127. !         curpos.lnum += l;
  128. !         VIsual.lnum += l;
  129.           }
  130.   
  131.           /* Now delete the selected text. */
  132.           cap->cmdchar = 'd';
  133.           cap->nchar = NUL;
  134.           cap->oap->regname = NUL;
  135. -         curwin->w_cursor = curpos;
  136.           nv_operator(cap);
  137. !         did_visual_put = TRUE;  /* tell op_delete() to correct '] mark */
  138.       }
  139.   #endif
  140.       auto_format();
  141.       }
  142. --- 7949,8017 ----
  143.       dir = (cap->cmdchar == 'P'
  144.           || (cap->cmdchar == 'g' && cap->nchar == 'P'))
  145.                                ? BACKWARD : FORWARD;
  146.       prep_redo_cmd(cap);
  147.       if (cap->cmdchar == 'g')
  148.           flags |= PUT_CURSEND;
  149.   
  150.   #ifdef FEAT_VISUAL
  151.       if (VIsual_active)
  152.       {
  153. !         /* Putting in Visual mode: The put text replaces the selected
  154. !          * text.  First delete the selected text, then put the new text.
  155. !          * Need to save and restore the registers that the delete
  156. !          * overwrites if the old contents is being put.
  157. !          */
  158. !         regname = cap->oap->regname;
  159. ! # ifdef FEAT_CLIPBOARD
  160. !         adjust_clip_reg(®name);
  161. ! # endif
  162. !         if (regname == 0 || isdigit(regname))
  163. !         {
  164. !         /* the delete is going to overwrite the register we want to
  165. !          * put, save it first. */
  166. !         reg1 = get_register(regname, TRUE);
  167.           }
  168.   
  169.           /* Now delete the selected text. */
  170.           cap->cmdchar = 'd';
  171.           cap->nchar = NUL;
  172.           cap->oap->regname = NUL;
  173.           nv_operator(cap);
  174. !         do_pending_operator(cap, 0, FALSE);
  175. ! 
  176. !         /* delete PUT_LINE_BACKWARD; */
  177. !         cap->oap->regname = regname;
  178. ! 
  179. !         if (reg1 != NULL)
  180. !         {
  181. !         /* Delete probably changed the register we want to put, save
  182. !          * it first. Then put back what was there before the delete. */
  183. !         reg2 = get_register(regname, FALSE);
  184. !         put_register(regname, reg1);
  185. !         }
  186. ! 
  187. !         /* When deleted a linewise Visual area, put the register as
  188. !          * lines to avoid it joined with the next line.  When deletion was
  189. !          * characterwise, split a line when putting lines. */
  190. !         if (VIsual_mode == 'V')
  191. !         flags |= PUT_LINE;
  192. !         else if (VIsual_mode == 'v')
  193. !         flags |= PUT_LINE_SPLIT;
  194. !         if (VIsual_mode == Ctrl_V && dir == FORWARD)
  195. !         flags |= PUT_LINE_FORWARD;
  196. !         dir = BACKWARD;
  197. !         if (VIsual_mode != 'V'
  198. !                  && curwin->w_cursor.col < curbuf->b_op_start.col)
  199. !         /* cursor is at the end of the line, put forward. */
  200. !         dir = FORWARD;
  201.       }
  202. + #endif
  203. +     do_put(cap->oap->regname, dir, cap->count1, flags);
  204. + 
  205. + #ifdef FEAT_VISUAL
  206. +     /* If a register was saved, put it back now. */
  207. +     if (reg2 != NULL)
  208. +         put_register(regname, reg2);
  209.   #endif
  210.       auto_format();
  211.       }
  212. *** ../vim61.236/src/ops.c    Thu Aug  1 20:47:28 2002
  213. --- src/ops.c    Sun Oct 27 20:29:17 2002
  214. ***************
  215. *** 847,852 ****
  216. --- 847,900 ----
  217.       y_previous = y_current;
  218.   }
  219.   
  220. + #if defined(FEAT_VISUAL) || defined(PROTO)
  221. + /*
  222. +  * Obtain the contents of a "normal" register. The register is made empty.
  223. +  * The returned pointer has allocated memory, use put_register() later.
  224. +  */
  225. +     void *
  226. + get_register(name, copy)
  227. +     int        name;
  228. +     int        copy;    /* make a copy, if FALSE make register empty. */
  229. + {
  230. +     static struct yankreg    *reg;
  231. +     int                i;
  232. + 
  233. +     get_yank_register(name, 0);
  234. +     reg = (struct yankreg *)alloc((unsigned)sizeof(struct yankreg));
  235. +     if (reg != NULL)
  236. +     {
  237. +     *reg = *y_current;
  238. +     if (copy)
  239. +     {
  240. +         /* If we run out of memory some or all of the lines are empty. */
  241. +         reg->y_array = (char_u **)alloc((unsigned)sizeof(char_u *));
  242. +         if (reg->y_array != NULL)
  243. +         {
  244. +         for (i = 0; i < reg->y_size; ++i)
  245. +             reg->y_array[i] = vim_strsave(y_current->y_array[i]);
  246. +         }
  247. +     }
  248. +     else
  249. +         y_current->y_array = NULL;
  250. +     }
  251. +     return (void *)reg;
  252. + }
  253. + 
  254. + /*
  255. +  * Put "reg" into register "name".  Free any previous contents.
  256. +  */
  257. +     void
  258. + put_register(name, reg)
  259. +     int        name;
  260. +     void    *reg;
  261. + {
  262. +     get_yank_register(name, 0);
  263. +     free_yank_all();
  264. +     *y_current = *(struct yankreg *)reg;
  265. + }
  266. + #endif
  267. + 
  268.   #if defined(FEAT_MOUSE) || defined(PROTO)
  269.   /*
  270.    * return TRUE if the current yank register has type MLINE
  271. ***************
  272. *** 1403,1408 ****
  273. --- 1457,1481 ----
  274.       }
  275.   }
  276.   
  277. + #if defined(FEAT_CLIPBOARD) || defined(PROTO)
  278. + /*
  279. +  * Adjust the register name pointed to with "rp" for the clipboard being
  280. +  * used always and the clipboard being available.
  281. +  */
  282. +     void
  283. + adjust_clip_reg(rp)
  284. +     int        *rp;
  285. + {
  286. +     /* If no reg. specified, and "unnamed" is in 'clipboard', use '*' reg. */
  287. +     if (*rp == 0 && clip_unnamed)
  288. +     *rp = '*';
  289. +     if (!clip_star.available && *rp == '*')
  290. +     *rp = 0;
  291. +     if (!clip_plus.available && *rp == '+')
  292. +     *rp = 0;
  293. + }
  294. + #endif
  295. + 
  296.   /*
  297.    * op_delete - handle a delete operation
  298.    *
  299. ***************
  300. *** 1436,1448 ****
  301.       }
  302.   
  303.   #ifdef FEAT_CLIPBOARD
  304. !     /* If no reg. specified, and "unnamed" is in 'clipboard', use '*' reg. */
  305. !     if (oap->regname == 0 && clip_unnamed)
  306. !     oap->regname = '*';
  307. !     if (!clip_star.available && oap->regname == '*')
  308. !     oap->regname = 0;
  309. !     if (!clip_plus.available && oap->regname == '+')
  310. !     oap->regname = 0;
  311.   #endif
  312.   
  313.   #ifdef FEAT_MBYTE
  314. --- 1509,1515 ----
  315.       }
  316.   
  317.   #ifdef FEAT_CLIPBOARD
  318. !     adjust_clip_reg(&oap->regname);
  319.   #endif
  320.   
  321.   #ifdef FEAT_MBYTE
  322. ***************
  323. *** 1754,1799 ****
  324.       msgmore(curbuf->b_ml.ml_line_count - old_lcount);
  325.   
  326.   #ifdef FEAT_VISUAL
  327. !     /*
  328. !      * Set "'[" and "']" marks.
  329. !      */
  330. !     if (did_visual_put)
  331.       {
  332. !     /* "p" in Visual mode: The '] mark is at the end of the inserted text,
  333. !      * correct it for the deleted text. */
  334. !     if (oap->block_mode)
  335. !     {
  336. !         if (curbuf->b_op_end.lnum <= oap->end.lnum)
  337. !         curbuf->b_op_end.col -= bd.textlen
  338. !                           - bd.startspaces - bd.endspaces;
  339. !     }
  340. !     else if (oap->motion_type == MLINE)
  341. !         curbuf->b_op_end.lnum -= oap->line_count;
  342. !     else
  343. !     {
  344. !         if (curbuf->b_op_end.lnum == curbuf->b_op_start.lnum)
  345. !         {
  346. !         if (oap->line_count == 1)
  347. !             curbuf->b_op_end.col -= oap->end.col - oap->start.col + 1;
  348. !         else
  349. !             curbuf->b_op_end.col -= oap->end.col - 1;
  350. !         }
  351. !         curbuf->b_op_end.lnum -= oap->line_count - 1;
  352. !     }
  353.       }
  354.       else
  355.   #endif
  356. !     {
  357. ! #ifdef FEAT_VISUAL
  358. !     if (oap->block_mode)
  359. !     {
  360. !         curbuf->b_op_end.lnum = oap->end.lnum;
  361. !         curbuf->b_op_end.col = oap->start.col;
  362. !     }
  363. !     else
  364. ! #endif
  365. !         curbuf->b_op_end = oap->start;
  366. !     }
  367.       curbuf->b_op_start = oap->start;
  368.   
  369.       return OK;
  370. --- 1821,1834 ----
  371.       msgmore(curbuf->b_ml.ml_line_count - old_lcount);
  372.   
  373.   #ifdef FEAT_VISUAL
  374. !     if (oap->block_mode)
  375.       {
  376. !     curbuf->b_op_end.lnum = oap->end.lnum;
  377. !     curbuf->b_op_end.col = oap->start.col;
  378.       }
  379.       else
  380.   #endif
  381. !     curbuf->b_op_end = oap->start;
  382.       curbuf->b_op_start = oap->start;
  383.   
  384.       return OK;
  385. ***************
  386. *** 2759,2771 ****
  387.       /*
  388.        * Set "'[" and "']" marks.
  389.        */
  390. ! #ifdef FEAT_VISUAL
  391. !     if (!did_visual_put)
  392. ! #endif
  393. !     {
  394. !     curbuf->b_op_start = oap->start;
  395. !     curbuf->b_op_end = oap->end;
  396. !     }
  397.   
  398.   #ifdef FEAT_CLIPBOARD
  399.       /*
  400. --- 2794,2801 ----
  401.       /*
  402.        * Set "'[" and "']" marks.
  403.        */
  404. !     curbuf->b_op_start = oap->start;
  405. !     curbuf->b_op_end = oap->end;
  406.   
  407.   #ifdef FEAT_CLIPBOARD
  408.       /*
  409. ***************
  410. *** 2909,2931 ****
  411.       long    cnt;
  412.   
  413.   #ifdef FEAT_CLIPBOARD
  414. !     /* If no register specified, and "unnamed" in 'clipboard', use + register */
  415. !     if (regname == 0 && clip_unnamed)
  416. !     regname = '*';
  417.       if (regname == '*')
  418. !     {
  419. !     if (!clip_star.available)
  420. !         regname = 0;
  421. !     else
  422. !         clip_get_selection(&clip_star);
  423. !     }
  424.       else if (regname == '+')
  425. !     {
  426. !     if (!clip_plus.available)
  427. !         regname = 0;
  428. !     else
  429. !         clip_get_selection(&clip_plus);
  430. !     }
  431.   #endif
  432.   
  433.       if (flags & PUT_FIXINDENT)
  434. --- 2939,2950 ----
  435.       long    cnt;
  436.   
  437.   #ifdef FEAT_CLIPBOARD
  438. !     /* Adjust register name for "unnamed" in 'clipboard'. */
  439. !     adjust_clip_reg(®name);
  440.       if (regname == '*')
  441. !     clip_get_selection(&clip_star);
  442.       else if (regname == '+')
  443. !     clip_get_selection(&clip_plus);
  444.   #endif
  445.   
  446.       if (flags & PUT_FIXINDENT)
  447. ***************
  448. *** 3021,3046 ****
  449.   #ifdef FEAT_VISUAL
  450.       if (y_type == MLINE)
  451.       {
  452. !     if (flags & PUT_LINE_BACKWARD)
  453.       {
  454. !         /* "P" in Visual mode: Put before the Visual area instead of after
  455. !          * it.  It's OK to change the cursor position here (special
  456. !          * case!). */
  457. !         dir = BACKWARD;
  458. !         curwin->w_cursor = curbuf->b_visual_start;
  459.       }
  460. !     else if (VIsual_active && VIsual_mode == Ctrl_V)
  461.       {
  462. !         /* "p" in Visual block mode with linewise text: put below the
  463. !          * block. */
  464.           curwin->w_cursor = curbuf->b_visual_end;
  465.       }
  466.       curbuf->b_op_start = curwin->w_cursor;    /* default for '[ mark */
  467.       curbuf->b_op_end = curwin->w_cursor;    /* default for '] mark */
  468.       }
  469.   #endif
  470.   
  471. !     if (flags & PUT_LINE)        /* :put command */
  472.       y_type = MLINE;
  473.   
  474.       if (y_size == 0 || y_array == NULL)
  475. --- 3040,3076 ----
  476.   #ifdef FEAT_VISUAL
  477.       if (y_type == MLINE)
  478.       {
  479. !     if (flags & PUT_LINE_SPLIT)
  480.       {
  481. !         /* "p" or "P" in Visual mode: split the lines to put the text in
  482. !          * between. */
  483. !         if (u_save_cursor() == FAIL)
  484. !         goto end;
  485. !         ptr = vim_strsave(ml_get_cursor());
  486. !         if (ptr == NULL)
  487. !         goto end;
  488. !         ml_append(curwin->w_cursor.lnum, ptr, (colnr_T)0, FALSE);
  489. !         vim_free(ptr);
  490. ! 
  491. !         ptr = vim_strnsave(ml_get_curline(), curwin->w_cursor.col);
  492. !         if (ptr == NULL)
  493. !         goto end;
  494. !         ml_replace(curwin->w_cursor.lnum, ptr, FALSE);
  495. !         ++nr_lines;
  496. !         dir = FORWARD;
  497.       }
  498. !     if (flags & PUT_LINE_FORWARD)
  499.       {
  500. !         /* Must be "p" for a Visual block, put lines below the block. */
  501.           curwin->w_cursor = curbuf->b_visual_end;
  502. +         dir = FORWARD;
  503.       }
  504.       curbuf->b_op_start = curwin->w_cursor;    /* default for '[ mark */
  505.       curbuf->b_op_end = curwin->w_cursor;    /* default for '] mark */
  506.       }
  507.   #endif
  508.   
  509. !     if (flags & PUT_LINE)    /* :put command or "p" in Visual line mode. */
  510.       y_type = MLINE;
  511.   
  512.       if (y_size == 0 || y_array == NULL)
  513. ***************
  514. *** 3360,3366 ****
  515.       else
  516.       {
  517.           /*
  518. !          * Insert at least one one.  When y_type is MCHAR, break the first
  519.            * line in two.
  520.            */
  521.           for (cnt = 1; cnt <= count; ++cnt)
  522. --- 3390,3396 ----
  523.       else
  524.       {
  525.           /*
  526. !          * Insert at least one line.  When y_type is MCHAR, break the first
  527.            * line in two.
  528.            */
  529.           for (cnt = 1; cnt <= count; ++cnt)
  530. *** ../vim61.236/src/proto/ops.pro    Sun Jul 28 22:02:42 2002
  531. --- src/proto/ops.pro    Sun Oct 27 18:03:58 2002
  532. ***************
  533. *** 9,19 ****
  534. --- 9,22 ----
  535.   int get_expr_register __ARGS((void));
  536.   void set_expr_line __ARGS((char_u *new_line));
  537.   int valid_yank_reg __ARGS((int regname, int writing));
  538. + void *get_register __ARGS((int name, int copy));
  539. + void put_register __ARGS((int name, void *reg));
  540.   int yank_register_mline __ARGS((int regname));
  541.   int do_record __ARGS((int c));
  542.   int do_execreg __ARGS((int regname, int colon, int addcr));
  543.   int insert_reg __ARGS((int regname, int literally));
  544.   int cmdline_paste __ARGS((int regname, int literally));
  545. + void adjust_clip_reg __ARGS((int *rp));
  546.   int op_delete __ARGS((oparg_T *oap));
  547.   int op_replace __ARGS((oparg_T *oap, int c));
  548.   void op_tilde __ARGS((oparg_T *oap));
  549. *** ../vim61.236/src/version.c    Sun Oct 27 19:31:44 2002
  550. --- src/version.c    Sun Oct 27 20:21:01 2002
  551. ***************
  552. *** 608,609 ****
  553. --- 608,611 ----
  554.   {   /* Add new patch number below this line */
  555. + /**/
  556. +     237,
  557.   /**/
  558.  
  559. -- 
  560. ARTHUR:  I did say sorry about the `old woman,' but from the behind you
  561.          looked--
  562. DENNIS:  What I object to is you automatically treat me like an inferior!
  563. ARTHUR:  Well, I AM king...
  564.                                   The Quest for the Holy Grail (Monty Python)
  565.  
  566.  ///  Bram Moolenaar -- Bram@moolenaar.net -- http://www.moolenaar.net  \\\
  567. ///          Creator of Vim - Vi IMproved -- http://www.vim.org          \\\
  568. \\\           Project leader for A-A-P -- http://www.a-a-p.org           ///
  569.  \\\ Lord Of The Rings helps Uganda - http://iccf-holland.org/lotr.html ///
  570.