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 / 7.4 / 7.4.313 < prev    next >
Encoding:
Internet Message Format  |  2014-05-27  |  10.7 KB
  1. To: vim_dev@googlegroups.com
  2. Subject: Patch 7.4.313
  3. Fcc: outbox
  4. From: Bram Moolenaar <Bram@moolenaar.net>
  5. Mime-Version: 1.0
  6. Content-Type: text/plain; charset=UTF-8
  7. Content-Transfer-Encoding: 8bit
  8. ------------
  9.  
  10. Patch 7.4.313 (after 7.4.310)
  11. Problem:    Changing the return value of getpos() causes an error. (Jie Zhu)
  12. Solution:   Revert getpos() and add getcurpos().
  13. Files:        src/eval.c, src/testdir/test_eval.in, src/testdir/test_eval.ok,
  14.         runtime/doc/eval.txt
  15.  
  16.  
  17. *** ../vim-7.4.312/src/eval.c    2014-05-28 18:22:37.876225054 +0200
  18. --- src/eval.c    2014-05-28 20:11:55.364282457 +0200
  19. ***************
  20. *** 560,565 ****
  21. --- 560,566 ----
  22.   static void f_getline __ARGS((typval_T *argvars, typval_T *rettv));
  23.   static void f_getmatches __ARGS((typval_T *argvars, typval_T *rettv));
  24.   static void f_getpid __ARGS((typval_T *argvars, typval_T *rettv));
  25. + static void f_getcurpos __ARGS((typval_T *argvars, typval_T *rettv));
  26.   static void f_getpos __ARGS((typval_T *argvars, typval_T *rettv));
  27.   static void f_getqflist __ARGS((typval_T *argvars, typval_T *rettv));
  28.   static void f_getreg __ARGS((typval_T *argvars, typval_T *rettv));
  29. ***************
  30. *** 7967,7972 ****
  31. --- 7968,7974 ----
  32.       {"getcmdline",    0, 0, f_getcmdline},
  33.       {"getcmdpos",    0, 0, f_getcmdpos},
  34.       {"getcmdtype",    0, 0, f_getcmdtype},
  35. +     {"getcurpos",    0, 0, f_getcurpos},
  36.       {"getcwd",        0, 0, f_getcwd},
  37.       {"getfontname",    0, 1, f_getfontname},
  38.       {"getfperm",    1, 1, f_getfperm},
  39. ***************
  40. *** 11780,11785 ****
  41. --- 11782,11800 ----
  42.       rettv->vval.v_number = mch_get_pid();
  43.   }
  44.   
  45. + static void getpos_both __ARGS((typval_T *argvars, typval_T *rettv, int getcurpos));
  46. + 
  47. + /*
  48. +  * "getcurpos()" function
  49. +  */
  50. +     static void
  51. + f_getcurpos(argvars, rettv)
  52. +     typval_T    *argvars;
  53. +     typval_T    *rettv;
  54. + {
  55. +     getpos_both(argvars, rettv, TRUE);
  56. + }
  57. + 
  58.   /*
  59.    * "getpos(string)" function
  60.    */
  61. ***************
  62. *** 11788,11793 ****
  63. --- 11803,11817 ----
  64.       typval_T    *argvars;
  65.       typval_T    *rettv;
  66.   {
  67. +     getpos_both(argvars, rettv, FALSE);
  68. + }
  69. + 
  70. +     static void
  71. + getpos_both(argvars, rettv, getcurpos)
  72. +     typval_T    *argvars;
  73. +     typval_T    *rettv;
  74. +     int        getcurpos;
  75. + {
  76.       pos_T    *fp;
  77.       list_T    *l;
  78.       int        fnum = -1;
  79. ***************
  80. *** 11795,11801 ****
  81.       if (rettv_list_alloc(rettv) == OK)
  82.       {
  83.       l = rettv->vval.v_list;
  84. !     fp = var2fpos(&argvars[0], TRUE, &fnum);
  85.       if (fnum != -1)
  86.           list_append_number(l, (varnumber_T)fnum);
  87.       else
  88. --- 11819,11828 ----
  89.       if (rettv_list_alloc(rettv) == OK)
  90.       {
  91.       l = rettv->vval.v_list;
  92. !     if (getcurpos)
  93. !         fp = &curwin->w_cursor;
  94. !     else
  95. !         fp = var2fpos(&argvars[0], TRUE, &fnum);
  96.       if (fnum != -1)
  97.           list_append_number(l, (varnumber_T)fnum);
  98.       else
  99. ***************
  100. *** 11810,11816 ****
  101.                   (fp != NULL) ? (varnumber_T)fp->coladd :
  102.   #endif
  103.                                     (varnumber_T)0);
  104. !     if (fp == &curwin->w_cursor)
  105.           list_append_number(l, (varnumber_T)curwin->w_curswant + 1);
  106.       }
  107.       else
  108. --- 11837,11843 ----
  109.                   (fp != NULL) ? (varnumber_T)fp->coladd :
  110.   #endif
  111.                                     (varnumber_T)0);
  112. !     if (getcurpos)
  113.           list_append_number(l, (varnumber_T)curwin->w_curswant + 1);
  114.       }
  115.       else
  116. *** ../vim-7.4.312/src/testdir/test_eval.in    2014-05-28 14:32:47.160104334 +0200
  117. --- src/testdir/test_eval.in    2014-05-28 20:14:27.048283785 +0200
  118. ***************
  119. *** 190,198 ****
  120.   :$put =v:exception
  121.   :endtry
  122.   :"
  123. ! :$put ='{{{1 setpos/getpos'
  124.   /^012345678
  125. ! 6l:let sp = getpos('.')
  126.   0:call setpos('.', sp)
  127.   jyl:$put
  128.   :"
  129. --- 190,198 ----
  130.   :$put =v:exception
  131.   :endtry
  132.   :"
  133. ! :$put ='{{{1 getcurpos/setpos'
  134.   /^012345678
  135. ! 6l:let sp = getcurpos()
  136.   0:call setpos('.', sp)
  137.   jyl:$put
  138.   :"
  139. *** ../vim-7.4.312/src/testdir/test_eval.ok    2014-05-28 14:32:47.160104334 +0200
  140. --- src/testdir/test_eval.ok    2014-05-28 20:14:43.316283927 +0200
  141. ***************
  142. *** 346,350 ****
  143.   Bar exists: 1
  144.   func Bar exists: 1
  145.   Vim(call):E116: Invalid arguments for function append
  146. ! {{{1 setpos/getpos
  147.   6
  148. --- 346,350 ----
  149.   Bar exists: 1
  150.   func Bar exists: 1
  151.   Vim(call):E116: Invalid arguments for function append
  152. ! {{{1 getcurpos/setpos
  153.   6
  154. *** ../vim-7.4.312/runtime/doc/eval.txt    2014-05-28 18:22:37.872225054 +0200
  155. --- runtime/doc/eval.txt    2014-05-28 20:27:57.092290876 +0200
  156. ***************
  157. *** 1808,1817 ****
  158.   getcmdline()            String    return the current command-line
  159.   getcmdpos()            Number    return cursor position in command-line
  160.   getcmdtype()            String    return the current command-line type
  161.   getcwd()            String    the current working directory
  162.   getfperm( {fname})        String    file permissions of file {fname}
  163.   getfsize( {fname})        Number    size in bytes of file {fname}
  164. - getfontname( [{name}])        String    name of font being used
  165.   getftime( {fname})        Number    last modification time of file
  166.   getftype( {fname})        String    description of type of file {fname}
  167.   getline( {lnum})        String    line {lnum} of current buffer
  168. --- 1808,1818 ----
  169.   getcmdline()            String    return the current command-line
  170.   getcmdpos()            Number    return cursor position in command-line
  171.   getcmdtype()            String    return the current command-line type
  172. + getcurpos()            List    position of the cursor
  173.   getcwd()            String    the current working directory
  174. + getfontname( [{name}])        String    name of font being used
  175.   getfperm( {fname})        String    file permissions of file {fname}
  176.   getfsize( {fname})        Number    size in bytes of file {fname}
  177.   getftime( {fname})        Number    last modification time of file
  178.   getftype( {fname})        String    description of type of file {fname}
  179.   getline( {lnum})        String    line {lnum} of current buffer
  180. ***************
  181. *** 2606,2613 ****
  182.           with two, three or four item:
  183.               [{lnum}, {col}, {off}]
  184.               [{lnum}, {col}, {off}, {curswant}]
  185. !         This is like the return value of |getpos()|, but without the
  186. !         first item.
  187.   
  188.           Does not change the jumplist.
  189.           If {lnum} is greater than the number of lines in the buffer,
  190. --- 2607,2614 ----
  191.           with two, three or four item:
  192.               [{lnum}, {col}, {off}]
  193.               [{lnum}, {col}, {off}, {curswant}]
  194. !         This is like the return value of |getpos()| or |getcurpos|,
  195. !         but without the first item.
  196.   
  197.           Does not change the jumplist.
  198.           If {lnum} is greater than the number of lines in the buffer,
  199. ***************
  200. *** 2617,2622 ****
  201. --- 2618,2625 ----
  202.           the cursor will be positioned at the last character in the
  203.           line.
  204.           If {col} is zero, the cursor will stay in the current column.
  205. +         If {curswant} is given it is used to set the preferred column
  206. +         for vertical movment.  Otherwise {col} is used.
  207.           When 'virtualedit' is used {off} specifies the offset in
  208.           screen columns from the start of the character.  E.g., a
  209.           position within a <Tab> or after the last character.
  210. ***************
  211. *** 3339,3344 ****
  212. --- 3347,3363 ----
  213.           Returns an empty string otherwise.
  214.           Also see |getcmdpos()|, |setcmdpos()| and |getcmdline()|.
  215.   
  216. +                             *getcurpos()*
  217. + getcurpos()    Get the position of the cursor.  This is like getpos('.'), but
  218. +         includes an extra item in the list:
  219. +             [bufnum, lnum, col, off, curswant]
  220. +         The "curswant" number is the preferred column when moving the
  221. +         cursor vertically.
  222. +         This can be used to save and restore the cursor position: >
  223. +             let save_cursor = getcurpos()
  224. +             MoveTheCursorAround
  225. +             call setpos('.', save_cursor)
  226. + 
  227.                               *getcwd()*
  228.   getcwd()    The result is a String, which is the name of the current
  229.           working directory.
  230. ***************
  231. *** 4493,4502 ****
  232.   
  233.                               *getpos()*
  234.   getpos({expr})    Get the position for {expr}.  For possible values of {expr}
  235. !         see |line()|.
  236. !         The result is a |List| with four or five numbers:
  237.               [bufnum, lnum, col, off]
  238. -             [bufnum, lnum, col, off, curswant]
  239.           "bufnum" is zero, unless a mark like '0 or 'A is used, then it
  240.           is the buffer number of the mark.
  241.           "lnum" and "col" are the position in the buffer.  The first
  242. --- 4517,4526 ----
  243.   
  244.                               *getpos()*
  245.   getpos({expr})    Get the position for {expr}.  For possible values of {expr}
  246. !         see |line()|.  For getting the cursor position see
  247. !         |getcurpos()|.
  248. !         The result is a |List| with four numbers:
  249.               [bufnum, lnum, col, off]
  250.           "bufnum" is zero, unless a mark like '0 or 'A is used, then it
  251.           is the buffer number of the mark.
  252.           "lnum" and "col" are the position in the buffer.  The first
  253. ***************
  254. *** 4505,4520 ****
  255.           it is the offset in screen columns from the start of the
  256.           character.  E.g., a position within a <Tab> or after the last
  257.           character.
  258. -         The "curswant" number is only added for getpos('.'), it is the
  259. -         preferred column when moving the cursor vertically.
  260.           Note that for '< and '> Visual mode matters: when it is "V"
  261.           (visual line mode) the column of '< is zero and the column of
  262.           '> is a large number.
  263. !         This can be used to save and restore the cursor position: >
  264. !             let save_cursor = getpos(".")
  265. !             MoveTheCursorAround
  266. !             call setpos('.', save_cursor)
  267. ! <        Also see |setpos()|.
  268.   
  269.   or({expr}, {expr})                    *or()*
  270.           Bitwise OR on the two arguments.  The arguments are converted
  271. --- 4529,4542 ----
  272.           it is the offset in screen columns from the start of the
  273.           character.  E.g., a position within a <Tab> or after the last
  274.           character.
  275.           Note that for '< and '> Visual mode matters: when it is "V"
  276.           (visual line mode) the column of '< is zero and the column of
  277.           '> is a large number.
  278. !         This can be used to save and restore the position of a mark: >
  279. !             let save_a_mark = getpos("'a")
  280. !             ...
  281. !             call setpos(''a', save_a_mark
  282. ! <        Also see |getcurpos()| and |setpos()|.
  283.   
  284.   or({expr}, {expr})                    *or()*
  285.           Bitwise OR on the two arguments.  The arguments are converted
  286. ***************
  287. *** 5347,5353 ****
  288.           Returns 0 when the position could be set, -1 otherwise.
  289.           An error message is given if {expr} is invalid.
  290.   
  291. !         Also see |getpos()|
  292.   
  293.           This does not restore the preferred column for moving
  294.           vertically; if you set the cursor position with this, |j| and
  295. --- 5369,5375 ----
  296.           Returns 0 when the position could be set, -1 otherwise.
  297.           An error message is given if {expr} is invalid.
  298.   
  299. !         Also see |getpos()| and |getcurpos()|.
  300.   
  301.           This does not restore the preferred column for moving
  302.           vertically; if you set the cursor position with this, |j| and
  303. *** ../vim-7.4.312/src/version.c    2014-05-28 18:22:37.880225054 +0200
  304. --- src/version.c    2014-05-28 20:15:52.164284530 +0200
  305. ***************
  306. *** 736,737 ****
  307. --- 736,739 ----
  308.   {   /* Add new patch number below this line */
  309. + /**/
  310. +     313,
  311.   /**/
  312.  
  313. -- 
  314. hundred-and-one symptoms of being an internet addict:
  315. 225. You sign up for free subscriptions for all the computer magazines
  316.  
  317.  /// Bram Moolenaar -- Bram@Moolenaar.net -- http://www.Moolenaar.net   \\\
  318. ///        sponsor Vim, vote for features -- http://www.Vim.org/sponsor/ \\\
  319. \\\  an exciting new programming language -- http://www.Zimbu.org        ///
  320.  \\\            help me help AIDS victims -- http://ICCF-Holland.org    ///
  321.