Improve label repexp

* dispass.el (dispass-labels--refresh): Change the regular expression
  used to allow `-' and `_' in the label names.
This commit is contained in:
Tom Willemsen 2012-07-08 16:02:14 +02:00
parent e1a25a2078
commit d7d34799d4

View file

@ -216,7 +216,7 @@ an eye out for LABEL."
(with-temp-buffer
(insert-file-contents dispass-file)
(while (re-search-forward
"\\(\\w+\\) .*length=\\([0-9]+\\) .*hash=\\(\\w+\\)$"
"\\(\\(?:\\sw\\|\\s_\\)+\\) .*length=\\([0-9]+\\) .*hash=\\(\\sw+\\)$"
nil t)
(add-to-list 'tmp-list `(,(match-string 1)
[(,(match-string 1)