Ticket #1793: vim-7.0-nogui.patch

runtime/autoload/ccomplete.vim

@@ -1 +1 @@
 " Vim completion script
 " Language:     C
 " Maintainer:   Bram Moolenaar <Bram@vim.org>
-" Last Change:  2006 May 03
+" Last Change:  2006 May 08
 
 
 " This function is used for the 'omnifunc' option.
@@ -458 +458 @@
 " member.
 function! s:StructMembers(typename, items, all)
   " Todo: What about local structures?
-  let fnames = join(map(tagfiles(), 'escape(v:val, " \\")'))
+  let fnames = join(map(tagfiles(), 'escape(v:val, " \\#%")'))
   if fnames == ''
     return []
   endif

runtime/autoload/spellfile.vim

@@ -1 +1 @@
 " Vim script to download a missing spell file
 " Maintainer:   Bram Moolenaar <Bram@vim.org>
-" Last Change:  2006 Feb 01
+" Last Change:  2006 May 10
 
 if !exists('g:spellfile_URL')
-  let g:spellfile_URL = 'ftp://ftp.vim.org/pub/vim/unstable/runtime/spell'
+  let g:spellfile_URL = 'ftp://ftp.vim.org/pub/vim/runtime/spell'
 endif
 let s:spellfile_URL = ''    " Start with nothing so that s:donedict is reset.
 
@@ -61 +61 @@
     new
     setlocal bin
     echo 'Downloading ' . fname . '...'
-    exe 'Nread ' g:spellfile_URL . '/' . fname
+    call spellfile#Nread(fname)
     if getline(2) !~ 'VIMspell'
       " Didn't work, perhaps there is an ASCII one.
       g/^/d
       let fname = a:lang . '.ascii.spl'
       echo 'Could not find it, trying ' . fname . '...'
-      exe 'Nread ' g:spellfile_URL . '/' . fname
+      call spellfile#Nread(fname)
       if getline(2) !~ 'VIMspell'
         echo 'Sorry, downloading failed'
         bwipe!
@@ -95 +95 @@
         g/^/d
         let fname = substitute(fname, '\.spl$', '.sug', '')
         echo 'Downloading ' . fname . '...'
-        exe 'Nread ' g:spellfile_URL . '/' . fname
+        call spellfile#Nread(fname)
         if getline(2) !~ 'VIMsug'
           echo 'Sorry, downloading failed'
         else
@@ -109 +109 @@
     bwipe
   endif
 endfunc
+
+" Read "fname" from the ftp server.
+function! spellfile#Nread(fname)
+  let machine = substitute(g:spellfile_URL, 'ftp://\([^/]*\).*', '\1', '')
+  let dir = substitute(g:spellfile_URL, 'ftp://[^/]*/\(.*\)', '\1', '')
+  exe 'Nread "' . machine . ' anonymous vim7user ' . dir . '/' . a:fname . '"'
+endfunc

runtime/plugin/matchparen.vim

@@ -1 +1 @@
 " Vim plugin for showing matching parens
 " Maintainer:  Bram Moolenaar <Bram@vim.org>
-" Last Change: 2006 Apr 27
+" Last Change: 2006 May 11
 
 " Exit quickly when:
 " - this plugin was already loaded (or disabled)
@@ -90 +90 @@
   " Find the match.  When it was just before the cursor move it there for a
   " moment.
   if before > 0
-    let save_cursor = getpos('.')
+    let save_cursor = winsaveview()
     call cursor(c_lnum, c_col - before)
   endif
 
@@ -102 +102 @@
   let [m_lnum, m_col] = searchpairpos(c, '', c2, s_flags, s_skip, stopline)
 
   if before > 0
-    call setpos('.', save_cursor)
+    call winrestview(save_cursor)
   endif
 
   " If a match is found setup match highlighting.

src/edit.c

@@ -751 +751 @@
                     continue;
                 }
 
-                /* Pressing CTRL-Y selects the current match.  Shen
+                /* Pressing CTRL-Y selects the current match.  When
                  * compl_enter_selects is set the Enter key does the same. */
                 if (c == Ctrl_Y || (compl_enter_selects
                                    && (c == CAR || c == K_KENTER || c == NL)))
@@ -3046 +3046 @@
     ins_compl_delete();
     ins_bytes(compl_leader + curwin->w_cursor.col - compl_col);
     compl_used_match = FALSE;
-    compl_enter_selects = FALSE;
 
     if (compl_started)
         ins_compl_set_original_text(compl_leader);
@@ -3076 +3075 @@
         compl_restarting = FALSE;
     }
 
+#if 0   /* disabled, made CTRL-L, BS and typing char jump to original text. */
     if (!compl_used_match)
     {
         /* Go to the original text, since none of the matches is inserted. */
@@ -3087 +3087 @@
         compl_curr_match = compl_shown_match;
         compl_shows_dir = compl_direction;
     }
+#endif
+    compl_enter_selects = !compl_used_match;
 
     /* Show the popup menu with a different set of matches. */
     ins_compl_show_pum();
@@ -3175 +3177 @@
     char_u      *p;
     int         len = curwin->w_cursor.col - compl_col;
     int         c;
+    compl_T     *cp;
 
     p = compl_shown_match->cp_str;
     if ((int)STRLEN(p) <= len)   /* the match is too short */
