tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

ox: Tiny fix 

* lisp/ox.el (org-export--get-inbuffer-options): Do not consider
  `quote' value as t.
This commit is contained in:
Nicolas Goaziou 2015-03-28 10:37:31 +01:00
parent a0f2293405
commit 3ece4c5e5e
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ox.el
View File

@ -1477,7 +1477,7 @@ Assume buffer is in Org mode. Narrowing, if any, is ignored."
(and backend (org-export-get-all-options backend)) (and backend (org-export-get-all-options backend))
org-export-options-alist)) org-export-options-alist))
(regexp (format "^[ \t]*#\\+%s:" (regexp (format "^[ \t]*#\\+%s:"
(regexp-opt (nconc (delq nil (mapcar 'cadr options)) (regexp-opt (nconc (delq nil (mapcar #'cadr options))
org-export-special-keywords)))) org-export-special-keywords))))
(find-properties (find-properties
(lambda (keyword) (lambda (keyword)
@ -1546,7 +1546,7 @@ Assume buffer is in Org mode. Narrowing, if any, is ignored."
(org-trim val)))) (org-trim val))))
(split `(,@(plist-get plist property) (split `(,@(plist-get plist property)
,@(org-split-string val))) ,@(org-split-string val)))
('t val) ((t) val)
(otherwise (otherwise
(if (not (plist-member plist property)) val (if (not (plist-member plist property)) val
(plist-get plist property)))))))))))))) (plist-get plist property))))))))))))))