ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Revert "Search for LaTeX setup case-insensitively" 

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 (save-restriction
(widen) (widen)
(goto-char (point-min)) (goto-char (point-min))
(and (let ((case-fold-search t)) (and (re-search-forward
(re-search-forward "^#\\+BEAMER_FRAME_LEVEL:[ \t]*\\(.*?\\)[ \t]*$" nil t)
"^#\\+BEAMER_FRAME_LEVEL:[ \t]*\\(.*?\\)[ \t]*$"
nil t))
(match-string 1)))) (match-string 1))))
(plist-get org-export-latex-options-plist :beamer-frame-level) (plist-get org-export-latex-options-plist :beamer-frame-level)
org-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-excursion
(save-restriction (save-restriction
(widen) (widen)
(let ((txt "") (case-fold-search t)) (let ((txt ""))
(goto-char (point-min)) (goto-char (point-min))
(while (re-search-forward (while (re-search-forward
"^#\\+BEAMER_HEADER_EXTRA:[ \t]*\\(.*?\\)[ \t]*$" "^#\\+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 (save-restriction
(widen) (widen)
(goto-char (point-min)) (goto-char (point-min))
(and (let ((case-fold-search t)) (and (re-search-forward "^#\\+LaTeX_CLASS:[ \t]*\\(-[a-zA-Z]+\\)" nil t)
(re-search-forward
"^#\\+LaTeX_CLASS:[ \t]*\\(-[a-zA-Z]+\\)" nil t))
(match-string 1)))) (match-string 1))))
(plist-get org-export-latex-options-plist :latex-class) (plist-get org-export-latex-options-plist :latex-class)
org-export-latex-default-class) org-export-latex-default-class)
@ -1140,10 +1138,8 @@ LEVEL indicates the default depth for export."
(save-restriction (save-restriction
(widen) (widen)
(goto-char (point-min)) (goto-char (point-min))
(and (let ((case-fold-search t)) (and (re-search-forward "^#\\+LaTeX_CLASS_OPTIONS:[ \t]*\\(.*?\\)[ \t]*$" nil t)
(re-search-forward (match-string 1))))
"^#\\+LaTeX_CLASS_OPTIONS:[ \t]*\\(.*?\\)[ \t]*$" nil t)
(match-string 1)))))
(plist-get org-export-latex-options-plist :latex-class-options)) (plist-get org-export-latex-options-plist :latex-class-options))
org-export-latex-class org-export-latex-class
(or (car (assoc org-export-latex-class org-export-latex-classes)) (or (car (assoc org-export-latex-class org-export-latex-classes))