paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 18:39:52 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed checking case insensitive renaming of published vars

Browse Source 
git-svn-id: trunk@5127 -
This commit is contained in:
mattias 2004-02-01 00:02:29 +00:00
parent 8e7e336e83
commit b049772be5
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/stdcodetools.pas
View File

@ -2701,7 +2701,7 @@ begin
TypeNode:=FindTypeNodeOfDefinition(VarNode); TypeNode:=FindTypeNodeOfDefinition(VarNode);
MoveCursorToNodeStart(TypeNode); MoveCursorToNodeStart(TypeNode);
ReadNextAtom; ReadNextAtom;
if AtomIs(VarType) then begin if UpAtomIs(UpperCaseStr(VarType)) then begin
// rename the identifier // rename the identifier
MoveCursorToNodeStart(VarNode); MoveCursorToNodeStart(VarNode);
ReadNextAtom; ReadNextAtom;