7.0.230

   1 To: vim-dev@vim.org
   2 Subject: patch 7.0.230
   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 7.0.230
  11 Problem:    After using ":lcd" a script doesn't know how to restore the
  12             current directory.
  13 Solution:   Add the haslocaldir() function. (Bob Hiestand)
  14 Files:      runtime/doc/usr_41.txt, runtime/doc/eval.txt, src/eval.c
  15
  16
  17 *** ../vim-7.0.229/runtime/doc/usr_41.txt       Sun May  7 17:02:39 2006
  18 --- runtime/doc/usr_41.txt      Thu Apr 26 17:06:48 2007
  19 ***************
  20 *** 1,4 ****
  21 ! *usr_41.txt*  For Vim version 7.0.  Last change: 2006 Apr 30
  22
  23                      VIM USER MANUAL - by Bram Moolenaar
  24
  25 --- 1,4 ----
  26 ! *usr_41.txt*  For Vim version 7.0.  Last change: 2007 Apr 26
  27
  28                      VIM USER MANUAL - by Bram Moolenaar
  29
  30 ***************
  31 *** 703,708 ****
  32 --- 703,709 ----
  33         isdirectory()           check if a directory exists
  34         getfsize()              get the size of a file
  35         getcwd()                get the current working directory
  36 +       haslocaldir()           check if current window used |:lcd|
  37         tempname()              get the name of a temporary file
  38         mkdir()                 create a new directory
  39         delete()                delete a file
  40 *** ../vim-7.0.229/runtime/doc/eval.txt Tue Mar 27 10:20:58 2007
  41 --- runtime/doc/eval.txt        Tue Apr 24 21:50:49 2007
  42 ***************
  43 *** 1,4 ****
  44 ! *eval.txt*      For Vim version 7.0.  Last change: 2006 Nov 01
  45
  46
  47                   VIM REFERENCE MANUAL    by Bram Moolenaar
  48 --- 1,4 ----
  49 ! *eval.txt*      For Vim version 7.0.  Last change: 2007 Apr 24
  50
  51
  52                   VIM REFERENCE MANUAL    by Bram Moolenaar
  53 ***************
  54 *** 1623,1628 ****
  55 --- 1633,1639 ----
  56   globpath( {path}, {expr})     String  do glob({expr}) for all dirs in {path}
  57   has( {feature})                       Number  TRUE if feature {feature} supported
  58   has_key( {dict}, {key})               Number  TRUE if {dict} has entry {key}
  59 + haslocaldir()                 Number  TRUE if current window executed |:lcd|
  60   hasmapto( {what} [, {mode} [, {abbr}]])
  61                                 Number  TRUE if mapping to {what} exists
  62   histadd( {history},{item})    String  add an item to a history
  63 ***************
  64 *** 3016,3021 ****
  65 --- 3041,3049 ----
  66                 The result is a Number, which is 1 if |Dictionary| {dict} has
  67                 an entry with key {key}.  Zero otherwise.
  68
  69 + haslocaldir()                                         *haslocaldir()*
  70 +               The result is a Number, which is 1 when the current
  71 +                 window has set a local path via |:lcd|, and 0 otherwise.
  72
  73   hasmapto({what} [, {mode} [, {abbr}]])                        *hasmapto()*
  74                 The result is a Number, which is 1 if there is a mapping that
  75 *** ../vim-7.0.229/src/eval.c   Thu Apr 26 10:55:46 2007
  76 --- src/eval.c  Thu Apr 26 10:52:09 2007
  77 ***************
  78 *** 541,546 ****
  79 --- 541,547 ----
  80   static void f_globpath __ARGS((typval_T *argvars, typval_T *rettv));
  81   static void f_has __ARGS((typval_T *argvars, typval_T *rettv));
  82   static void f_has_key __ARGS((typval_T *argvars, typval_T *rettv));
  83 + static void f_haslocaldir __ARGS((typval_T *argvars, typval_T *rettv));
  84   static void f_hasmapto __ARGS((typval_T *argvars, typval_T *rettv));
  85   static void f_histadd __ARGS((typval_T *argvars, typval_T *rettv));
  86   static void f_histdel __ARGS((typval_T *argvars, typval_T *rettv));
  87 ***************
  88 *** 7110,7115 ****
  89 --- 7111,7117 ----
  90       {"globpath",      2, 2, f_globpath},
  91       {"has",           1, 1, f_has},
  92       {"has_key",               2, 2, f_has_key},
  93 +     {"haslocaldir",   0, 0, f_haslocaldir},
  94       {"hasmapto",      1, 3, f_hasmapto},
  95       {"highlightID",   1, 1, f_hlID},          /* obsolete */
  96       {"highlight_exists",1, 1, f_hlexists},    /* obsolete */
  97 ***************
  98 *** 11131,11136 ****
  99 --- 11133,11150 ----
 100
 101       rettv->vval.v_number = dict_find(argvars[0].vval.v_dict,
 102                                       get_tv_string(&argvars[1]), -1) != NULL;
 103 + }
 104 +
 105 + /*
 106 +  * "haslocaldir()" function
 107 +  */
 108 + /*ARGSUSED*/
 109 +     static void
 110 + f_haslocaldir(argvars, rettv)
 111 +     typval_T  *argvars;
 112 +     typval_T  *rettv;
 113 + {
 114 +     rettv->vval.v_number = (curwin->w_localdir != NULL);
 115   }
 116
 117   /*
 118 *** ../vim-7.0.229/src/version.c        Thu Apr 26 16:50:05 2007
 119 --- src/version.c       Thu Apr 26 17:04:15 2007
 120 ***************
 121 *** 668,669 ****
 122 --- 668,671 ----
 123   {   /* Add new patch number below this line */
 124 + /**/
 125 +     230,
 126   /**/
 127
 128 --
 129 hundred-and-one symptoms of being an internet addict:
 130 22. You've already visited all the links at Yahoo and you're halfway through
 131     Lycos.
 132
 133  /// Bram Moolenaar -- Bram@Moolenaar.net -- http://www.Moolenaar.net   \\\
 134 ///        sponsor Vim, vote for features -- http://www.Vim.org/sponsor/ \\\
 135 \\\        download, build and distribute -- http://www.A-A-P.org        ///
 136  \\\            help me help AIDS victims -- http://ICCF-Holland.org    ///