mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-22 09:10:43 +00:00
Code Releases Activity

Small cleanup

Browse source 
* lisp/org.el (org-set-regexps-and-options): Remove reference to
  LATEX_CLASS and beamer back-end.
This commit is contained in:
Nicolas Goaziou 2013-02-16 21:27:13 +01:00
parent 3fbdb193b6
commit 9a6127d77b
1 changed files with 5 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
lisp/org.el
View file

@ -4713,16 +4713,15 @@ but the stars and the body are.")
(org-set-local 'org-file-properties nil) (org-set-local 'org-file-properties nil)
(org-set-local 'org-file-tags nil) (org-set-local 'org-file-tags nil)
(let ((re (org-make-options-regexp (let ((re (org-make-options-regexp
'("CATEGORY" "TODO" "COLUMNS" '("CATEGORY" "TODO" "COLUMNS" "STARTUP" "ARCHIVE" "FILETAGS"
"STARTUP" "ARCHIVE" "FILETAGS" "TAGS" "LINK" "PRIORITIES" "TAGS" "LINK" "PRIORITIES" "CONSTANTS" "PROPERTY" "DRAWERS"
"CONSTANTS" "PROPERTY" "DRAWERS" "SETUPFILE" "LATEX_CLASS" "SETUPFILE" "OPTIONS")
"OPTIONS")
"\\(?:[a-zA-Z][0-9a-zA-Z_]*_TODO\\)")) "\\(?:[a-zA-Z][0-9a-zA-Z_]*_TODO\\)"))
(splitre "[ \t]+") (splitre "[ \t]+")
(scripts org-use-sub-superscripts) (scripts org-use-sub-superscripts)
kwds kws0 kwsa key log value cat arch tags const links hw dws kwds kws0 kwsa key log value cat arch tags const links hw dws
tail sep kws1 prio props ftags drawers beamer-p tail sep kws1 prio props ftags drawers ext-setup-or-nil setup-contents
ext-setup-or-nil setup-contents (start 0)) (start 0))
(save-excursion (save-excursion
(save-restriction (save-restriction
(widen) (widen)
@ -4791,8 +4790,6 @@ but the stars and the body are.")
(setq arch value) (setq arch value)
(remove-text-properties 0 (length arch) (remove-text-properties 0 (length arch)
'(face t fontified t) arch)) '(face t fontified t) arch))
((equal key "LATEX_CLASS")
(setq beamer-p (equal value "beamer")))
((equal key "OPTIONS") ((equal key "OPTIONS")
(if (string-match "\\([ \t]\\|\\`\\)\\^:\\(t\\|nil\\|{}\\)" value) (if (string-match "\\([ \t]\\|\\`\\)\\^:\\(t\\|nil\\|{}\\)" value)
(setq scripts (read (match-string 2 value))))) (setq scripts (read (match-string 2 value)))))