* lisp/org/ox-texinfo.el (org-texinfo-template): Fix Info format (bug#74844)

This commit is contained in:
Stefan Monnier 2024-12-15 17:08:25 -05:00
parent 8b6c6cffd1
commit 55303a6bc0

View file

@ -826,9 +826,9 @@ holding export options."
;; `dn' is presumed to be just the DIRNAME part, so generate ;; `dn' is presumed to be just the DIRNAME part, so generate
;; either `* DIRNAME: (FILENAME).' or `* FILENAME.', whichever ;; either `* DIRNAME: (FILENAME).' or `* FILENAME.', whichever
;; is shortest. ;; is shortest.
((and dn (not (equal dn file))) (dn
(format "* %s: (%s)." dn (or file dn))) (format "* %s: (%s)." dn (or file dn)))
(t (format "* %s." file))))) (t (format "* (%s)." file)))))
(concat "@dircategory " dircat "\n" (concat "@dircategory " dircat "\n"
"@direntry\n" "@direntry\n"
(let ((dirdesc (let ((dirdesc