mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

Bug fix. 

Regular expression needed an anchor.
This commit is contained in:
Carsten Dominik 2008-04-13 22:47:08 +02:00
parent 80a93d5d1b
commit c18f4c2124
1 changed files with 13 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
lisp/org-exp.el
View File

@ -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