mirror of
https://github.com/ascii-boxes/boxes.git
synced 2024-12-14 02:40:38 +01:00
Amend definition of boxes-types-alist to catch box names containing an
underscore (eg ian_jones)
This commit is contained in:
parent
b96b67878b
commit
ecb8132569
@ -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)))
|
||||
|
Loading…
Reference in New Issue
Block a user