Browse Source

Bug fix.

Regular expression needed an anchor.
Carsten Dominik 17 years ago
parent
commit
c18f4c2124
1 changed files with 13 additions and 12 deletions
  1. 13 12
      lisp/org-exp.el

+ 13 - 12
lisp/org-exp.el

@@ -1127,8 +1127,8 @@ on this string to produce the exported version."
 	 (exp-drawers (plist-get parameters :drawers))
 	 (outline-regexp "\\*+ ")
 	 target-alist tmp target level
-	 a b xx
-	 rtn p)
+	 a b xx rtn p)
+
     (with-current-buffer (get-buffer-create " org-mode-tmp")
       (erase-buffer)
       (insert string)
@@ -1181,16 +1181,17 @@ on this string to produce the exported version."
       ;; Find all headings and compute the targets for them
       (goto-char (point-min))
       (org-init-section-numbers)
-      (while (re-search-forward org-outline-regexp nil t)
-	(setq level (org-reduced-level
-		     (save-excursion (goto-char (point-at-bol))
-				     (org-outline-level))))
-	(setq target (org-solidify-link-text
-		      (format "sec-%s" (org-section-number level))))
-	(push (cons target target) target-alist)
-	(add-text-properties
-	 (point-at-bol) (point-at-eol)
-	 (list 'target target)))
+      (let ((re (concat "^" org-outline-regexp)))
+	(while (re-search-forward re nil t)
+	  (setq level (org-reduced-level
+		       (save-excursion (goto-char (point-at-bol))
+				       (org-outline-level))))
+	  (setq target (org-solidify-link-text
+			(format "sec-%s" (org-section-number level))))
+	  (push (cons target target) target-alist)
+	  (add-text-properties
+	   (point-at-bol) (point-at-eol)
+	   (list 'target target))))
 
       ;; Find targets in comments and move them out of comments,
       ;; but mark them as targets that should be invisible