浏览代码

ox-texinfo.el: Use :OPTIONAL_TITLE: instead of backend-specific
property

* lisp/ox-texinfo.el (org-texinfo--get-node)
and (org-texinfo--generate-menu-items): Use :OPTIONAL_TITLE:.
(org-export-define-backend): Remove :TEXINFO_MENU_TITLE from
options-alist

Jonathan Leech-Pepin 12 年之前
父节点
当前提交
b632d6ff6e
共有 1 个文件被更改,包括 3 次插入4 次删除
  1. 3 4
      lisp/ox-texinfo.el

+ 3 - 4
lisp/ox-texinfo.el

@@ -128,8 +128,7 @@
    (:subauthor "SUBAUTHOR" nil nil newline)
    (:texinfo-dircat "TEXINFO_DIR_CATEGORY" nil nil t)
    (:texinfo-dirtitle "TEXINFO_DIR_TITLE" nil nil t)
-   (:texinfo-dirdesc "TEXINFO_DIR_DESC" nil nil t)
-   (:texinfo-menu-title "TEXINFO_MENU_TITLE" nil nil newline)))
+   (:texinfo-dirdesc "TEXINFO_DIR_DESC" nil nil t)))
 
 
 
@@ -443,7 +442,7 @@ See `org-texinfo-text-markup-alist' for details."
 (defun org-texinfo--get-node (headline info)
   "Return node entry associated to HEADLINE.
 INFO is a plist used as a communication channel."
-  (let ((menu-title (org-element-property :TEXINFO_MENU_TITLE headline)))
+  (let ((menu-title (org-export-get-optional-title headline info)))
     (org-texinfo--sanitize-menu
      (replace-regexp-in-string
       "%" "%%"
@@ -577,7 +576,7 @@ menu using `org-texinfo--format-menu'."
   (loop for headline in items collect
 	(let* ((menu-title (org-texinfo--sanitize-menu
 			    (org-export-data
-			     (org-element-property :TEXINFO_MENU_TITLE headline)
+			     (org-export-get-optional-title headline info)
 			     info)))
 	       (title (org-texinfo--sanitize-menu
 		       (org-texinfo--sanitize-headline