From 027006fa23595efe8eb8dd5ed3a8ffef8a9fb7fc Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 20 Jan 2021 08:18:59 +0100
Subject: files_map.adb: fix thinko in Find_Language

---
 src/files_map.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/files_map.adb')

diff --git a/src/files_map.adb b/src/files_map.adb
index a86809b01..1d9a5c7b8 100644
--- a/src/files_map.adb
+++ b/src/files_map.adb
@@ -544,7 +544,7 @@ package body Files_Map is
       P := Filename'Last;
       E := Ext'Last;
       loop
-         if P >= Filename'First
+         if P <= Filename'First
            or else E < Ext'First
          then
             return Language_Unknown;
-- 
cgit v1.2.3