浏览代码

org-element: Rename :options property from example to :switches

* contrib/lisp/org-element.el (org-element-example-block-parser):
  Rename :options property from example to :switches.
Nicolas Goaziou 13 年之前
父节点
当前提交
cd1e356da2
共有 1 个文件被更改,包括 5 次插入5 次删除
  1. 5 5
      contrib/lisp/org-element.el

+ 5 - 5
contrib/lisp/org-element.el

@@ -970,10 +970,10 @@ containing `:begin', `:end', `:options', `:hiddenp', `:value' and
   (save-excursion
     (end-of-line)
     (let* ((case-fold-search t)
-	   (options (progn
-		      (re-search-backward
-		       "^[ \t]*#\\+begin_example\\(?: +\\(.*\\)\\)?" nil t)
-		      (org-match-string-no-properties 1)))
+	   (switches (progn
+		       (re-search-backward
+			"^[ \t]*#\\+begin_example\\(?: +\\(.*\\)\\)?" nil t)
+		       (org-match-string-no-properties 1)))
 	   (keywords (org-element-collect-affiliated-keywords))
 	   (begin (car keywords))
 	   (contents-begin (progn (forward-line) (point)))
@@ -989,7 +989,7 @@ containing `:begin', `:end', `:options', `:hiddenp', `:value' and
 	(:begin ,begin
 		:end ,end
 		:value ,value
-		:options ,options
+		:switches ,switches
 		:hiddenp ,hidden
 		:post-blank ,(count-lines pos-before-blank end)
 		,@(cadr keywords))))))