3071fae
To: vim_dev@googlegroups.com
3071fae
Subject: Patch 7.4.327
3071fae
Fcc: outbox
3071fae
From: Bram Moolenaar <Bram@moolenaar.net>
3071fae
Mime-Version: 1.0
3071fae
Content-Type: text/plain; charset=UTF-8
3071fae
Content-Transfer-Encoding: 8bit
3071fae
------------
3071fae
3071fae
Patch 7.4.327
3071fae
Problem:    When 'verbose' is set to display the return value of a function,
3071fae
	    may get E724 repeatedly.
3071fae
Solution:   Do not give an error for verbose messages. Abort conversion to
3071fae
	    string after an error.
3071fae
Files:	    src/eval.c
3071fae
3071fae
3071fae
*** ../vim-7.4.326/src/eval.c	2014-06-12 18:39:16.828400409 +0200
3071fae
--- src/eval.c	2014-06-17 12:48:12.083946675 +0200
3071fae
***************
3071fae
*** 134,139 ****
3071fae
--- 134,142 ----
3071fae
  #define COPYID_INC 2
3071fae
  #define COPYID_MASK (~0x1)
3071fae
  
3071fae
+ /* Abort conversion to string after a recursion error. */
3071fae
+ static int  did_echo_string_emsg = FALSE;
3071fae
+ 
3071fae
  /*
3071fae
   * Array to hold the hashtab with variables local to each sourced script.
3071fae
   * Each item holds a variable (nameless) that points to the dict_T.
3071fae
***************
3071fae
*** 6686,6691 ****
3071fae
--- 6689,6696 ----
3071fae
  	}
3071fae
  
3071fae
  	line_breakcheck();
3071fae
+ 	if (did_echo_string_emsg)  /* recursion error, bail out */
3071fae
+ 	    break;
3071fae
      }
3071fae
  
3071fae
      /* Allocate result buffer with its total size, avoid re-allocation and
3071fae
***************
3071fae
*** 7460,7467 ****
3071fae
  	    if (s != NULL)
3071fae
  		ga_concat(&ga, s);
3071fae
  	    vim_free(tofree);
3071fae
! 	    if (s == NULL)
3071fae
  		break;
3071fae
  	}
3071fae
      }
3071fae
      if (todo > 0)
3071fae
--- 7465,7474 ----
3071fae
  	    if (s != NULL)
3071fae
  		ga_concat(&ga, s);
3071fae
  	    vim_free(tofree);
3071fae
! 	    if (s == NULL || did_echo_string_emsg)
3071fae
  		break;
3071fae
+ 	    line_breakcheck();
3071fae
+ 
3071fae
  	}
3071fae
      }
3071fae
      if (todo > 0)
3071fae
***************
3071fae
*** 7619,7627 ****
3071fae
  
3071fae
      if (recurse >= DICT_MAXNEST)
3071fae
      {
3071fae
! 	EMSG(_("E724: variable nested too deep for displaying"));
3071fae
  	*tofree = NULL;
3071fae
! 	return NULL;
3071fae
      }
3071fae
      ++recurse;
3071fae
  
3071fae
--- 7626,7641 ----
3071fae
  
3071fae
      if (recurse >= DICT_MAXNEST)
3071fae
      {
3071fae
! 	if (!did_echo_string_emsg)
3071fae
! 	{
3071fae
! 	    /* Only give this message once for a recursive call to avoid
3071fae
! 	     * flooding the user with errors.  And stop iterating over lists
3071fae
! 	     * and dicts. */
3071fae
! 	    did_echo_string_emsg = TRUE;
3071fae
! 	    EMSG(_("E724: variable nested too deep for displaying"));
3071fae
! 	}
3071fae
  	*tofree = NULL;
3071fae
! 	return (char_u *)"{E724}";
3071fae
      }
3071fae
      ++recurse;
3071fae
  
3071fae
***************
3071fae
*** 7689,7695 ****
3071fae
  	    *tofree = NULL;
3071fae
      }
3071fae
  
3071fae
!     --recurse;
3071fae
      return r;
3071fae
  }
3071fae
  
3071fae
--- 7703,7710 ----
3071fae
  	    *tofree = NULL;
3071fae
      }
3071fae
  
3071fae
!     if (--recurse == 0)
3071fae
! 	did_echo_string_emsg = FALSE;
3071fae
      return r;
3071fae
  }
3071fae
  
3071fae
***************
3071fae
*** 23303,23309 ****
3071fae
--- 23318,23327 ----
3071fae
  			msg_outnum((long)argvars[i].vval.v_number);
3071fae
  		    else
3071fae
  		    {
3071fae
+ 			/* Do not want errors such as E724 here. */
3071fae
+ 			++emsg_off;
3071fae
  			s = tv2string(&argvars[i], &tofree, numbuf2, 0);
3071fae
+ 			--emsg_off;
3071fae
  			if (s != NULL)
3071fae
  			{
3071fae
  			    if (vim_strsize(s) > MSG_BUF_CLEN)
3071fae
***************
3071fae
*** 23395,23402 ****
3071fae
  
3071fae
  	    /* The value may be very long.  Skip the middle part, so that we
3071fae
  	     * have some idea how it starts and ends. smsg() would always
3071fae
! 	     * truncate it at the end. */
3071fae
  	    s = tv2string(fc->rettv, &tofree, numbuf2, 0);
3071fae
  	    if (s != NULL)
3071fae
  	    {
3071fae
  		if (vim_strsize(s) > MSG_BUF_CLEN)
3071fae
--- 23413,23422 ----
3071fae
  
3071fae
  	    /* The value may be very long.  Skip the middle part, so that we
3071fae
  	     * have some idea how it starts and ends. smsg() would always
3071fae
! 	     * truncate it at the end. Don't want errors such as E724 here. */
3071fae
! 	    ++emsg_off;
3071fae
  	    s = tv2string(fc->rettv, &tofree, numbuf2, 0);
3071fae
+ 	    --emsg_off;
3071fae
  	    if (s != NULL)
3071fae
  	    {
3071fae
  		if (vim_strsize(s) > MSG_BUF_CLEN)
3071fae
*** ../vim-7.4.326/src/version.c	2014-06-14 12:53:27.394152699 +0200
3071fae
--- src/version.c	2014-06-17 12:41:45.019932032 +0200
3071fae
***************
3071fae
*** 736,737 ****
3071fae
--- 736,739 ----
3071fae
  {   /* Add new patch number below this line */
3071fae
+ /**/
3071fae
+     327,
3071fae
  /**/
3071fae
3071fae
-- 
3071fae
TALL KNIGHT: We shall say Ni! again to you if you do not appease us.
3071fae
ARTHUR:      All right!  What do you want?
3071fae
TALL KNIGHT: We want ... a shrubbery!
3071fae
                 "Monty Python and the Holy Grail" PYTHON (MONTY) PICTURES LTD
3071fae
3071fae
 /// Bram Moolenaar -- Bram@Moolenaar.net -- http://www.Moolenaar.net   \\\
3071fae
///        sponsor Vim, vote for features -- http://www.Vim.org/sponsor/ \\\
3071fae
\\\  an exciting new programming language -- http://www.Zimbu.org        ///
3071fae
 \\\            help me help AIDS victims -- http://ICCF-Holland.org    ///