file creation

autoload/ingo/search/pattern.vim

@@ -0,0 +1,32 @@
+" ingo/search/pattern.vim: Functions for the search pattern.
+"
+" DEPENDENCIES:
+"
+" Copyright: (C) 2011-2013 Ingo Karkat
+"   The VIM LICENSE applies to this script; see ':help copyright'.
+"
+" Maintainer:	Ingo Karkat <ingo@karkat.de>
+"
+" REVISION	DATE		REMARKS
+"   1.006.001	24-May-2013	file creation
+
+function! ingo#search#pattern#GetLastForwardSearch( ... )
+"******************************************************************************
+"* PURPOSE:
+"   Get @/, or the a:count'th last search pattern, but also handle the case
+"   where the pattern was set from a backward search, and doesn't have "/"
+"   characters properly escaped.
+"* ASSUMPTIONS / PRECONDITIONS:
+"   None.
+"* EFFECTS / POSTCONDITIONS:
+"   None.
+"* INPUTS:
+"   None.
+"* RETURN VALUES:
+"   Last search pattern ready to use in a :s/{pat}/ command, with forward
+"   slashes properly escaped.
+"******************************************************************************
+    return substitute((a:0 ? histget('search', -1 * a:1) : @/), '\%(\%(^\|[^\\]\)\%(\\\\\)*\\\)\@<!/', '\\/', 'g')
+endfunction
+
+" vim: set ts=8 sts=4 sw=4 noexpandtab ff=unix fdm=syntax :