From 097f6e74af5b380d2da47431a0ba58ed89c72bff Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Fri, 10 Nov 2017 08:46:22 +0000
Subject: [PATCH] IDE: Remove an unused function NameToValidIdentifier.

git-svn-id: trunk@56348 -
---
 ide/ideprocs.pp | 27 ---------------------------
 1 file changed, 27 deletions(-)

diff --git a/ide/ideprocs.pp b/ide/ideprocs.pp
index a93298ee23..2d9f5bd673 100644
--- a/ide/ideprocs.pp
+++ b/ide/ideprocs.pp
@@ -214,7 +214,6 @@ function UncommentLines(const s: string): string;
 function CrossReplaceChars(const Src: string; PrefixChar: char;
                            const SpecialChars: string): string;
 function SimpleSyntaxToRegExpr(const Src: string): string;
-function NameToValidIdentifier(const s: string): string;
 function BinaryStrToText(const s: string): string;
 function SplitString(const s: string; Delimiter: char): TStrings;
 procedure SplitString(const s: string; Delimiter: char; AddTo: TStrings;
@@ -1936,32 +1935,6 @@ begin
   end;
 end;
 
-{-------------------------------------------------------------------------------
-  NameToValidIdentifier
-
-  Params: const s: string
-  Result: string
-
-  Replaces all non identifier characters into underscores '_'
--------------------------------------------------------------------------------}
-function NameToValidIdentifier(const s: string): string;
-var i: integer;
-begin
-  if s='' then begin
-    Result:='_';
-  end else begin
-    Result:=s;
-    if not (Result[1] in ['A'..'Z', 'a'..'z', '_']) then begin
-      Result[1]:='_';
-    end;
-    for i:=2 to length(Result) do begin
-      if not (Result[i] in ['A'..'Z', 'a'..'z', '0'..'9', '_']) then begin
-        Result[i]:='_';
-      end;
-    end;
-  end;
-end;
-
 {-------------------------------------------------------------------------------
   function BinaryStrToText(const s: string): string;