Fix the regexp for finding contacts in khard output

* khardel.el (khardel--list-contacts): Allow dashes in UUIDs.
parent c1b179a5
Pipeline #1645 passed with stage
in 21 seconds
......@@ -53,7 +53,7 @@
(goto-char (point-min))
(let ((contacts (make-hash-table :test 'equal)))
(cl-loop
while (re-search-forward "^\\([a-z0-9]*\\)\t\\(.*\\)\t[^\t]*$" nil t)
while (re-search-forward "^\\([-a-z0-9]*\\)\t\\(.*\\)\t[^\t]*$" nil t)
do (map-put contacts (match-string 2) (cons (match-string 1) (match-string 2)))
finally return contacts)))))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment