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.308 < prev    next >
Encoding:
Internet Message Format  |  2003-01-27  |  6.6 KB
  1. To: vim-dev@vim.org
  2. Subject: Patch 6.1.308
  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.308
  11. Problem:    Can't reset the Visual mode returned by visualmode().
  12. Solution:   Use an optional argument to visualmode(). (Charles Campbell)
  13. Files:        runtime/doc/eval.txt, src/eval.c, src/normal.c,
  14.         src/structs.h
  15.  
  16.  
  17. *** ../vim61.307/runtime/doc/eval.txt    Sun Jan  5 22:14:46 2003
  18. --- runtime/doc/eval.txt    Tue Jan 28 21:57:36 2003
  19. ***************
  20. *** 1,4 ****
  21. ! *eval.txt*      For Vim version 6.1.  Last change: 2003 Jan 05
  22.   
  23.   
  24.             VIM REFERENCE MANUAL    by Bram Moolenaar
  25. --- 1,4 ----
  26. ! *eval.txt*      For Vim version 6.1.  Last change: 2003 Jan 28
  27.   
  28.   
  29.             VIM REFERENCE MANUAL    by Bram Moolenaar
  30. ***************
  31. *** 865,871 ****
  32.   toupper( {expr})        String    the String {expr} switched to uppercase
  33.   type( {name})            Number    type of variable {name}
  34.   virtcol( {expr})        Number    screen column of cursor or mark
  35. ! visualmode()            String    last visual mode used
  36.   winbufnr( {nr})            Number    buffer number of window {nr}
  37.   wincol()            Number    window column of the cursor
  38.   winheight( {nr})        Number    height of window {nr}
  39. --- 869,875 ----
  40.   toupper( {expr})        String    the String {expr} switched to uppercase
  41.   type( {name})            Number    type of variable {name}
  42.   virtcol( {expr})        Number    screen column of cursor or mark
  43. ! visualmode( [expr])        String    last visual mode used
  44.   winbufnr( {nr})            Number    buffer number of window {nr}
  45.   wincol()            Number    window column of the cursor
  46.   winheight( {nr})        Number    height of window {nr}
  47. ***************
  48. *** 2391,2397 ****
  49.     virtcol("'t")    with text "    there", with 't at 'h', returns 6
  50.   <        The first column is 1.  0 is returned for an error.
  51.   
  52. ! visualmode()                        *visualmode()*
  53.           The result is a String, which describes the last Visual mode
  54.           used.  Initially it returns an empty string, but once Visual
  55.           mode has been used, it returns "v", "V", or "<CTRL-V>" (a
  56. --- 2427,2433 ----
  57.     virtcol("'t")    with text "    there", with 't at 'h', returns 6
  58.   <        The first column is 1.  0 is returned for an error.
  59.   
  60. ! visualmode([expr])                        *visualmode()*
  61.           The result is a String, which describes the last Visual mode
  62.           used.  Initially it returns an empty string, but once Visual
  63.           mode has been used, it returns "v", "V", or "<CTRL-V>" (a
  64. ***************
  65. *** 2403,2408 ****
  66. --- 2439,2449 ----
  67.           in scripts if you wish to act differently depending on the
  68.           Visual mode that was used.
  69.   
  70. +         If an expression is supplied that results in a non-zero number
  71. +         or a non-empty string, then the Visual mode will be cleared
  72. +         and the old value is returned.  Note that " " and "0" are also
  73. +         non-empty strings, thus cause the mode to be cleared.
  74. + 
  75.                               *winbufnr()*
  76.   winbufnr({nr})    The result is a Number, which is the number of the buffer
  77.           associated with window {nr}. When {nr} is zero, the number of
  78. *** ../vim61.307/src/eval.c    Sun Jan 19 17:16:13 2003
  79. --- src/eval.c    Tue Jan 28 22:00:17 2003
  80. ***************
  81. *** 2520,2526 ****
  82.       {"toupper",        1, 1, f_toupper},
  83.       {"type",        1, 1, f_type},
  84.       {"virtcol",        1, 1, f_virtcol},
  85. !     {"visualmode",    0, 0, f_visualmode},
  86.       {"winbufnr",    1, 1, f_winbufnr},
  87.       {"wincol",        0, 0, f_wincol},
  88.       {"winheight",    1, 1, f_winheight},
  89. --- 2520,2526 ----
  90.       {"toupper",        1, 1, f_toupper},
  91.       {"type",        1, 1, f_type},
  92.       {"virtcol",        1, 1, f_virtcol},
  93. !     {"visualmode",    0, 1, f_visualmode},
  94.       {"winbufnr",    1, 1, f_winbufnr},
  95.       {"wincol",        0, 0, f_wincol},
  96.       {"winheight",    1, 1, f_winheight},
  97. ***************
  98. *** 6587,6595 ****
  99.       char_u    str[2];
  100.   
  101.       retvar->var_type = VAR_STRING;
  102. !     str[0] = curbuf->b_visual_mode;
  103.       str[1] = NUL;
  104.       retvar->var_val.var_string = vim_strsave(str);
  105.   }
  106.   
  107.   /*
  108. --- 6587,6602 ----
  109.       char_u    str[2];
  110.   
  111.       retvar->var_type = VAR_STRING;
  112. !     str[0] = curbuf->b_visual_mode_eval;
  113.       str[1] = NUL;
  114.       retvar->var_val.var_string = vim_strsave(str);
  115. + 
  116. +     /* A non-zero number or non-empty string argument: reset mode. */
  117. +     if ((argvars[0].var_type == VAR_NUMBER
  118. +         && argvars[0].var_val.var_number != 0)
  119. +         || (argvars[0].var_type == VAR_STRING
  120. +         && *get_var_string(&argvars[0]) != NUL))
  121. +     curbuf->b_visual_mode_eval = NUL;
  122.   }
  123.   
  124.   /*
  125. *** ../vim61.307/src/normal.c    Sun Jan 26 22:42:25 2003
  126. --- src/normal.c    Tue Jan 28 22:03:43 2003
  127. ***************
  128. *** 1360,1365 ****
  129. --- 1360,1368 ----
  130.           curbuf->b_visual_start = VIsual;
  131.           curbuf->b_visual_end = curwin->w_cursor;
  132.           curbuf->b_visual_mode = VIsual_mode;
  133. + # ifdef FEAT_EVAL
  134. +         curbuf->b_visual_mode_eval = VIsual_mode;
  135. + # endif
  136.           curbuf->b_visual_curswant = curwin->w_curswant;
  137.   
  138.           /* In Select mode, a linewise selection is operated upon like a
  139. ***************
  140. *** 2906,2911 ****
  141. --- 2909,2917 ----
  142.   
  143.       /* Save the current VIsual area for '< and '> marks, and "gv" */
  144.       curbuf->b_visual_mode = VIsual_mode;
  145. + #ifdef FEAT_EVAL
  146. +     curbuf->b_visual_mode_eval = VIsual_mode;
  147. + #endif
  148.       curbuf->b_visual_start = VIsual;
  149.       curbuf->b_visual_end = curwin->w_cursor;
  150.       curbuf->b_visual_curswant = curwin->w_curswant;
  151. ***************
  152. *** 6697,6702 ****
  153. --- 6703,6711 ----
  154.           i = VIsual_mode;
  155.           VIsual_mode = curbuf->b_visual_mode;
  156.           curbuf->b_visual_mode = i;
  157. + # ifdef FEAT_EVAL
  158. +         curbuf->b_visual_mode_eval = i;
  159. + # endif
  160.           i = curwin->w_curswant;
  161.           curwin->w_curswant = curbuf->b_visual_curswant;
  162.           curbuf->b_visual_curswant = i;
  163. *** ../vim61.307/src/structs.h    Sun Jan  5 22:14:46 2003
  164. --- src/structs.h    Tue Jan 28 22:02:54 2003
  165. ***************
  166. *** 819,824 ****
  167. --- 821,829 ----
  168.       pos_T    b_visual_start;    /* start pos of last VIsual */
  169.       pos_T    b_visual_end;    /* end position of last VIsual */
  170.       int        b_visual_mode;    /* VIsual_mode of last VIsual */
  171. + # ifdef FEAT_EVAL
  172. +     int        b_visual_mode_eval;  /* b_visual_mode for visualmode() */
  173. + # endif
  174.       colnr_T    b_visual_curswant;   /* MAXCOL from w_curswant */
  175.   #endif
  176.   
  177. *** ../vim61.307/src/version.c    Tue Jan 28 21:51:20 2003
  178. --- src/version.c    Tue Jan 28 21:53:19 2003
  179. ***************
  180. *** 608,609 ****
  181. --- 608,611 ----
  182.   {   /* Add new patch number below this line */
  183. + /**/
  184. +     308,
  185.   /**/
  186.  
  187. -- 
  188. hundred-and-one symptoms of being an internet addict:
  189. 70. ISDN lines are added to your house on a hourly basis
  190.  
  191.  /// Bram Moolenaar -- Bram@Moolenaar.net -- http://www.Moolenaar.net   \\\
  192. ///          Creator of Vim - Vi IMproved -- http://www.Vim.org          \\\
  193. \\\              Project leader for A-A-P -- http://www.A-A-P.org        ///
  194.  \\\     Help AIDS victims, buy at Amazon -- http://ICCF.nl/click1.html ///
  195.