From 5dafb4b21e074cab42d712f1d4d8c7fe5881c450 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 17 Apr 2010 15:05:45 +0000
Subject: [PATCH] codetools: do not beautify identifiers in comment, bug #16209

git-svn-id: trunk@24664 -
---
 components/codetools/sourcechanger.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/components/codetools/sourcechanger.pas b/components/codetools/sourcechanger.pas
index 5f49ec304d..eff095b696 100644
--- a/components/codetools/sourcechanger.pas
+++ b/components/codetools/sourcechanger.pas
@@ -1062,7 +1062,8 @@ begin
   //DebugLn('[TBeautifyCodeOptions.AddAtom]  NewAtom=',NewAtom,' s="',s,'"');
 
   // beautify identifier
-  if IsIdentStartChar[NewAtom[1]] then begin
+  if IsIdentStartChar[NewAtom[1]]
+  and (CommentLvl = 0) then begin
     if AllKeyWords.DoItCaseInsensitive(NewAtom) then
       NewAtom:=BeautifyWord(NewAtom,KeyWordPolicy)
     else