From 116d7305eee1b17759a52c1d5fb87cae85befe99 Mon Sep 17 00:00:00 2001
From: Tom Willemsen
Date: Sat, 16 Feb 2013 10:48:01 +0100
Subject: Allow dots in label names

---
 dispass.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'dispass.el')

diff --git a/dispass.el b/dispass.el
index cd30098..cb29056 100644
--- a/dispass.el
+++ b/dispass.el
@@ -154,7 +154,7 @@ an eye out for LABEL."
     (with-temp-buffer
       (dispass-read-labels)
       (while (re-search-forward
-              "^\\(\\(?:\\sw\\|\\s_\\)+\\)"
+              "^\\(\\(?:\\sw\\|\\s_\\|\\.\\)+\\)"
               nil t)
         (add-to-list 'result (match-string 1)))
       result)))
@@ -165,7 +165,7 @@ an eye out for LABEL."
     (with-temp-buffer
       (dispass-read-labels)
       (while (re-search-forward
-              "^\\(\\(?:\\sw\\|\\s_\\)+\\) +\\([0-9]+\\) +\\(\\(?:\\sw\\|\\s_\\)+\\)"
+              "^\\(\\(?:\\sw\\|\\s_\\|\\.\\)+\\) +\\([0-9]+\\) +\\(\\(?:\\sw\\|\\s_\\)+\\)"
               nil t)
         (let ((label (match-string 1))
               (length (match-string 2))
-- 
cgit v1.2.3-54-g00ecf