diff options
| author | Stefan Monnier | 2011-09-19 12:48:36 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2011-09-19 12:48:36 -0400 |
| commit | 85cb5d5706296814be7d116cbbd497f6e5b1ac4c (patch) | |
| tree | 76200d0bafcacfd1f40a3cf7b8eb3e9663b16dbe | |
| parent | c5b01d8c63cfd14c95a029540a6fb0da84537726 (diff) | |
| download | emacs-85cb5d5706296814be7d116cbbd497f6e5b1ac4c.tar.gz emacs-85cb5d5706296814be7d116cbbd497f6e5b1ac4c.zip | |
org/org.el: Add FIXMEs for odd chunks of code
| -rw-r--r-- | lisp/org/org.el | 6 |
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)))) |