diff --git a/lisp/ox-ascii.el b/lisp/ox-ascii.el index 42495e2de..1caa346bc 100644 --- a/lisp/ox-ascii.el +++ b/lisp/ox-ascii.el @@ -1012,7 +1012,9 @@ INFO is a plist used as a communication channel." (let* ((utf8p (eq (plist-get info :ascii-charset) 'utf-8)) ;; Format TITLE. It may be filled if it is too wide, ;; that is wider than the two thirds of the total width. - (title-len (min (length title) (/ (* 2 text-width) 3))) + (title-len (min (apply #'max + (mapcar #'length (org-split-string title))) + (/ (* 2 text-width) 3))) (formatted-title (org-ascii--fill-string title title-len info)) (line (make-string