-        return;
+    {
+        /* When still at the original match use the first entry that matches
+         * the leader. */
+        if (compl_shown_match->cp_flags & ORIGINAL_TEXT)
+        {
+            p = NULL;
+            for (cp = compl_shown_match->cp_next; cp != NULL
+                                 && cp != compl_first_match; cp = cp->cp_next)
+            {
+                if (ins_compl_equal(cp, compl_leader,
+                                                   (int)STRLEN(compl_leader)))
+                {
+                    p = cp->cp_str;
+                    break;
+                }
+            }
+            if (p == NULL || (int)STRLEN(p) <= len)
+                return;
+        }
+        else
+            return;
+    }
     p += len;
 #ifdef FEAT_MBYTE
     c = mb_ptr2char(p);
@@ -4100 +4124 @@
                 && compl_shown_match->cp_next != NULL
                 && compl_shown_match->cp_next != compl_first_match)
             compl_shown_match = compl_shown_match->cp_next;
+
+        /* If we didn't find it searching forward, and compl_shows_dir is
+         * backward, find the last match. */
+        if (compl_shows_dir == BACKWARD
+                && !ins_compl_equal(compl_shown_match,
+                                      compl_leader, (int)STRLEN(compl_leader))
+                && (compl_shown_match->cp_next == NULL
+                    || compl_shown_match->cp_next == compl_first_match))
+        {
+            while (!ins_compl_equal(compl_shown_match,
+                                      compl_leader, (int)STRLEN(compl_leader))
+                    && compl_shown_match->cp_prev != NULL
+                    && compl_shown_match->cp_prev != compl_first_match)
+                compl_shown_match = compl_shown_match->cp_prev;
+        }
     }
 
     if (allow_get_expansion && insert_match

src/eval.c

@@ -11372 +11372 @@
             if (argvars[2].v_type != VAR_UNKNOWN)
             {
                 char_u  *xp_name;
-                int             xp_namelen;
+                int     xp_namelen;
                 long    argt;
 
                 rettv->vval.v_string = NULL;
@@ -18963 +18963 @@
     else if (lead > 0)
     {
         lead = 3;
-        if (eval_fname_sid(lv.ll_exp_name != NULL ? lv.ll_exp_name : *pp))
+        if ((lv.ll_exp_name != NULL && eval_fname_sid(lv.ll_exp_name))
+                                                       || eval_fname_sid(*pp))
         {
             /* It's "s:" or "<SID>" */
             if (current_SID <= 0)

src/ex_docmd.c

@@ -833 +833 @@
      * If requested, store and reset the global values controlling the
      * exception handling (used when debugging).
      */
-    else if (flags & DOCMD_EXCRESET)
+    if (flags & DOCMD_EXCRESET)
         save_dbg_stuff(&debug_saved);
 
     initial_trylevel = trylevel;

src/mbyte.c

@@ -311 +311 @@
 
 #define IDX_MACROMAN    57
     {"macroman",        ENC_8BIT + ENC_MACROMAN, 0},    /* Mac OS */
-#define IDX_COUNT       58
+#define IDX_DECMCS      58
+    {"dec-mcs",         ENC_8BIT,               0},     /* DEC MCS */
+#define IDX_HPROMAN8    59
+    {"hp-roman8",       ENC_8BIT,               0},     /* HP Roman8 */
+#define IDX_COUNT       60
 };
 
 /*
@@ -386 +390 @@
     {"950",             IDX_BIG5},
 #endif
     {"mac",             IDX_MACROMAN},
+    {"mac-roman",       IDX_MACROMAN},
     {NULL,              0}
 };
 

src/option.c

@@ -2294 +2294 @@
                             {(char_u *)0L, (char_u *)0L}
 #endif
                             },
-    {"spellsuggest", "sps", P_STRING|P_VI_DEF|P_EXPAND|P_SECURE,
+    {"spellsuggest", "sps", P_STRING|P_VI_DEF|P_EXPAND|P_SECURE|P_COMMA,
 #ifdef FEAT_SPELL
                             (char_u *)&p_sps, PV_NONE,
                             {(char_u *)"best", (char_u *)0L}
@@ -5227 +5227 @@
             case PV_STL:        return &curwin->w_p_stl_flags;
 #endif
 #ifdef FEAT_EVAL
+# ifdef FEAT_FOLDING
             case PV_FDE:        return &curwin->w_p_fde_flags;
             case PV_FDT:        return &curwin->w_p_fdt_flags;
+# endif
 # ifdef FEAT_BEVAL
             case PV_BEXPR:      return &curbuf->b_p_bexpr_flags;
 # endif
-#endif
-#if defined(FEAT_EVAL)
 # if defined(FEAT_CINDENT)
             case PV_INDE:       return &curbuf->b_p_inde_flags;
 # endif

src/spell.c

@@ -2108 +2108 @@
          * possible. */
         STRCPY(buf, line);
         if (lnum < wp->w_buffer->b_ml.ml_line_count)
-            spell_cat_line(buf + STRLEN(buf), ml_get(lnum + 1), MAXWLEN);
+            spell_cat_line(buf + STRLEN(buf),
+                          ml_get_buf(wp->w_buffer, lnum + 1, FALSE), MAXWLEN);
 
         p = buf + skip;
         endp = buf + len;

src/version.c

@@ -667 +667 @@
 static int included_patches[] =
 {   /* Add new patch number below this line */
 /**/
+    17,
+/**/
+    16,
+/**/
+    13,
+/**/
+    12,
+/**/
+    11,
+/**/
+    10,
+/**/
+    9,
+/**/
+    8,
+/**/
+    4,
+/**/
+    2,
+/**/
+    1,
+/**/
     0
 };