From bcd2f29fa28b3a9b25ce9e611aab4547b78d9675 Mon Sep 17 00:00:00 2001
From: Morabaraba <11364489+Morabaraba@users.noreply.github.com>
Date: Tue, 24 Mar 2020 22:08:29 +0200
Subject: [PATCH] Add Lazarus program file glob to Pascal lexer (#1466)

This commit adds the `*.lpr` file glob to the Pascal lexer. The `.lpr`
extension is used in modern Pascal for the final program file in a
Pascal project.
---
 lib/rouge/lexers/pascal.rb | 2 +-
 spec/lexers/pascal_spec.rb | 1 +
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/rouge/lexers/pascal.rb b/lib/rouge/lexers/pascal.rb
index f8d5fc189f..40bf7f0539 100644
--- a/lib/rouge/lexers/pascal.rb
+++ b/lib/rouge/lexers/pascal.rb
@@ -7,7 +7,7 @@ class Pascal < RegexLexer
       tag 'pascal'
       title "Pascal"
       desc 'a procedural programming language commonly used as a teaching language.'
-      filenames '*.pas'
+      filenames '*.pas', '*.lpr'
 
       mimetypes 'text/x-pascal'
 
diff --git a/spec/lexers/pascal_spec.rb b/spec/lexers/pascal_spec.rb
index 408d4d4c9e..8f6795b313 100644
--- a/spec/lexers/pascal_spec.rb
+++ b/spec/lexers/pascal_spec.rb
@@ -9,6 +9,7 @@
 
     it 'guesses by filename' do
       assert_guess :filename => 'foo.pas'
+      assert_guess :filename => 'foo.lpr'      
     end
 
     it 'guesses by mimetype' do