[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals-release/org 34a8133715 2/2: Revert "lisp/ox-latex.el: p
From: |
ELPA Syncer |
Subject: |
[elpa] externals-release/org 34a8133715 2/2: Revert "lisp/ox-latex.el: put labels inside example blocks" |
Date: |
Thu, 8 Dec 2022 07:57:52 -0500 (EST) |
branch: externals-release/org
commit 34a81337151487fde7f8d499cdd4c6d891cebd67
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>
Revert "lisp/ox-latex.el: put labels inside example blocks"
This reverts commit 304f18cb72dbb3aeade41ed6c5e8dfefca7e1744.
This patch will break verbatim environment as the label will be
interpreted verbatim as well.
---
lisp/ox-latex.el | 14 +++++++-------
1 file changed, 7 insertions(+), 7 deletions(-)
diff --git a/lisp/ox-latex.el b/lisp/ox-latex.el
index 63070d0f9b..5b29a284c9 100644
--- a/lisp/ox-latex.el
+++ b/lisp/ox-latex.el
@@ -2131,13 +2131,13 @@ information."
(let ((environment (or (org-export-read-attribute
:attr_latex example-block :environment)
"verbatim")))
- (format "\\begin{%s}%s\n%s\\end{%s}"
- environment
- (if (org-element-property :name example-block)
- (org-latex--label example-block info nil 'full)
- "")
- (org-export-format-code-default example-block info)
- environment))))
+ (org-latex--wrap-label
+ example-block
+ (format "\\begin{%s}\n%s\\end{%s}"
+ environment
+ (org-export-format-code-default example-block info)
+ environment)
+ info))))
;;;; Export Block