Mercurial > vim

comparison runtime/autoload/ada.vim @ 25773:11b656e74444

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Update runtime files Commit: https://github.com/vim/vim/commit/6c391a74fe90190796ca0b0c010112948a6e75d7 Author: Bram Moolenaar <Bram@vim.org> Date: Thu Sep 9 21:55:11 2021 +0200 Update runtime files
author Bram Moolenaar <Bram@vim.org>
date Thu, 09 Sep 2021 22:00:10 +0200
parents 3b26420fc639
children
comparison
equal deleted inserted replaced
25772:55753c17b73d 25773:11b656e74444
65 \ 'kind': 'k', 65 \ 'kind': 'k',
66 \ 'icase': 1}] 66 \ 'icase': 1}]
67 endfor 67 endfor
68 endif 68 endif
69 69
70 " Section: add standart exception {{{2 70 " Section: add standard exception {{{2
71 " 71 "
72 for Item in ['Constraint_Error', 'Program_Error', 'Storage_Error', 'Tasking_Error', 'Status_Error', 'Mode_Error', 'Name_Error', 'Use_Error', 'Device_Error', 'End_Error', 'Data_Error', 'Layout_Error', 'Length_Error', 'Pattern_Error', 'Index_Error', 'Translation_Error', 'Time_Error', 'Argument_Error', 'Tag_Error', 'Picture_Error', 'Terminator_Error', 'Conversion_Error', 'Pointer_Error', 'Dereference_Error', 'Update_Error'] 72 for Item in ['Constraint_Error', 'Program_Error', 'Storage_Error', 'Tasking_Error', 'Status_Error', 'Mode_Error', 'Name_Error', 'Use_Error', 'Device_Error', 'End_Error', 'Data_Error', 'Layout_Error', 'Length_Error', 'Pattern_Error', 'Index_Error', 'Translation_Error', 'Time_Error', 'Argument_Error', 'Tag_Error', 'Picture_Error', 'Terminator_Error', 'Conversion_Error', 'Pointer_Error', 'Dereference_Error', 'Update_Error']
73 let g:ada#Keywords += [{ 73 let g:ada#Keywords += [{
74 \ 'word': Item, 74 \ 'word': Item,
75 \ 'menu': 'exception', 75 \ 'menu': 'exception',
76 \ 'info': 'Ada standart exception.', 76 \ 'info': 'Ada standard exception.',
77 \ 'kind': 'x', 77 \ 'kind': 'x',
78 \ 'icase': 1}] 78 \ 'icase': 1}]
79 endfor 79 endfor
80 80
81 " Section: add GNAT exception {{{3 81 " Section: add GNAT exception {{{3
208 endif 208 endif
209 209
210 let l:Line = substitute (getline (l:Line_Nr), g:ada#Comment, '', '' ) 210 let l:Line = substitute (getline (l:Line_Nr), g:ada#Comment, '', '' )
211 211
212 " Cope with tag searching for items in comments; if we are, don't loop 212 " Cope with tag searching for items in comments; if we are, don't loop
213 " backards looking for previous lines 213 " backwards looking for previous lines
214 if l:Column_Nr > strlen(l:Line) 214 if l:Column_Nr > strlen(l:Line)
215 " We were in a comment 215 " We were in a comment
216 let l:Line = getline(l:Line_Nr) 216 let l:Line = getline(l:Line_Nr)
217 let l:Search_Prev_Lines = 0 217 let l:Search_Prev_Lines = 0
218 else 218 else