浏览代码

Revert "org.el (org-ctrl-c-ctrl-c): Bugfix"

This reverts commit d035a9af6c77deacb102406feb5450fed78a7c25.

See http://article.gmane.org/gmane.emacs.orgmode/81752
Bastien Guerry 11 年之前
父节点
当前提交
c89827dc37
共有 1 个文件被更改,包括 3 次插入6 次删除
  1. 3 6
      lisp/org.el

+ 3 - 6
lisp/org.el

@@ -20236,12 +20236,9 @@ This command does many different things, depending on context:
 	  ((bold code entity export-snippet inline-babel-call inline-src-block
 	  ((bold code entity export-snippet inline-babel-call inline-src-block
 		 italic latex-fragment line-break macro strike-through subscript
 		 italic latex-fragment line-break macro strike-through subscript
 		 superscript underline verbatim)
 		 superscript underline verbatim)
-	   (while (and (not (memq (setq type (org-element-type context))
-				  '(paragraph verse-block)))
-		       (org-element-property
-			:parent
-			(org-element-property :parent context)))
-	     (setq context (org-element-property :parent context)))))
+	   (while (and (setq context (org-element-property :parent context))
+		       (not (memq (setq type (org-element-type context))
+				  '(paragraph verse-block)))))))
 	;; For convenience: at the first line of a paragraph on the
 	;; For convenience: at the first line of a paragraph on the
 	;; same line as an item, apply function on that item instead.
 	;; same line as an item, apply function on that item instead.
 	(when (eq type 'paragraph)
 	(when (eq type 'paragraph)