mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-05 22:43:18 +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)) (exp-drawers (plist-get parameters :drawers))
(outline-regexp "\\*+ ") (outline-regexp "\\*+ ")
target-alist tmp target level target-alist tmp target level
a b xx a b xx rtn p)
rtn p)
(with-current-buffer (get-buffer-create " org-mode-tmp") (with-current-buffer (get-buffer-create " org-mode-tmp")
(erase-buffer) (erase-buffer)
(insert string) (insert string)
@ -1181,7 +1181,8 @@ on this string to produce the exported version."
;; Find all headings and compute the targets for them ;; Find all headings and compute the targets for them
(goto-char (point-min)) (goto-char (point-min))
(org-init-section-numbers) (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 (setq level (org-reduced-level
(save-excursion (goto-char (point-at-bol)) (save-excursion (goto-char (point-at-bol))
(org-outline-level)))) (org-outline-level))))
@ -1190,7 +1191,7 @@ on this string to produce the exported version."
(push (cons target target) target-alist) (push (cons target target) target-alist)
(add-text-properties (add-text-properties
(point-at-bol) (point-at-eol) (point-at-bol) (point-at-eol)
(list 'target target))) (list 'target target))))
;; Find targets in comments and move them out of comments, ;; Find targets in comments and move them out of comments,
;; but mark them as targets that should be invisible ;; but mark them as targets that should be invisible