ryuslash/dispass.el
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Allow dots in label names

Browse source
This commit is contained in:
Tom Willemsen 2013-02-16 10:48:01 +01:00
parent 2079e6c4b3
commit 116d7305ee
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
dispass.el
View file

@ -154,7 +154,7 @@ an eye out for LABEL."
(with-temp-buffer (with-temp-buffer
(dispass-read-labels) (dispass-read-labels)
(while (re-search-forward (while (re-search-forward
"^\\(\\(?:\\sw\\|\\s_\\)+\\)" "^\\(\\(?:\\sw\\|\\s_\\|\\.\\)+\\)"
nil t) nil t)
(add-to-list 'result (match-string 1))) (add-to-list 'result (match-string 1)))
result))) result)))
@ -165,7 +165,7 @@ an eye out for LABEL."
(with-temp-buffer (with-temp-buffer
(dispass-read-labels) (dispass-read-labels)
(while (re-search-forward (while (re-search-forward
"^\\(\\(?:\\sw\\|\\s_\\)+\\) +\\([0-9]+\\) +\\(\\(?:\\sw\\|\\s_\\)+\\)" "^\\(\\(?:\\sw\\|\\s_\\|\\.\\)+\\) +\\([0-9]+\\) +\\(\\(?:\\sw\\|\\s_\\)+\\)"
nil t) nil t)
(let ((label (match-string 1)) (let ((label (match-string 1))
(length (match-string 2)) (length (match-string 2))