diff --git a/lisp/ox-texinfo.el b/lisp/ox-texinfo.el index 13ec237f5..9ea624a84 100644 --- a/lisp/ox-texinfo.el +++ b/lisp/ox-texinfo.el @@ -1253,13 +1253,21 @@ contextual information." (if (string-prefix-p "@" i) i (concat "@" i)))) (table-type (plist-get attr :table-type)) (type (org-element-property :type plain-list)) + (initial-counter + (and (eq type 'ordered) + ;; Texinfo only supports initial counters, i.e., it + ;; cannot change the numbering mid-list. + (let ((first-item (car (org-element-contents plain-list)))) + (org-element-property :counter first-item)))) (list-type (cond ((eq type 'ordered) "enumerate") ((eq type 'unordered) "itemize") ((member table-type '("ftable" "vtable")) table-type) (t "table")))) (format "@%s\n%s@end %s" - (if (eq type 'descriptive) (concat list-type " " indic) list-type) + (cond ((eq type 'descriptive) (concat list-type " " indic)) + (initial-counter (format "%s %d" list-type initial-counter)) + (t list-type)) contents list-type)))