fix: custom sequences

This commit is contained in:
Pavel Korytov 2024-02-06 19:15:48 +03:00
parent 60a2862cb8
commit 473d76790f

View file

@ -260,7 +260,7 @@ the current entry available via the `entry' variable."
(if (string-match (rx bos "sequence-") field-name)
`(,field-name
. ,(condition-case err
(eval (car (read-from-string (cdr item))))
(car (read-from-string (cdr item)))
(error (user-error "Error in %s: %s" field-name
(prin1-to-string err)))))
`(,field-name . (wait (field . ,(car item)))))))