From af24b30bd2e4d728a1b5cdd09cd779f95248e47a Mon Sep 17 00:00:00 2001 From: Nicolas Petton Date: Tue, 8 Jan 2019 11:14:40 +0100 Subject: [PATCH] Fix the regexp for finding contacts in khard output * khardel.el (khardel--list-contacts): Allow dashes in UUIDs. --- khardel.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/khardel.el b/khardel.el index e4ae1c2..9d5e0d9 100644 --- a/khardel.el +++ b/khardel.el @@ -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)))))