From a99402facf87269d349795b576d5f56aba1c550d Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Sun, 16 Sep 2012 09:24:32 +0200 Subject: [PATCH] org-e-latex: Consistently change label names * contrib/lisp/org-e-latex.el (org-e-latex--caption/label-string, org-e-latex--wrap-label, org-e-latex-latex-environment): Consistently call `org-export-solidify-link-text' so references can match labels. --- contrib/lisp/org-e-latex.el | 16 +++++++++------- 1 file changed, 9 insertions(+), 7 deletions(-) diff --git a/contrib/lisp/org-e-latex.el b/contrib/lisp/org-e-latex.el index f184d9c72..b90a097cd 100644 --- a/contrib/lisp/org-e-latex.el +++ b/contrib/lisp/org-e-latex.el @@ -848,12 +848,14 @@ caption nor label, return the empty string. For non-floats, see `org-e-latex--wrap-label'." (let* ((label (org-element-property :name element)) - (label-str (if label (format "\\label{%s}" label) "")) + (label-str (if (not (org-string-nw-p label)) "" + (format "\\label{%s}" + (org-export-solidify-link-text label)))) (main (org-export-get-caption element)) (short (org-export-get-caption element t))) (cond - ((and (not main) (not label)) "") - ((not main) (format "\\label{%s}\n" label)) + ((and (not main) (equal label-str "")) "") + ((not main) (concat label-str "\n")) ;; Option caption format with short name. (short (format "\\caption[%s]{%s%s}\n" (org-export-data short info) @@ -944,9 +946,9 @@ is a plist used as a communication channel." This function shouldn't be used for floats. See `org-e-latex--caption/label-string'." (let ((label (org-element-property :name element))) - (if (or (not output) (not label) (string= output "") (string= label "")) - output - (concat (format "\\label{%s}\n" label) output)))) + (if (not (and (org-string-nw-p output) (org-string-nw-p label))) output + (concat (format "\\label{%s}\n" (org-export-solidify-link-text label)) + output)))) (defun org-e-latex--text-markup (text markup) "Format TEXT depending on MARKUP text markup. @@ -1685,7 +1687,7 @@ CONTENTS is nil. INFO is a plist holding contextual information." (insert value) (goto-char (point-min)) (forward-line) - (insert (format "\\label{%s}\n" label)) + (insert (format "\\label{%s}\n" (org-export-solidify-link-text label))) (buffer-string))))) -- 2.11.4.GIT