Daan Ro <daant...@gmail.com> writes: > I defined org-cite-basic--crm-indicate-prompt, equivalent to > "[list separated by ;;] %(prompt)" by default.
Thanks! > + :type > + '(choice > + (const :tag "Use \";;\" as the separator." "[ \t]*;;[ \t]*") > + (const > + :tag > + "Dynamically compute \";\"+ with the needed length." > + dynamic) > + (string :tag "Custom regexp for the separator.") > + (const :tag "Prompt multiple times." nil)) > + :safe (lambda (obj) (or (string-or-null-p obj) (member obj '(dynamic))))) Maybe we should use 'separator property in the proposed values? > +(defun org-cite-basic--crm-indicate-prompt (orig-prompt) > + "Return annotated ORIG-PROMPT with `crm-separator'. > +For Emacs version 31 and above, just return ORIG-PROMPT." > + (cond > + ((<= 31 emacs-major-version) > + orig-prompt) We can instead just check for (boundp 'crm-prompt) -- Ihor Radchenko // yantar92, Org mode maintainer, Learn more about Org mode at <https://orgmode.org/>. Support Org development at <https://liberapay.com/org-mode>, or support my work at <https://liberapay.com/yantar92>
