From 5197a7c8fbb1b2cac2a08727d892f3d782c79517 Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Fri, 23 Mar 2012 22:12:07 +0100 Subject: [PATCH] Silent compiler by moving `org-odt-entity-labels-alist' up in the file. --- lisp/org-odt.el | 28 ++++++++++++++-------------- 1 file changed, 14 insertions(+), 14 deletions(-) diff --git a/lisp/org-odt.el b/lisp/org-odt.el index ad65f63dc..234272a37 100644 --- a/lisp/org-odt.el +++ b/lisp/org-odt.el @@ -1535,6 +1535,20 @@ value of `org-export-odt-fontify-srcblocks." (org-odt-copy-image-file thefile) thelink)))) (org-export-odt-format-image thefile href))) +(defvar org-odt-entity-labels-alist nil + "Associate Labels with the Labeled entities. +Each element of the alist is of the form (LABEL-NAME +CATEGORY-NAME SEQNO LABEL-STYLE-NAME). LABEL-NAME is same as +that specified by \"#+LABEL: ...\" line. CATEGORY-NAME is the +type of the entity that LABEL-NAME is attached to. CATEGORY-NAME +can be one of \"Table\", \"Figure\" or \"Equation\". SEQNO is +the unique number assigned to the referenced entity on a +per-CATEGORY basis. It is generated sequentially and is 1-based. +LABEL-STYLE-NAME is a key `org-odt-label-styles'. + +See `org-odt-add-label-definition' and +`org-odt-fixup-label-references'.") + (defun org-export-odt-format-formula (src href) (save-match-data (let* ((caption (org-find-text-property-in-string 'org-caption src)) @@ -2025,20 +2039,6 @@ ATTR is a string of other attributes of the a element." (setq width (* scale width) height (* scale height))))) (cons width height))) -(defvar org-odt-entity-labels-alist nil - "Associate Labels with the Labeled entities. -Each element of the alist is of the form (LABEL-NAME -CATEGORY-NAME SEQNO LABEL-STYLE-NAME). LABEL-NAME is same as -that specified by \"#+LABEL: ...\" line. CATEGORY-NAME is the -type of the entity that LABEL-NAME is attached to. CATEGORY-NAME -can be one of \"Table\", \"Figure\" or \"Equation\". SEQNO is -the unique number assigned to the referenced entity on a -per-CATEGORY basis. It is generated sequentially and is 1-based. -LABEL-STYLE-NAME is a key `org-odt-label-styles'. - -See `org-odt-add-label-definition' and -`org-odt-fixup-label-references'.") - (defvar org-odt-entity-counts-plist nil "Plist of running counters of SEQNOs for each of the CATEGORY-NAMEs. See `org-odt-entity-labels-alist' for known CATEGORY-NAMEs.")