org-export: Small fix

* contrib/lisp/org-export.el (org-export-get-ordinal): Change signature.
* EXPERIMENTAL/org-e-ascii.el (org-e-ascii--build-caption): Apply
  changes to previous function
This commit is contained in:
Nicolas Goaziou 2012-03-07 18:02:57 +01:00
parent bbbdff9f81
commit 62a631e236
2 changed files with 3 additions and 4 deletions

View File

@ -54,7 +54,7 @@
(declare-function org-export-get-footnote-number "org-export" (footnote info)) (declare-function org-export-get-footnote-number "org-export" (footnote info))
(declare-function org-export-get-headline-number "org-export" (headline info)) (declare-function org-export-get-headline-number "org-export" (headline info))
(declare-function org-export-get-ordinal "org-export" (declare-function org-export-get-ordinal "org-export"
(element info &optional types within-section predicate)) (element info &optional types predicate))
(declare-function org-export-get-parent-headline "org-export" (blob info)) (declare-function org-export-get-parent-headline "org-export" (blob info))
(declare-function org-export-get-relative-level "org-export" (headline info)) (declare-function org-export-get-relative-level "org-export" (headline info))
(declare-function org-export-handle-code (declare-function org-export-handle-code
@ -642,7 +642,7 @@ keyword."
;; src-block with either a caption or a name. ;; src-block with either a caption or a name.
(let ((reference (let ((reference
(org-export-get-ordinal (org-export-get-ordinal
element info nil nil element info nil
(lambda (el) (or (org-element-property :caption el) (lambda (el) (or (org-element-property :caption el)
(org-element-property :name el))))) (org-element-property :name el)))))
(title-fmt (org-e-ascii--translate (title-fmt (org-e-ascii--translate

View File

@ -2865,8 +2865,7 @@ INFO is a plist holding export options."
;; `org-export-get-ordinal' associates a sequence number to any object ;; `org-export-get-ordinal' associates a sequence number to any object
;; or element. ;; or element.
(defun org-export-get-ordinal (defun org-export-get-ordinal (element info &optional types predicate)
(element info &optional types within-section predicate)
"Return ordinal number of an element or object. "Return ordinal number of an element or object.
ELEMENT is the element or object considered. INFO is the plist ELEMENT is the element or object considered. INFO is the plist