--- a/Tools__TagList.st Sun May 13 15:16:09 2018 +0200
+++ b/Tools__TagList.st Sun May 13 16:29:37 2018 +0200
@@ -1903,9 +1903,10 @@
!
getCtagsVersion
- " parse major and minor version from ctags by operating system command
- cehck for the 'Exuberant Ctags' string being present
- return an Array with mafor and minor part of version or nil if not available"
+ "obsolete (no longer needed)
+ parse major and minor version from ctags by operating system command
+ check for the 'Exuberant Ctags' string being present
+ return an Array with major and minor part of version or nil if not available"
| stream string index majorVersion minorVersion indexOfPoint|
@@ -1917,6 +1918,7 @@
errorTo:stream
inDirectory:nil
onError:[:status| false].
+
string := stream contents.
index := string findString:'Exuberant Ctags' ifAbsent:[nil].
index notNil ifTrue:[