@@ -317,14 +317,14 @@ add_func_tags(Tags, File, ModName, FuncName) ->
317
317
% File contains a macro or record called Name; add this information to Tags.
318
318
add_record_or_macro_tag (Tags , File , Attribute , Name ) ->
319
319
320
- Kind =
320
+ { Kind , Prefix } =
321
321
case Attribute of
322
322
<<" record" >> ->
323
323
log (" Record found: ~s~n " , [Name ]),
324
- $r ;
324
+ { $r , $# } ;
325
325
<<" define" >> ->
326
326
log (" Macro found: ~s~n " , [Name ]),
327
- $d
327
+ { $d , $? }
328
328
end ,
329
329
330
330
Scope =
@@ -337,9 +337,17 @@ add_record_or_macro_tag(Tags, File, Attribute, Name) ->
337
337
338
338
% myrec ./mymod.erl /^-record\.\*\<myrec\>/;" r file:
339
339
% myrec ./myhrl.hrl /^-record\.\*\<myrec\>/;" r
340
- % myrec ./mymod.erl /^-define\.\*\<mymac\>/;" m file:
341
- % myrec ./myhrl.hrl /^-define\.\*\<mymac\>/;" m
340
+ % mymac ./mymod.erl /^-define\.\*\<mymac\>/;" m file:
341
+ % mymac ./myhrl.hrl /^-define\.\*\<mymac\>/;" m
342
342
add_tag (Tags , Name , File ,
343
+ [" /^-\\ s\\ *" , Attribute , " \\ s\\ *(\\ s\\ *" , Name , " \\ >/" ],
344
+ Scope , Kind ),
345
+
346
+ % #myrec ./mymod.erl /^-record\.\*\<myrec\>/;" r file:
347
+ % #myrec ./myhrl.hrl /^-record\.\*\<myrec\>/;" r
348
+ % ?mymac ./mymod.erl /^-define\.\*\<mymac\>/;" m file:
349
+ % ?mymac ./myhrl.hrl /^-define\.\*\<mymac\>/;" m
350
+ add_tag (Tags , [Prefix |Name ], File ,
343
351
[" /^-\\ s\\ *" , Attribute , " \\ s\\ *(\\ s\\ *" , Name , " \\ >/" ],
344
352
Scope , Kind ).
345
353
0 commit comments