From ecb8132569898f6c9b1bf3d95300b10b65abad7e Mon Sep 17 00:00:00 2001 From: gabriele balducci Date: Mon, 9 Aug 2021 09:58:17 +0159 Subject: [PATCH] Amend definition of boxes-types-alist to catch box names containing an underscore (eg ian_jones) --- doc/boxes.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/doc/boxes.el b/doc/boxes.el index 199a758..7ca349f 100644 --- a/doc/boxes.el +++ b/doc/boxes.el @@ -51,7 +51,7 @@ (call-process "boxes" nil t nil "-l") (goto-char (point-min)) (let ((retval nil)) - (while (re-search-forward "^\\([a-zA-Z][a-zA-Z0-9-]+\\)" nil t) + (while (re-search-forward "^\\([a-zA-Z][a-zA-Z0-9-_]+\\)" nil t) (add-to-list 'retval (cons (match-string 1) (match-string 1)))) retval)))