fix(cli): void-variable ansi-color--control-seq-fragment-regexp

This variable wasn't introduced until Emacs 29.

Amend: 6c0b7e1530
This commit is contained in:
Henrik Lissner 2022-06-19 01:15:02 +02:00
parent 2e9997a3d5
commit 647abad97d
No known key found for this signature in database
GPG key ID: B60957CA074D39A3

View file

@ -300,7 +300,7 @@ Each argument in ARGS can be a list, as if they were arguments to `format!':
(c 0)) (c 0))
(while (and (not (eolp)) (<= n target)) (while (and (not (eolp)) (<= n target))
(save-match-data (save-match-data
(if (looking-at ansi-color--control-seq-fragment-regexp) (if (looking-at ansi-color-control-seq-regexp)
(let ((len (length (match-string 0)))) (let ((len (length (match-string 0))))
(cl-incf c len) (cl-incf c len)
(forward-char len)) (forward-char len))