Ticket #1793: vim-7.0.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/gui_at_fs.c

@@ -1861 +1861 @@
     XtPointer   pnew;
 {
     SFDir       *dir;
-    int         nw;
+    int         nw = (int)(long)pnew;
 
     dir = &(SFdirs[SFdirPtr + (int)(long)n]);
 
 #ifdef FEAT_GUI_NEXTAW
-    if ((int)(long)pnew < 0)
+    if (nw < 0)
     {
-        if ((int)(long)pnew > -SFvScrollHeight)
-            (int)(long)pnew = -1;
+        if (nw > -SFvScrollHeight)
+            nw = -1;
         else
-            (int)(long)pnew = -SFlistSize;
+            nw = -SFlistSize;
     }
-    else if ((int)(long)pnew > 0)
+    else if (nw > 0)
     {
-        if ((int)(long)pnew < SFvScrollHeight)
-            (int)(long)pnew = 1;
+        if (nw < SFvScrollHeight)
+            nw = 1;
         else
-            (int)(long)pnew = SFlistSize;
+            nw = SFlistSize;
     }
 #endif
-    nw = dir->vOrigin + (int)(long)pnew;
+    nw += dir->vOrigin;
 
     if (nw > dir->nEntries - SFlistSize)
         nw = dir->nEntries - SFlistSize;
@@ -1941 +1941 @@
     XtPointer   pnew;
 {
     SFDir       *dir;
-    int         nw;
+    int         nw = (int)(long)pnew;
 
     dir = &(SFdirs[SFdirPtr + (int)(long)n]);
 
 #ifdef FEAT_GUI_NEXTAW
-    if ((int)(long)pnew < 0)
+    if (nw < 0)
     {
-        if ((int)(long)pnew > -SFhScrollWidth)
-            (int)(long)pnew = -1;
+        if (nw > -SFhScrollWidth)
+            nw = -1;
         else
-            (int)(long)pnew = -SFcharsPerEntry;
+            nw = -SFcharsPerEntry;
     }
-    else if ((int)(long)pnew > 0)
+    else if (nw > 0)
     {
-        if ((int)(long)pnew < SFhScrollWidth)
-            (int)(long)pnew = 1;
+        if (nw < SFhScrollWidth)
+            nw = 1;
         else
-            (int)(long)pnew = SFcharsPerEntry;
+            nw = SFcharsPerEntry;
     }
 #endif
-    nw = dir->hOrigin + (int)(long)pnew;
+    nw += dir->hOrigin;
 
     if (nw > dir->nChars - SFcharsPerEntry)
         nw = dir->nChars - SFcharsPerEntry;
@@ -2038 +2038 @@
     XtPointer   client_data;
     XtPointer   pnew;
 {
-    int         nw;
+    int         nw = (int)(long)pnew;
     float       f;
 
 #ifdef FEAT_GUI_NEXTAW
-    if ((int)(long)pnew < 0)
+    if (nw < 0)
     {
-        if ((int)(long)pnew > -SFpathScrollWidth)
-            (int)(long)pnew = -1;
+        if (nw > -SFpathScrollWidth)
+            nw = -1;
         else
-            (int)(long)pnew = -3;
+            nw = -3;
     }
-    else if ((int)(long)pnew > 0)
+    else if (nw > 0)
     {
-        if ((int)(long)pnew < SFpathScrollWidth)
-            (int)(long)pnew = 1;
+        if (nw < SFpathScrollWidth)
+            nw = 1;
         else
-            (int)(long)pnew = 3;
+            nw = 3;
     }
 #endif
-    nw = SFdirPtr + (int)(long)pnew;
+    nw += SFdirPtr;
 
     if (nw > SFdirEnd - 3)
         nw = SFdirEnd - 3;

src/gui.c

@@ -4603 +4603 @@
     /* Don't move the mouse when it's left or right of the Vim window */
     if (x < 0 || x > Columns * gui.char_width)
         return;
+    if (y >= 0
 # ifdef FEAT_WINDOWS
-    if (Y_2_ROW(y) >= tabline_height())
-# else
-    if (y >= 0)
+            && Y_2_ROW(y) >= tabline_height()
 # endif
+       )
         wp = xy2win(x, y);
     if (wp != curwin && wp != NULL)     /* If in other than current window */
     {

src/gui_xmebw.c

@@ -47 +47 @@
 #include "gui_xmebwp.h"
 
 /* Provide some missing wrappers, which are missed from the LessTif
- * implementation.
+ * implementation.  Also missing in Motif 1.2 and earlier.
  *
  * We neither use XmeGetPixmapData or _XmGetPixmapData, since with LessTif the
  * pixmap will not appear in it's caches properly. We cache the interresting
  * values in XmEnhancedButtonPart instead ourself.
  */
-#ifdef LESSTIF_VERSION
+#if defined(LESSTIF_VERSION) || (XmVersion <= 1002)
 # ifndef Lab_IsMenupane
 #  define Lab_IsMenupane(w) (Lab_MenuType(w) == (int)XmMENU_POPUP || \
                     Lab_MenuType(w) == (int)XmMENU_PULLDOWN)
@@ -480 +480 @@
             || (eb->core.height <= 2 * eb->primitive.highlight_thickness))
         return;
 
-#ifndef LESSTIF_VERSION
+#if !defined(LESSTIF_VERSION) && (XmVersion > 1002)
     {
         XmDisplay       dpy;
 
@@ -641 +641 @@
     GC          tmp_gc = NULL;
     Boolean     replaceGC = False;
     Boolean     deadjusted = False;
-#ifndef LESSTIF_VERSION
+#if !defined(LESSTIF_VERSION) && (XmVersion > 1002)
     XmDisplay   dpy = (XmDisplay)XmGetXmDisplay(XtDisplay(eb));
     Boolean     etched_in = dpy->display.enable_etched_in_menu;
 #else
@@ -726 +726 @@
         if ((((ShellWidget) XtParent(XtParent(eb)))->shell.popped_up)
                 && _XmGetInDragMode((Widget) eb))
         {
-#ifndef LESSTIF_VERSION
+#if !defined(LESSTIF_VERSION) && (XmVersion > 1002)
             XmDisplay dpy = (XmDisplay) XmGetXmDisplay(XtDisplay(wid));
             Boolean etched_in = dpy->display.enable_etched_in_menu;
 #else
@@ -810 +810 @@
 
     if (Lab_IsMenupane(eb))
     {
-#ifndef LESSTIF_VERSION
+#if !defined(LESSTIF_VERSION) && (XmVersion > 1002)
         XmDisplay dpy = (XmDisplay) XmGetXmDisplay(XtDisplay(wid));
         Boolean etched_in = dpy->display.enable_etched_in_menu;
 #else
@@ -1150 +1150 @@
 Redisplay(Widget w, XEvent *event, Region region)
 {
     XmEnhancedButtonWidget  eb = (XmEnhancedButtonWidget) w;
-#ifndef LESSTIF_VERSION
+#if !defined(LESSTIF_VERSION) && (XmVersion > 1002)
     XmDisplay               dpy;
     XtEnum                  default_button_emphasis;
 #endif
@@ -1162 +1162 @@
     if (!XtIsRealized((Widget)eb))
         return;
 
-#ifndef LESSTIF_VERSION
+#if !defined(LESSTIF_VERSION) && (XmVersion > 1002)
     dpy = (XmDisplay)XmGetXmDisplay(XtDisplay(eb));
     default_button_emphasis = dpy->display.default_button_emphasis;
 #endif
@@ -1241 +1241 @@
     {
         int adjust = 0;
 
-#ifndef LESSTIF_VERSION
+#if !defined(LESSTIF_VERSION) && (XmVersion > 1002)
         /*
          *  NOTE: PushButton has two types of shadows: primitive-shadow and
          *  default-button-shadow.  If pushbutton is in a menu only primitive
@@ -1289 +1289 @@
                           adjust, adjust, rectwidth, rectheight, borderwidth);
             }
 
-#ifndef LESSTIF_VERSION
+#if !defined(LESSTIF_VERSION) && (XmVersion > 1002)
             switch (default_button_emphasis)
             {
                 case XmINTERNAL_HIGHLIGHT:
@@ -1365 +1365 @@
                     default_button_shadow_thickness =
                                eb->pushbutton.default_button_shadow_thickness;
 
-#ifndef LESSTIF_VERSION
+#if !defined(LESSTIF_VERSION) && (XmVersion > 1002)
                 /*
                  * Compute location of bounding box to contain the
                  * defaultButtonShadow.

src/Makefile

@@ -2177 +2177 @@
         cd $(SHADOWDIR)/xxd; ln -s ../../xxd/*.[ch] ../../xxd/Make* .
         if test -d $(RSRC_DIR); then \
                 cd $(SHADOWDIR); \
+                ln -s ../infplist.xml .; \
                 ln -s ../$(RSRC_DIR) ../os_mac.rsr.hqx ../dehqx.py .; \
         fi
         mkdir $(SHADOWDIR)/testdir

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/message.c

@@ -4175 +4175 @@
                         str_arg_l = 0;
                     else
                     {
-                        /* memchr on HP does not like n > 2^31  !!! */
-                        char *q = memchr(str_arg, '\0',
+                        /* Don't put the #if inside memchr(), it can be a
+                         * macro. */
 #if SIZEOF_INT <= 2
-                                precision
+                        char *q = memchr(str_arg, '\0', precision);
 #else
-                                precision <= (size_t)0x7fffffffL ? precision
-                                                       : (size_t)0x7fffffffL
+                        /* memchr on HP does not like n > 2^31  !!! */
+                        char *q = memchr(str_arg, '\0',
+                                  precision <= (size_t)0x7fffffffL ? precision
+                                                       : (size_t)0x7fffffffL);
 #endif
-                                                       );
                         str_arg_l = (q == NULL) ? precision : q - str_arg;
                     }
                     break;

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,
+/**/
+    15,
+/**/
+    14,
+/**/
+    13,
+/**/
+    12,
+/**/
+    11,
+/**/
+    10,
+/**/
+    9,
+/**/
+    8,
+/**/
+    7,
+/**/
+    6,
+/**/
+    4,
+/**/
+    3,
+/**/
+    2,
+/**/
+    1,
+/**/
     0
 };