mirror of
https://github.com/ascii-boxes/boxes.git
synced 2024-12-13 10:20:37 +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")
|
(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)))
|
||||||
|
Loading…
Reference in New Issue
Block a user