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

Merge branch 'master' of orgmode.org:org-mode

Bastien Guerry 11 лет назад
Родитель
Сommit
817ea65a67
1 измененных файлов с 8 добавлено и 5 удалено
  1. 8 5
      lisp/org-element.el

+ 8 - 5
lisp/org-element.el

@@ -1284,10 +1284,9 @@ CONTENTS is the contents of the element."
 		    (throw 'exit (sort struct 'car-less-than-car))))))
 	    ;; Skip blocks (any type) and drawers contents.
 	    (cond
-	     ((and (looking-at "\\(?:[ \t]*\\)?#\\+BEGIN\\(:\\|_\\S-+\\)")
+	     ((and (looking-at "#\\+BEGIN\\(:\\|_\\S-+\\)")
 		   (re-search-forward
-		    (format "^[ \t]*#\\+END%s[ \t]*$"
-			    (org-match-string-no-properties 1))
+		    (format "^[ \t]*#\\+END%s[ \t]*$" (match-string 1))
 		    limit t)))
 	     ((and (looking-at org-drawer-regexp)
 		   (re-search-forward "^[ \t]*:END:[ \t]*$" limit t))))
@@ -2881,8 +2880,12 @@ CONTENTS is nil."
 Return value is a cons cell whose CAR is `inline-babel-call' and
 CDR is beginning position."
   (save-excursion
-    (when (re-search-forward org-babel-inline-lob-one-liner-regexp nil t)
-      (cons 'inline-babel-call (match-end 1)))))
+    (catch 'exit
+      (while (search-forward "call_" nil t)
+	(save-excursion
+	  (goto-char (match-beginning 0))
+	  (when (looking-at org-babel-inline-lob-one-liner-regexp)
+	    (throw 'exit (cons 'inline-babel-call (point)))))))))
 
 
 ;;;; Inline Src Block