fix definition of boxes-types-alist to catch up with changed output

layout of "boxes -l"
This commit is contained in:
gabriele balducci 2021-04-22 14:05:58 +01:59 committed by Thomas Jensen
parent 5d3bdfb9fa
commit 688a4d107d

View File

@ -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)))