瀏覽代碼

Merge branch 'maint'

Bastien Guerry 11 年之前
父節點
當前提交
cdb16718c0
共有 1 個文件被更改,包括 7 次插入1 次删除
  1. 7 1
      lisp/org.el

+ 7 - 1
lisp/org.el

@@ -15432,7 +15432,13 @@ when a \"nil\" value can supersede a non-nil value higher up the hierarchy."
 	  (cdr (assoc property (org-entry-properties nil 'special property)))
 	(org-with-wide-buffer
 	 (let ((range (org-get-property-block)))
-	   (when (and range (not (eq (car range) (cdr range))))
+	   (when (and range (not (eq (car range) (cdr range)))
+		      (save-excursion
+		      	(goto-char (car range))
+		      	(re-search-forward
+		      	 (concat (org-re-property property) "\\|"
+				 (org-re-property (concat property "+")))
+			 (cdr range) t)))
 	     (let* ((props
 		     (list (or (assoc property org-file-properties)
 			       (assoc property org-global-properties)