From 0e7ef16bd67de160e2e6f140de17995b14f139e2 Mon Sep 17 00:00:00 2001
From: Morabaraba <11364489+Morabaraba@users.noreply.github.com>
Date: Mon, 23 Mar 2020 23:08:21 +0200
Subject: [PATCH 1/2] Added lpr filename

Added Lazarus Program file; contains Pascal source of main program.
---
 lib/rouge/lexers/pascal.rb | 2 +-
 1 file changed, 1 insertion(+), 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'
 

From dbb9fd61880c4c22d1ae2284e114cccdd238c763 Mon Sep 17 00:00:00 2001
From: Morabaraba <11364489+Morabaraba@users.noreply.github.com>
Date: Tue, 24 Mar 2020 21:41:17 +0200
Subject: [PATCH 2/2] add a test to the lexer spec for lpr

Add a test to the lexer spec to check the lazarus program file extension.
---
 spec/lexers/pascal_spec.rb | 1 +
 1 file changed, 1 insertion(+)

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