mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-12-23 10:34:17 +00:00
Code

Revert "Search for LaTeX setup case-insensitively"

Browse Source 
This reverts commit 034dbac3ee.
This commit is contained in:
Carsten Dominik 2010-08-20 18:24:09 +02:00
parent 4a028cc7c0
commit 557ce7c01c
2 changed files with 6 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/org-beamer.el
View File

@ -438,10 +438,8 @@ The effect is that these values will be accessible during export."
(save-restriction
(widen)
(goto-char (point-min))
(and (let ((case-fold-search t))
(re-search-forward
"^#\\+BEAMER_FRAME_LEVEL:[ \t]*\\(.*?\\)[ \t]*$"
nil t))
(and (re-search-forward
"^#\\+BEAMER_FRAME_LEVEL:[ \t]*\\(.*?\\)[ \t]*$" nil t)
(match-string 1))))
(plist-get org-export-latex-options-plist :beamer-frame-level)
org-beamer-frame-level))
@ -463,7 +461,7 @@ The effect is that these values will be accessible during export."
(save-excursion
(save-restriction
(widen)
(let ((txt "") (case-fold-search t))
(let ((txt ""))
(goto-char (point-min))
(while (re-search-forward
"^#\\+BEAMER_HEADER_EXTRA:[ \t]*\\(.*?\\)[ \t]*$"

10
lisp/org-latex.el
View File

@ -1124,9 +1124,7 @@ LEVEL indicates the default depth for export."
(save-restriction
(widen)
(goto-char (point-min))
(and (let ((case-fold-search t))
(re-search-forward
"^#\\+LaTeX_CLASS:[ \t]*\\(-[a-zA-Z]+\\)" nil t))
(and (re-search-forward "^#\\+LaTeX_CLASS:[ \t]*\\(-[a-zA-Z]+\\)" nil t)
(match-string 1))))
(plist-get org-export-latex-options-plist :latex-class)
org-export-latex-default-class)
@ -1140,10 +1138,8 @@ LEVEL indicates the default depth for export."
(save-restriction
(widen)
(goto-char (point-min))
(and (let ((case-fold-search t))
(re-search-forward
"^#\\+LaTeX_CLASS_OPTIONS:[ \t]*\\(.*?\\)[ \t]*$" nil t)
(match-string 1)))))
(and (re-search-forward "^#\\+LaTeX_CLASS_OPTIONS:[ \t]*\\(.*?\\)[ \t]*$" nil t)
(match-string 1))))
(plist-get org-export-latex-options-plist :latex-class-options))
org-export-latex-class
(or (car (assoc org-export-latex-class org-export-latex-classes))