Lines Matching refs:l
177 \ 'l': ["literal", "enum type literals"],
203 let l:Line_Nr = a:1
204 let l:Column_Nr = a:2 - 1
206 let l:Line_Nr = line('.')
207 let l:Column_Nr = col('.') - 1
210 let l:Line = substitute (getline (l:Line_Nr), g:ada#Comment, '', '' )
214 if l:Column_Nr > strlen(l:Line)
216 let l:Line = getline(l:Line_Nr)
217 let l:Search_Prev_Lines = 0
219 let l:Search_Prev_Lines = 1
227 " Remember to convert vim column 'l:Column_Nr' [1..n] to string offset [0..(n-1)]
229 let l:New_Column = l:Column_Nr + 1
231 let l:New_Column = l:New_Column - 1
232 if l:New_Column < 0
233 " Have to include previous l:Line from file
234 let l:Line_Nr = l:Line_Nr - 1
235 if l:Line_Nr < 1 || !l:Search_Prev_Lines
237 let l:Line_Nr = 1
238 let l:New_Column = 0
239 let l:Our_Match = match (l:Line, g:ada#WordRegex )
242 " Get previous l:Line, and prepend it to our search string
243 let l:New_Line = substitute (getline (l:Line_Nr), g:ada#Comment, '', '' )
244 let l:New_Column = strlen (l:New_Line) - 1
245 let l:Column_Nr = l:Column_Nr + l:New_Column
246 let l:Line = l:New_Line . l:Line
249 let l:Match_End = l:New_Column +
250 \ matchend (strpart (l:Line,l:New_Column), g:ada#WordRegex ) - 1
251 if l:Match_End >= l:New_Column &&
252 \ l:Match_End < l:Column_Nr
254 let l:Our_Match = l:Match_End+1 +
255 \ match (strpart (l:Line,l:Match_End+1), g:ada#WordRegex )
261 if l:Our_Match < 0
264 let l:Line = strpart (l:Line, l:Our_Match)
268 let l:Match_String = matchstr (l:Line, g:ada#WordRegex)
269 let l:Last_Line = line ('$')
270 let l:Line_Nr = line ('.') + 1
271 while l:Line_Nr <= l:Last_Line
272 let l:Last_Match = l:Match_String
273 let l:Line = l:Line .
274 \ substitute (getline (l:Line_Nr), g:ada#Comment, '', '')
275 let l:Match_String = matchstr (l:Line, g:ada#WordRegex)
276 if l:Match_String == l:Last_Match
282 return substitute (l:Match_String, '\s\+', '', 'g')
291 let l:Tag_Word = ada#Word (a:1, a:2)
293 let l:Tag_Word = a:1
295 let l:Tag_Word = ada#Word ()
298 echo "Searching for" l:Tag_Word
300 let l:Pattern = '^' . l:Tag_Word . '$'
301 let l:Tag_List = taglist (l:Pattern)
302 let l:Error_List = []
306 for Tag_Item in l:Tag_List
307 if l:Tag_Item['kind'] == ''
308 let l:Tag_Item['kind'] = 's'
311 let l:Error_List += [
312 \ l:Tag_Item['filename'] . '|' .
313 \ l:Tag_Item['cmd'] . '|' .
314 \ l:Tag_Item['kind'] . "\t" .
315 \ l:Tag_Item['name'] ]
317 set errorformat=%f\|%l\|%m
318 cexpr l:Error_List
329 let l:Word = ada#Word()
330 if l:Word == ''
334 let l:Word = a:Word
337 echo "Searching for " . l:Word
340 execute a:Mode l:Word
344 execute a:Mode l:Word
356 let l:Line = getline ('.')
357 if col ('.') > strlen (l:Line) &&
358 \ match (l:Line, '-- $') != -1 &&
389 let l:Pattern = '^' . a:base . '.*$'
394 if l:Tag_Item['word'] =~? l:Pattern
395 if complete_add (l:Tag_Item) == 0
426 let l:Filename = fnamemodify (bufname ('%'), ':p')
428 let l:Filename =
433 let l:Filename = a:option
435 execute '!ctags --excmd=number ' . l:Filename
445 let l:sessionoptions=&sessionoptions
476 let &sessionoptions=l:sessionoptions
513 let l:Text = getline (a:Line)
515 if l:Text =~ s:Fold_Collate
519 let l:Level = "="
520 elseif l:Text =~ '^\s\+('
525 let l:Level = (indent (a:Line) + 1) / &shiftwidth
527 let l:Level = indent (a:Line) / &shiftwidth
530 return l:Level
579 let l:leader = g:mapleader
581 let l:leader = '\'
586 \ "<Tab>" . escape(l:leader . "a" . a:Keys , '\') .
604 let l:leader = g:mapleader
606 let l:leader = '\'
611 \ "<Tab>" . escape(l:leader . "a" . a:Keys , '\') .