Amend definition of boxes-types-alist to catch box names containing an

underscore (eg ian_jones)
This commit is contained in:
gabriele balducci 2021-08-09 09:58:17 +01:59 committed by Thomas Jensen
parent b96b67878b
commit ecb8132569

View File

@ -51,7 +51,7 @@
(call-process "boxes" nil t nil "-l") (call-process "boxes" nil t nil "-l")
(goto-char (point-min)) (goto-char (point-min))
(let ((retval nil)) (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) (add-to-list 'retval (cons (match-string 1)
(match-string 1)))) (match-string 1))))
retval))) retval)))