[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r105839: org/org.el: Add FIXMEs for o
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r105839: org/org.el: Add FIXMEs for odd chunks of code |
Date: |
Mon, 19 Sep 2011 12:48:36 -0400 |
User-agent: |
Bazaar (2.3.1) |
------------------------------------------------------------
revno: 105839
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Mon 2011-09-19 12:48:36 -0400
message:
org/org.el: Add FIXMEs for odd chunks of code
modified:
lisp/org/org.el
=== modified file 'lisp/org/org.el'
--- a/lisp/org/org.el 2011-09-17 12:19:04 +0000
+++ b/lisp/org/org.el 2011-09-19 16:48:36 +0000
@@ -7516,7 +7516,7 @@
(org-with-limited-levels
(let* ((visp (not (outline-invisible-p)))
(txt tree)
- (^re_ (concat "\\(\\*+\\)[ \t]*"))
+ (^re_ (concat "\\(\\*+\\)[ \t]*")) ;FIXME: Why `concat'?
(old-level (if (string-match org-outline-regexp-bol txt)
(- (match-end 0) (match-beginning 0) 1)
-1))
@@ -7534,7 +7534,7 @@
(condition-case nil
(progn
(outline-previous-visible-heading 1)
- (if (looking-at re)
+ (if (looking-at re) ;FIXME: What's `re'?
(- (match-end 0) (match-beginning 0) 1)
1))
(error 1))))
@@ -7543,7 +7543,7 @@
(progn
(or (looking-at org-outline-regexp)
(outline-next-visible-heading 1))
- (if (looking-at re)
+ (if (looking-at re) ;FIXME: What's `re'?
(- (match-end 0) (match-beginning 0) 1)
1))
(error 1))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r105839: org/org.el: Add FIXMEs for odd chunks of code,
Stefan Monnier <=