Hi Nick, Thanks for the patch, sadly I rely on labels in my other latex exports. For now I'm just using the following little elisp function.
--8<---------------cut here---------------start------------->8--- (defun schulte/clean-beamer () "remove the \label{sec} headers from latex Beamer documents that have been exported by org." (interactive) (save-excursion (goto-char (point-min)) (while (re-search-forward "^\\\\label{" nil t) (move-beginning-of-line nil) (delete-region (point) (save-excursion (forward-line 1) (point)))))) --8<---------------cut here---------------end--------------->8--- Thanks -- Eric Nick Dokos <nicholas.do...@hp.com> writes: > Eric Schulte <schulte.e...@gmail.com> wrote: > > >> Is it possible to suppress the \label{sec-1} lines following each >> headline after a LaTeX export? I've found no mention of this in the >> manual, and the presence of headline labels is breaking my Beamer TOC. >> > > I don't think so: they seem to be inextricably bound with headings. The > code in org-latex.el says: > > (let* (... > (label (org-get-text-property-any 0 'target heading)) > ...) > > > and then > ... > (when label > (insert (mapconcat (lambda (l) (format "\\label{%s}" l)) > label-list "\n") "\n")) > ... > > I recall having problems with labels (among other things) in combination > with beamer before (I "solved" the problem by running the tex file > through a script to just get rid of them), but I don't remember what the > problem was. Maybe it's time to go back and look at the thing again. > > Nick > > PS. Here is a quick-n-dirty patch to disable them - ymmv, uayor and several > other cya disclaimers :-) > > diff --git a/lisp/org-latex.el b/lisp/org-latex.el > index 248d653..f5099f7 100644 > --- a/lisp/org-latex.el > +++ b/lisp/org-latex.el > @@ -852,6 +852,8 @@ and its content." > (let ((num (plist-get org-export-latex-options-plist :section-numbers))) > (mapc (lambda(x) (org-export-latex-subcontent x num)) subcontent))) > > +(defvar org-export-latex-labels-enabled nil) > + > (defun org-export-latex-subcontent (subcontent num) > "Export each cell of SUBCONTENT to LaTeX. > If NUM, export sections as numerical sections." > @@ -862,7 +864,7 @@ If NUM, export sections as numerical sections." > (occur (number-to-string (cdr (assoc 'occur subcontent)))) > (content (cdr (assoc 'content subcontent))) > (subcontent (cadr (assoc 'subcontent subcontent))) > - (label (org-get-text-property-any 0 'target heading)) > + (label (and org-export-latex-labels-enabled (org-get-text-property-any > 0 'target heading))) > (label-list (cons label (cdr (assoc label > org-export-target-aliases))))) > (cond _______________________________________________ Emacs-orgmode mailing list Remember: use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode