aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Monnier2011-09-19 12:48:36 -0400
committerStefan Monnier2011-09-19 12:48:36 -0400
commit85cb5d5706296814be7d116cbbd497f6e5b1ac4c (patch)
tree76200d0bafcacfd1f40a3cf7b8eb3e9663b16dbe
parentc5b01d8c63cfd14c95a029540a6fb0da84537726 (diff)
downloademacs-85cb5d5706296814be7d116cbbd497f6e5b1ac4c.tar.gz
emacs-85cb5d5706296814be7d116cbbd497f6e5b1ac4c.zip
org/org.el: Add FIXMEs for odd chunks of code
-rw-r--r--lisp/org/org.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/org/org.el b/lisp/org/org.el
index 419ff022cf6..32ca5288d6e 100644
--- a/lisp/org/org.el
+++ b/lisp/org/org.el
@@ -7516,7 +7516,7 @@ the inserted text when done."
7516 (org-with-limited-levels 7516 (org-with-limited-levels
7517 (let* ((visp (not (outline-invisible-p))) 7517 (let* ((visp (not (outline-invisible-p)))
7518 (txt tree) 7518 (txt tree)
7519 (^re_ (concat "\\(\\*+\\)[ \t]*")) 7519 (^re_ (concat "\\(\\*+\\)[ \t]*")) ;FIXME: Why `concat'?
7520 (old-level (if (string-match org-outline-regexp-bol txt) 7520 (old-level (if (string-match org-outline-regexp-bol txt)
7521 (- (match-end 0) (match-beginning 0) 1) 7521 (- (match-end 0) (match-beginning 0) 1)
7522 -1)) 7522 -1))
@@ -7534,7 +7534,7 @@ the inserted text when done."
7534 (condition-case nil 7534 (condition-case nil
7535 (progn 7535 (progn
7536 (outline-previous-visible-heading 1) 7536 (outline-previous-visible-heading 1)
7537 (if (looking-at re) 7537 (if (looking-at re) ;FIXME: What's `re'?
7538 (- (match-end 0) (match-beginning 0) 1) 7538 (- (match-end 0) (match-beginning 0) 1)
7539 1)) 7539 1))
7540 (error 1)))) 7540 (error 1))))
@@ -7543,7 +7543,7 @@ the inserted text when done."
7543 (progn 7543 (progn
7544 (or (looking-at org-outline-regexp) 7544 (or (looking-at org-outline-regexp)
7545 (outline-next-visible-heading 1)) 7545 (outline-next-visible-heading 1))
7546 (if (looking-at re) 7546 (if (looking-at re) ;FIXME: What's `re'?
7547 (- (match-end 0) (match-beginning 0) 1) 7547 (- (match-end 0) (match-beginning 0) 1)
7548 1)) 7548 1))
7549 (error 1)))) 7549 (error 1))))