[elpa] externals/lentic 475d8e14ba 071/333: Case sensitivity an option for blocks.

[ELPA Syncer]

branch: externals/lentic
commit 475d8e14baa8e8fb0a5dd2f5ca8ba87742f447ae
Author: Phillip Lord <phillip.lord@newcastle.ac.uk>
Commit: Phillip Lord <phillip.lord@newcastle.ac.uk>

    Case sensitivity an option for blocks.
    
    The start and end of blocks is determined by regexp. This commit now
    allows configuring the case sensitivity of this regexp.
---
 linked-buffer-block.el | 15 ++++++++++-----
 1 file changed, 10 insertions(+), 5 deletions(-)

diff --git a/linked-buffer-block.el b/linked-buffer-block.el
index 7e81c6b473..b3dbe95c04 100644
--- a/linked-buffer-block.el
+++ b/linked-buffer-block.el
@@ -40,12 +40,15 @@
                   "Demarcation for the start of the commenting region")
    (comment-stop :initarg :comment-stop
                 :documentation
-                "Demarcaction for the end of the commenting region."))
+                "Demarcaction for the end of the commenting region.")
+   (case-fold-search :initarg :case-fold-search
+                      :documentation
+                      "Should match be case sensitive"
+                      :initform :default))
   :documentation "Base configuration for blocked linked-buffers.
 A blocked linked-buffer is one where blocks of the buffer have a
 start of line block comment in one buffer but not the other."
-  :abstract t
-  )
+  :abstract t)
 
 
 (defmethod linked-buffer-blk-comment-start-regexp
@@ -152,10 +155,12 @@ implicit start and END an implicit stop."
   (list
    (m-buffer-match-begin
     buffer
-    (linked-buffer-block-comment-start-regexp conf))
+    (linked-buffer-block-comment-start-regexp conf)
+    :case-fold-search (oref conf :case-fold-search))
    (m-buffer-match-end
     buffer
-    (linked-buffer-block-comment-stop-regexp conf))))
+    (linked-buffer-block-comment-stop-regexp conf)
+    :case-fold-search (oref conf :case-fold-search))))
 
 (defun linked-buffer-pabbrev-expansion-length ()
   "Returns the length of any text that pabbrev has currently added to the 
buffer."