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.423 < prev    next >
Encoding:
Internet Message Format  |  2003-03-27  |  19.8 KB
  1. To: vim-dev@vim.org
  2. Subject: Patch 6.1.423
  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.423
  11. Problem:    Can't find arbitrary text in help files.
  12. Solution:   Added the ":helpgrep" command.
  13. Files:        runtime/doc/various.txt, src/ex_cmds.h, src/ex_docmd.c,
  14.         src/proto/quickfix.pro, src/quickfix.c
  15.  
  16.  
  17. *** ../vim61.422/runtime/doc/various.txt    Sat Mar  8 20:33:31 2003
  18. --- runtime/doc/various.txt    Fri Mar 28 21:59:30 2003
  19. ***************
  20. *** 1,4 ****
  21. ! *various.txt*   For Vim version 6.1.  Last change: 2003 Feb 15
  22.   
  23.   
  24.             VIM REFERENCE MANUAL    by Bram Moolenaar
  25. --- 1,4 ----
  26. ! *various.txt*   For Vim version 6.1.  Last change: 2003 Mar 28
  27.   
  28.   
  29.             VIM REFERENCE MANUAL    by Bram Moolenaar
  30. ***************
  31. *** 534,542 ****
  32.                   :help so<C-V><CR>only
  33.   <            {not in Vi}
  34.   
  35. ! When no argument is given the file given with the 'helpfile' option will be
  36. ! opened.  Otherwise the specified tag is searched for in all "doc/tags" files
  37. ! in the directories specified in the 'runtimepath' option.
  38.   
  39.   The initial height of the help window can be set with the 'helpheight' option
  40.   (default 20).
  41. --- 542,569 ----
  42.                   :help so<C-V><CR>only
  43.   <            {not in Vi}
  44.   
  45. !                             *:helpg* *:helpgrep*
  46. ! :helpg[rep] {pattern}    
  47. !             Search all help text files and make a list of lines
  48. !             in which {pattern} matches.  Jumps to the first match.
  49. !             You can navigate through the matches with the
  50. !             |quickfix| commands, e.g., |:cnext| to jump to the
  51. !             next one.  Or use |:cwindow| to get the list of
  52. !             matches in the quickfix window.
  53. !             {pattern} is used as a Vim regexp |pattern|.
  54. !             'ignorecase' is not used, add "\c" to ignore case.
  55. !             Example for case sensitive search: >
  56. !                 :helpgrep Uganda
  57. ! <            Example for case ignoring search: >
  58. !                 :helpgrep uganda\c
  59. ! <            Cannot be followed by another command, everything is
  60. !             used as part of the pattern.  But you can use
  61. !             |:execute| when needed.
  62. ! 
  63. ! 
  64. ! When no argument is given to |:help| the file given with the 'helpfile' option
  65. ! will be opened.  Otherwise the specified tag is searched for in all "doc/tags"
  66. ! files in the directories specified in the 'runtimepath' option.
  67.   
  68.   The initial height of the help window can be set with the 'helpheight' option
  69.   (default 20).
  70. *** ../vim61.422/src/ex_cmds.h    Sat Mar 15 16:33:38 2003
  71. --- src/ex_cmds.h    Fri Mar 28 21:26:14 2003
  72. ***************
  73. *** 380,385 ****
  74. --- 380,387 ----
  75.               EXTRA|NOTRLCOM),
  76.   EX(CMD_helpfind,    "helpfind",    ex_helpfind,
  77.               EXTRA|NOTRLCOM),
  78. + EX(CMD_helpgrep,    "helpgrep",    ex_helpgrep,
  79. +             EXTRA|NOTRLCOM|NEEDARG),
  80.   EX(CMD_helptags,    "helptags",    ex_helptags,
  81.               NEEDARG|FILE1|TRLBAR|CMDWIN),
  82.   EX(CMD_hardcopy,    "hardcopy",    ex_hardcopy,
  83. *** ../vim61.422/src/ex_docmd.c    Sat Mar 15 17:55:18 2003
  84. --- src/ex_docmd.c    Fri Mar 28 19:33:38 2003
  85. ***************
  86. *** 115,120 ****
  87. --- 115,121 ----
  88.   # define ex_cfile        ex_ni
  89.   # define qf_list        ex_ni
  90.   # define qf_age            ex_ni
  91. + # define ex_helpgrep        ex_ni
  92.   #endif
  93.   #if !defined(FEAT_QUICKFIX) || !defined(FEAT_WINDOWS)
  94.   # define ex_cclose        ex_ni
  95. *** ../vim61.422/src/proto/quickfix.pro    Fri Mar 22 21:41:19 2002
  96. --- src/proto/quickfix.pro    Thu Mar 27 23:19:13 2003
  97. ***************
  98. *** 17,20 ****
  99. --- 17,21 ----
  100.   void ex_cc __ARGS((exarg_T *eap));
  101.   void ex_cnext __ARGS((exarg_T *eap));
  102.   void ex_cfile __ARGS((exarg_T *eap));
  103. + void ex_helpgrep __ARGS((exarg_T *eap));
  104.   /* vim: set ft=c : */
  105. *** ../vim61.422/src/quickfix.c    Sun Mar  9 14:08:43 2003
  106. --- src/quickfix.c    Thu Mar 27 23:40:41 2003
  107. ***************
  108. *** 21,43 ****
  109.       char_u        *dirname;
  110.   };
  111.   
  112. - static void    qf_msg __ARGS((void));
  113. - static void    qf_free __ARGS((int idx));
  114. - static char_u    *qf_types __ARGS((int, int));
  115. - static int    qf_get_fnum __ARGS((char_u *, char_u *));
  116. - static char_u    *qf_push_dir __ARGS((char_u *, struct dir_stack_T **));
  117. - static char_u    *qf_pop_dir __ARGS((struct dir_stack_T **));
  118. - static char_u    *qf_guess_filepath __ARGS((char_u *));
  119. - static void    qf_fmt_text __ARGS((char_u *text, char_u *buf, int bufsize));
  120. - static void    qf_clean_dir_stack __ARGS((struct dir_stack_T **));
  121. - #ifdef FEAT_WINDOWS
  122. - static int    qf_win_pos_update __ARGS((int old_qf_index));
  123. - static buf_T    *qf_find_buf __ARGS((void));
  124. - static void    qf_update_buffer __ARGS((void));
  125. - static void    qf_fill_buffer __ARGS((void));
  126. - #endif
  127. - static char_u    *get_mef_name __ARGS((void));
  128. - 
  129.   static struct dir_stack_T   *dir_stack = NULL;
  130.   
  131.   /*
  132. --- 21,26 ----
  133. ***************
  134. *** 54,60 ****
  135.       char_u        *qf_text;    /* description of the error */
  136.       char_u         qf_virt_col; /* set to TRUE if qf_col is screen column */
  137.       char_u         qf_cleared;/* set to TRUE if line has been deleted */
  138. !     char_u         qf_type;    /* type of the error (mostly 'E') */
  139.       char_u         qf_valid;    /* valid error message detected */
  140.   };
  141.   
  142. --- 37,44 ----
  143.       char_u        *qf_text;    /* description of the error */
  144.       char_u         qf_virt_col; /* set to TRUE if qf_col is screen column */
  145.       char_u         qf_cleared;/* set to TRUE if line has been deleted */
  146. !     char_u         qf_type;    /* type of the error (mostly 'E'); 1 for
  147. !                    :helpgrep */
  148.       char_u         qf_valid;    /* valid error message detected */
  149.   };
  150.   
  151. ***************
  152. *** 102,107 ****
  153. --- 86,110 ----
  154.                   /*   '-' do not include this line */
  155.   };
  156.   
  157. + static void    qf_new_list __ARGS((void));
  158. + static int    qf_add_entry __ARGS((struct qf_line **prevp, char_u *dir, char_u *fname, char_u *msg, long lnum, int col, int virt_col, int nr, int type, int valid));
  159. + static void    qf_msg __ARGS((void));
  160. + static void    qf_free __ARGS((int idx));
  161. + static char_u    *qf_types __ARGS((int, int));
  162. + static int    qf_get_fnum __ARGS((char_u *, char_u *));
  163. + static char_u    *qf_push_dir __ARGS((char_u *, struct dir_stack_T **));
  164. + static char_u    *qf_pop_dir __ARGS((struct dir_stack_T **));
  165. + static char_u    *qf_guess_filepath __ARGS((char_u *));
  166. + static void    qf_fmt_text __ARGS((char_u *text, char_u *buf, int bufsize));
  167. + static void    qf_clean_dir_stack __ARGS((struct dir_stack_T **));
  168. + #ifdef FEAT_WINDOWS
  169. + static int    qf_win_pos_update __ARGS((int old_qf_index));
  170. + static buf_T    *qf_find_buf __ARGS((void));
  171. + static void    qf_update_buffer __ARGS((void));
  172. + static void    qf_fill_buffer __ARGS((void));
  173. + #endif
  174. + static char_u    *get_mef_name __ARGS((void));
  175. + 
  176.   /*
  177.    * Read the errorfile into memory, line by line, building the error list.
  178.    * Return -1 for error, number of errors for success.
  179. ***************
  180. *** 122,128 ****
  181.       long        lnum = 0L;
  182.       int            enr = 0;
  183.       FILE        *fd;
  184. -     struct qf_line  *qfp = NULL;
  185.       struct qf_line  *qfprev = NULL;    /* init to make SASC shut up */
  186.       char_u        *efmp;
  187.       struct eformat  *fmt_first = NULL;
  188. --- 125,130 ----
  189. ***************
  190. *** 176,213 ****
  191.       }
  192.   
  193.       if (newlist || qf_curlist == qf_listcount)
  194. !     {
  195. !     /*
  196. !      * If the current entry is not the last entry, delete entries below
  197. !      * the current entry.  This makes it possible to browse in a tree-like
  198. !      * way with ":grep'.
  199. !      */
  200. !     while (qf_listcount > qf_curlist + 1)
  201. !         qf_free(--qf_listcount);
  202. ! 
  203. !     /*
  204. !      * When the stack is full, remove to oldest entry
  205. !      * Otherwise, add a new entry.
  206. !      */
  207. !     if (qf_listcount == LISTCOUNT)
  208. !     {
  209. !         qf_free(0);
  210. !         for (i = 1; i < LISTCOUNT; ++i)
  211. !         qf_lists[i - 1] = qf_lists[i];
  212. !         qf_curlist = LISTCOUNT - 1;
  213. !     }
  214. !     else
  215. !         qf_curlist = qf_listcount++;
  216. !     qf_lists[qf_curlist].qf_index = 0;
  217. !     qf_lists[qf_curlist].qf_count = 0;
  218. !     }
  219.       else if (qf_lists[qf_curlist].qf_count > 0)
  220. -     {
  221.       /* Adding to existing list, find last entry. */
  222.       for (qfprev = qf_lists[qf_curlist].qf_start;
  223.                   qfprev->qf_next != qfprev; qfprev = qfprev->qf_next)
  224.           ;
  225. -     }
  226.   
  227.   /*
  228.    * Each part of the format string is copied and modified from errorformat to
  229. --- 178,190 ----
  230.       }
  231.   
  232.       if (newlist || qf_curlist == qf_listcount)
  233. !     /* make place for a new list */
  234. !     qf_new_list();
  235.       else if (qf_lists[qf_curlist].qf_count > 0)
  236.       /* Adding to existing list, find last entry. */
  237.       for (qfprev = qf_lists[qf_curlist].qf_start;
  238.                   qfprev->qf_next != qfprev; qfprev = qfprev->qf_next)
  239.           ;
  240.   
  241.   /*
  242.    * Each part of the format string is copied and modified from errorformat to
  243. ***************
  244. *** 518,527 ****
  245.               if (*namebuf == NUL)
  246.               {
  247.               EMSG(_("E379: Missing or empty directory name"));
  248. !             goto error1;
  249.               }
  250.               if ((directory = qf_push_dir(namebuf, &dir_stack)) == NULL)
  251. !             goto error1;
  252.           }
  253.           else if (idx == 'X')            /* leave directory */
  254.               directory = qf_pop_dir(&dir_stack);
  255. --- 495,504 ----
  256.               if (*namebuf == NUL)
  257.               {
  258.               EMSG(_("E379: Missing or empty directory name"));
  259. !             goto error2;
  260.               }
  261.               if ((directory = qf_push_dir(namebuf, &dir_stack)) == NULL)
  262. !             goto error2;
  263.           }
  264.           else if (idx == 'X')            /* leave directory */
  265.               directory = qf_pop_dir(&dir_stack);
  266. ***************
  267. *** 540,569 ****
  268.           else if (vim_strchr((char_u *)"CZ", idx) != NULL)
  269.           {                /* continuation of multi-line msg */
  270.           if (qfprev == NULL)
  271. !             goto error1;
  272.           if (*errmsg && !multiignore)
  273.           {
  274.               len = (int)STRLEN(qfprev->qf_text);
  275.               if ((ptr = alloc((unsigned)(len + STRLEN(errmsg) + 2)))
  276.                                       == NULL)
  277. !             goto error1;
  278.               STRCPY(ptr, qfprev->qf_text);
  279.               vim_free(qfprev->qf_text);
  280.               qfprev->qf_text = ptr;
  281.               *(ptr += len) = '\n';
  282.               STRCPY(++ptr, errmsg);
  283.           }
  284. !         if (qfp->qf_nr == -1)
  285. !             qfp->qf_nr = enr;
  286. !         if (vim_isprintc(type) && !qfp->qf_type)
  287. !             qfp->qf_type = type;    /* only printable chars allowed */
  288. !         if (!qfp->qf_lnum)
  289. !             qfp->qf_lnum = lnum;
  290. !         if (!qfp->qf_col)
  291. !             qfp->qf_col = col;
  292. !         qfp->qf_virt_col = use_virt_col;
  293. !         if (!qfp->qf_fnum)
  294. !             qfp->qf_fnum = qf_get_fnum(directory,
  295.                       *namebuf || directory ? namebuf
  296.                         : currfile && valid ? currfile : 0);
  297.           if (idx == 'Z')
  298. --- 517,546 ----
  299.           else if (vim_strchr((char_u *)"CZ", idx) != NULL)
  300.           {                /* continuation of multi-line msg */
  301.           if (qfprev == NULL)
  302. !             goto error2;
  303.           if (*errmsg && !multiignore)
  304.           {
  305.               len = (int)STRLEN(qfprev->qf_text);
  306.               if ((ptr = alloc((unsigned)(len + STRLEN(errmsg) + 2)))
  307.                                       == NULL)
  308. !             goto error2;
  309.               STRCPY(ptr, qfprev->qf_text);
  310.               vim_free(qfprev->qf_text);
  311.               qfprev->qf_text = ptr;
  312.               *(ptr += len) = '\n';
  313.               STRCPY(++ptr, errmsg);
  314.           }
  315. !         if (qfprev->qf_nr == -1)
  316. !             qfprev->qf_nr = enr;
  317. !         if (vim_isprintc(type) && !qfprev->qf_type)
  318. !             qfprev->qf_type = type;  /* only printable chars allowed */
  319. !         if (!qfprev->qf_lnum)
  320. !             qfprev->qf_lnum = lnum;
  321. !         if (!qfprev->qf_col)
  322. !             qfprev->qf_col = col;
  323. !         qfprev->qf_virt_col = use_virt_col;
  324. !         if (!qfprev->qf_fnum)
  325. !             qfprev->qf_fnum = qf_get_fnum(directory,
  326.                       *namebuf || directory ? namebuf
  327.                         : currfile && valid ? currfile : 0);
  328.           if (idx == 'Z')
  329. ***************
  330. *** 598,640 ****
  331.           }
  332.       }
  333.   
  334. !     if ((qfp = (struct qf_line *)alloc((unsigned)sizeof(struct qf_line)))
  335. !                                       == NULL)
  336.           goto error2;
  337. - 
  338. -     qfp->qf_fnum = qf_get_fnum(directory, *namebuf || directory ?
  339. -                   namebuf : currfile && valid ? currfile : 0);
  340. -     if ((qfp->qf_text = vim_strsave(errmsg)) == NULL)
  341. -         goto error1;
  342. -     if (!vim_isprintc(type))    /* only printable chars allowed */
  343. -         type = 0;
  344. -     qfp->qf_lnum = lnum;
  345. -     qfp->qf_col = col;
  346. -     qfp->qf_virt_col = use_virt_col;
  347. -     qfp->qf_nr = enr;
  348. -     qfp->qf_type = type;
  349. -     qfp->qf_valid = valid;
  350. - 
  351. -     if (qf_lists[qf_curlist].qf_count == 0)    /* first element in the list */
  352. -     {
  353. -         qf_lists[qf_curlist].qf_start = qfp;
  354. -         qfp->qf_prev = qfp;    /* first element points to itself */
  355. -     }
  356. -     else
  357. -     {
  358. -         qfp->qf_prev = qfprev;
  359. -         qfprev->qf_next = qfp;
  360. -     }
  361. -     qfp->qf_next = qfp;    /* last element points to itself */
  362. -     qfp->qf_cleared = FALSE;
  363. -     qfprev = qfp;
  364. -     ++qf_lists[qf_curlist].qf_count;
  365. -     if (qf_lists[qf_curlist].qf_index == 0 && qfp->qf_valid)
  366. -                         /* first valid entry */
  367. -     {
  368. -         qf_lists[qf_curlist].qf_index = qf_lists[qf_curlist].qf_count;
  369. -         qf_lists[qf_curlist].qf_ptr = qfp;
  370. -     }
  371.       line_breakcheck();
  372.       }
  373.       if (!ferror(fd))
  374. --- 575,593 ----
  375.           }
  376.       }
  377.   
  378. !     if (qf_add_entry(&qfprev,
  379. !             directory,
  380. !             *namebuf || directory
  381. !                 ? namebuf
  382. !                 : currfile && valid ? currfile : NULL,
  383. !             errmsg,
  384. !             lnum,
  385. !             col,
  386. !             use_virt_col,
  387. !             enr,
  388. !             type,
  389. !             valid) == FAIL)
  390.           goto error2;
  391.       line_breakcheck();
  392.       }
  393.       if (!ferror(fd))
  394. ***************
  395. *** 655,662 ****
  396.       goto qf_init_ok;
  397.       }
  398.       EMSG(_(e_readerrf));
  399. - error1:
  400. -     vim_free(qfp);
  401.   error2:
  402.       qf_free(qf_curlist);
  403.       qf_listcount--;
  404. --- 608,613 ----
  405. ***************
  406. *** 685,690 ****
  407. --- 636,735 ----
  408.   }
  409.   
  410.   /*
  411. +  * Prepare for adding a new quickfix list.
  412. +  */
  413. +     static void
  414. + qf_new_list()
  415. + {
  416. +     int        i;
  417. + 
  418. +     /*
  419. +      * If the current entry is not the last entry, delete entries below
  420. +      * the current entry.  This makes it possible to browse in a tree-like
  421. +      * way with ":grep'.
  422. +      */
  423. +     while (qf_listcount > qf_curlist + 1)
  424. +     qf_free(--qf_listcount);
  425. + 
  426. +     /*
  427. +      * When the stack is full, remove to oldest entry
  428. +      * Otherwise, add a new entry.
  429. +      */
  430. +     if (qf_listcount == LISTCOUNT)
  431. +     {
  432. +     qf_free(0);
  433. +     for (i = 1; i < LISTCOUNT; ++i)
  434. +         qf_lists[i - 1] = qf_lists[i];
  435. +     qf_curlist = LISTCOUNT - 1;
  436. +     }
  437. +     else
  438. +     qf_curlist = qf_listcount++;
  439. +     qf_lists[qf_curlist].qf_index = 0;
  440. +     qf_lists[qf_curlist].qf_count = 0;
  441. + }
  442. + 
  443. + /*
  444. +  * Add an entry to the end of the list of errors.
  445. +  * Returns OK or FAIL.
  446. +  */
  447. +     static int
  448. + qf_add_entry(prevp, dir, fname, msg, lnum, col, virt_col, nr, type, valid)
  449. +     struct qf_line **prevp;    /* pointer to previously added entry or NULL */
  450. +     char_u    *dir;        /* optional directory name */
  451. +     char_u    *fname;        /* file name or NULL */
  452. +     char_u    *msg;        /* message */
  453. +     long    lnum;        /* line number */
  454. +     int        col;        /* column */
  455. +     int        virt_col;    /* using virtual column */
  456. +     int        nr;        /* error number */
  457. +     int        type;        /* type character */
  458. +     int        valid;        /* valid entry */
  459. + {
  460. +     struct qf_line *qfp;
  461. + 
  462. +     if ((qfp = (struct qf_line *)alloc((unsigned)sizeof(struct qf_line)))
  463. +                                       == NULL)
  464. +     return FAIL;
  465. +     qfp->qf_fnum = qf_get_fnum(dir, fname);
  466. +     if ((qfp->qf_text = vim_strsave(msg)) == NULL)
  467. +     {
  468. +     vim_free(qfp);
  469. +     return FAIL;
  470. +     }
  471. +     qfp->qf_lnum = lnum;
  472. +     qfp->qf_col = col;
  473. +     qfp->qf_virt_col = virt_col;
  474. +     qfp->qf_nr = nr;
  475. +     if (type != 1 && !vim_isprintc(type)) /* only printable chars allowed */
  476. +     type = 0;
  477. +     qfp->qf_type = type;
  478. +     qfp->qf_valid = valid;
  479. + 
  480. +     if (qf_lists[qf_curlist].qf_count == 0)    /* first element in the list */
  481. +     {
  482. +     qf_lists[qf_curlist].qf_start = qfp;
  483. +     qfp->qf_prev = qfp;    /* first element points to itself */
  484. +     }
  485. +     else
  486. +     {
  487. +     qfp->qf_prev = *prevp;
  488. +     (*prevp)->qf_next = qfp;
  489. +     }
  490. +     qfp->qf_next = qfp;    /* last element points to itself */
  491. +     qfp->qf_cleared = FALSE;
  492. +     *prevp = qfp;
  493. +     ++qf_lists[qf_curlist].qf_count;
  494. +     if (qf_lists[qf_curlist].qf_index == 0 && qfp->qf_valid)
  495. +                         /* first valid entry */
  496. +     {
  497. +     qf_lists[qf_curlist].qf_index = qf_lists[qf_curlist].qf_count;
  498. +     qf_lists[qf_curlist].qf_ptr = qfp;
  499. +     }
  500. + 
  501. +     return OK;
  502. + }
  503. + 
  504. + /*
  505.    * get buffer number for file "dir.name"
  506.    */
  507.       static int
  508. ***************
  509. *** 1261,1267 ****
  510. --- 1306,1316 ----
  511.           fname = NULL;
  512.           if (qfp->qf_fnum != 0
  513.                     && (buf = buflist_findnr(qfp->qf_fnum)) != NULL)
  514. +         {
  515.               fname = buf->b_fname;
  516. +             if (qfp->qf_type == 1)    /* :helpgrep */
  517. +             fname = gettail(fname);
  518. +         }
  519.           if (fname == NULL)
  520.               sprintf((char *)IObuff, "%2d", i);
  521.           else
  522. ***************
  523. *** 1452,1457 ****
  524. --- 1501,1507 ----
  525.    *  i or I    n        " info n"
  526.    *  0          n        " error n"
  527.    *  other     n        " c n"
  528. +  *  1         x        ""    :helpgrep
  529.    */
  530.       static char_u *
  531.   qf_types(c, nr)
  532. ***************
  533. *** 1467,1473 ****
  534.       p = (char_u *)" info";
  535.       else if (c == 'E' || c == 'e' || (c == 0 && nr > 0))
  536.       p = (char_u *)" error";
  537. !     else if (c == 0)
  538.       p = (char_u *)"";
  539.       else
  540.       {
  541. --- 1517,1523 ----
  542.       p = (char_u *)" info";
  543.       else if (c == 'E' || c == 'e' || (c == 0 && nr > 0))
  544.       p = (char_u *)" error";
  545. !     else if (c == 0 || c == 1)
  546.       p = (char_u *)"";
  547.       else
  548.       {
  549. ***************
  550. *** 1751,1757 ****
  551.               && (errbuf = buflist_findnr(qfp->qf_fnum)) != NULL
  552.               && errbuf->b_fname != NULL)
  553.           {
  554. !         STRCPY(IObuff, errbuf->b_fname);
  555.           len = (int)STRLEN(IObuff);
  556.           }
  557.           else
  558. --- 1801,1810 ----
  559.               && (errbuf = buflist_findnr(qfp->qf_fnum)) != NULL
  560.               && errbuf->b_fname != NULL)
  561.           {
  562. !         if (qfp->qf_type == 1)    /* :helpgrep */
  563. !             STRCPY(IObuff, gettail(errbuf->b_fname));
  564. !         else
  565. !             STRCPY(IObuff, errbuf->b_fname);
  566.           len = (int)STRLEN(IObuff);
  567.           }
  568.           else
  569. ***************
  570. *** 2032,2037 ****
  571. --- 2085,2182 ----
  572.       set_string_option_direct((char_u *)"ef", -1, eap->arg, OPT_FREE);
  573.       if (qf_init(p_ef, p_efm, TRUE) > 0 && eap->cmdidx == CMD_cfile)
  574.       qf_jump(0, 0, eap->forceit);        /* display first error */
  575. + }
  576. + 
  577. + /*
  578. +  * ":helpgrep {pattern}"
  579. +  */
  580. +     void
  581. + ex_helpgrep(eap)
  582. +     exarg_T    *eap;
  583. + {
  584. +     regmatch_T    regmatch;
  585. +     char_u    *save_cpo;
  586. +     char_u    *p;
  587. +     int        fcount;
  588. +     char_u    **fnames;
  589. +     FILE    *fd;
  590. +     int        fi;
  591. +     struct qf_line *prevp = NULL;
  592. +     long    lnum;
  593. + 
  594. +     /* Make 'cpoptions' empty, the 'l' flag should not be used here. */
  595. +     save_cpo = p_cpo;
  596. +     p_cpo = (char_u *)"";
  597. + 
  598. +     regmatch.regprog = vim_regcomp(eap->arg, RE_MAGIC + RE_STRING);
  599. +     regmatch.rm_ic = FALSE;
  600. +     if (regmatch.regprog != NULL)
  601. +     {
  602. +     /* create a new quickfix list */
  603. +     qf_new_list();
  604. + 
  605. +     /* Go through all directories in 'runtimepath' */
  606. +     p = p_rtp;
  607. +     while (*p != NUL && !got_int)
  608. +     {
  609. +         copy_option_part(&p, NameBuff, MAXPATHL, ",");
  610. + 
  611. +         /* Find all "doc / *.txt" files in this directory. */
  612. +         add_pathsep(NameBuff);
  613. +         STRCAT(NameBuff, "doc/*.txt");
  614. +         if (gen_expand_wildcards(1, &NameBuff, &fcount,
  615. +                          &fnames, EW_FILE|EW_SILENT) == OK
  616. +             && fcount > 0)
  617. +         {
  618. +         for (fi = 0; fi < fcount && !got_int; ++fi)
  619. +         {
  620. +             fd = fopen((char *)fnames[fi], "r");
  621. +             if (fd != NULL)
  622. +             {
  623. +             lnum = 1;
  624. +             while (!vim_fgets(IObuff, IOSIZE, fd) && !got_int)
  625. +             {
  626. +                 if (vim_regexec(®match, IObuff, (colnr_T)0))
  627. +                 if (qf_add_entry(&prevp,
  628. +                         NULL,    /* dir */
  629. +                         fnames[fi],
  630. +                         IObuff,
  631. +                         lnum,
  632. +                         0,        /* col */
  633. +                         FALSE,    /* virt_col */
  634. +                         0,        /* nr */
  635. +                         1,        /* type */
  636. +                         TRUE    /* valid */
  637. +                         ) == FAIL)
  638. +                 {
  639. +                     got_int = TRUE;
  640. +                     break;
  641. +                 }
  642. +                 ++lnum;
  643. +                 line_breakcheck();
  644. +             }
  645. +             fclose(fd);
  646. +             }
  647. +         }
  648. +         FreeWild(fcount, fnames);
  649. +         }
  650. +     }
  651. +     vim_free(regmatch.regprog);
  652. + 
  653. +     qf_lists[qf_curlist].qf_nonevalid = FALSE;
  654. +     qf_lists[qf_curlist].qf_ptr = qf_lists[qf_curlist].qf_start;
  655. +     qf_lists[qf_curlist].qf_index = 1;
  656. +     }
  657. + 
  658. +     p_cpo = save_cpo;
  659. + 
  660. + #ifdef FEAT_WINDOWS
  661. +     qf_update_buffer();
  662. + #endif
  663. + 
  664. +     /* Jump to first match. */
  665. +     if (qf_lists[qf_curlist].qf_count > 0)
  666. +     qf_jump(0, 0, FALSE);
  667.   }
  668.   
  669.   #endif /* FEAT_QUICKFIX */
  670. *** ../vim61.422/src/version.c    Wed Mar 26 22:26:31 2003
  671. --- src/version.c    Fri Mar 28 21:42:45 2003
  672. ***************
  673. *** 613,614 ****
  674. --- 613,616 ----
  675.   {   /* Add new patch number below this line */
  676. + /**/
  677. +     423,
  678.   /**/
  679.  
  680. -- 
  681. hundred-and-one symptoms of being an internet addict:
  682. 254. You wake up daily with your keyboard printed on your forehead.
  683.  
  684.  /// Bram Moolenaar -- Bram@Moolenaar.net -- http://www.Moolenaar.net   \\\
  685. ///          Creator of Vim - Vi IMproved -- http://www.Vim.org          \\\
  686. \\\              Project leader for A-A-P -- http://www.A-A-P.org        ///
  687.  \\\     Help AIDS victims, buy at Amazon -- http://ICCF.nl/click1.html ///
  688.