Просмотр исходного кода

ox: Tiny fix

* lisp/ox.el (org-export--get-inbuffer-options): Do not consider
  `quote' value as t.
Nicolas Goaziou 10 лет назад
Родитель
Сommit
3ece4c5e5e
1 измененных файлов с 2 добавлено и 2 удалено
  1. 2 2
      lisp/ox.el

+ 2 - 2
lisp/ox.el

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