To: vim-dev@vim.org
Subject: Patch 6.1.065
Fcc: outbox
From: Bram Moolenaar <Bram@moolenaar.net>
MIME-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 8bit
------------

Patch 6.1.065
Problem:    VMS: The colorscheme, keymap and compiler menus are not filled in.
Solution:   Ignore case when looking for ".vim" files. (Coen Engelbarts)
Files:	    runtime/menu.vim


*** ../vim61.064/runtime/menu.vim	Tue May  7 20:49:56 2002
--- runtime/menu.vim	Wed May 15 20:54:32 2002
***************
*** 2,8 ****
  " You can also use this as a start for your own set of menus.
  "
  " Maintainer:	Bram Moolenaar <Bram@vim.org>
! " Last Change:	2002 May 07
  
  " Note that ":an" (short for ":anoremenu") is often used to make a menu work
  " in all modes and avoid side effects from mappings defined by the user.
--- 2,8 ----
  " You can also use this as a start for your own set of menus.
  "
  " Maintainer:	Bram Moolenaar <Bram@vim.org>
! " Last Change:	2002 May 15
  
  " Note that ":an" (short for ":anoremenu") is often used to make a menu work
  " in all modes and avoid side effects from mappings defined by the user.
***************
*** 313,319 ****
      let s:name = strpart(s:n, 0, s:i)
      let s:n = strpart(s:n, s:i + 1, 19999)
    endif
!   let s:name = substitute(s:name, '.*[/\\:]\([^/\\:]*\)\.vim', '\1', '')
    exe "an 20.450." . s:idx . ' &Edit.C&olor\ Scheme.' . s:name . " :colors " . s:name . "<CR>"
    unlet s:name
    unlet s:i
--- 313,320 ----
      let s:name = strpart(s:n, 0, s:i)
      let s:n = strpart(s:n, s:i + 1, 19999)
    endif
!   " Ignore case for VMS and windows
!   let s:name = substitute(s:name, '\c.*[/\\:\]]\([^/\\:]*\)\.vim', '\1', '')
    exe "an 20.450." . s:idx . ' &Edit.C&olor\ Scheme.' . s:name . " :colors " . s:name . "<CR>"
    unlet s:name
    unlet s:i
***************
*** 337,343 ****
  	let s:name = strpart(s:n, 0, s:i)
  	let s:n = strpart(s:n, s:i + 1, 19999)
        endif
!       let s:name = substitute(s:name, '.*[/\\:]\([^/\\:_]*\)\(_[0-9a-zA-Z-]*\)\=\.vim', '\1', '')
        exe "an 20.460." . s:idx . ' &Edit.&Keymap.' . s:name . " :set keymap=" . s:name . "<CR>"
        unlet s:name
        unlet s:i
--- 338,345 ----
  	let s:name = strpart(s:n, 0, s:i)
  	let s:n = strpart(s:n, s:i + 1, 19999)
        endif
!       " Ignore case for VMS and windows
!       let s:name = substitute(s:name, '\c.*[/\\:\]]\([^/\\:_]*\)\(_[0-9a-zA-Z-]*\)\=\.vim', '\1', '')
        exe "an 20.460." . s:idx . ' &Edit.&Keymap.' . s:name . " :set keymap=" . s:name . "<CR>"
        unlet s:name
        unlet s:i
***************
*** 475,481 ****
      let s:name = strpart(s:n, 0, s:i)
      let s:n = strpart(s:n, s:i + 1, 19999)
    endif
!   let s:name = substitute(s:name, '.*[/\\:]\([^/\\:]*\)\.vim', '\1', '')
    exe "an 30.440." . s:idx . ' &Tools.&Set\ Compiler.' . s:name . " :compiler " . s:name . "<CR>"
    unlet s:name
    unlet s:i
--- 477,484 ----
      let s:name = strpart(s:n, 0, s:i)
      let s:n = strpart(s:n, s:i + 1, 19999)
    endif
!   " Ignore case for VMS and windows
!   let s:name = substitute(s:name, '\c.*[/\\:\]]\([^/\\:]*\)\.vim', '\1', '')
    exe "an 30.440." . s:idx . ' &Tools.&Set\ Compiler.' . s:name . " :compiler " . s:name . "<CR>"
    unlet s:name
    unlet s:i
*** ../vim61.064/src/version.c	Wed May 15 20:48:19 2002
--- src/version.c	Wed May 15 20:58:11 2002
***************
*** 608,609 ****
--- 608,611 ----
  {   /* Add new patch number below this line */
+ /**/
+     65,
  /**/

-- 
hundred-and-one symptoms of being an internet addict:
17. You turn on your intercom when leaving the room so you can hear if new
    e-mail arrives.

 ///  Bram Moolenaar -- Bram@moolenaar.net -- http://www.moolenaar.net  \\\
///   Creator of Vim -- http://vim.sf.net -- ftp://ftp.vim.org/pub/vim   \\\
\\\           Project leader for A-A-P -- http://www.a-a-p.org           ///
 \\\  Help me helping AIDS orphans in Uganda - http://iccf-holland.org  ///