mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-07-20 10:26:28 +00:00
Code Releases Activity

Bug fix.

Browse source 
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

9
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,7 +1181,8 @@ 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)
(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))))
@ -1190,7 +1191,7 @@ on this string to produce the exported version."
(push (cons target target) target-alist)
(add-text-properties
(point-at-bol) (point-at-eol)
(list 'target target)))
(list 'target target))))
;; Find targets in comments and move them out of comments,
;; but mark them as targets that should be invisible