summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <n.goaziou@gmail.com>2010-08-30 08:36:13 +0200
committerNicolas Goaziou <n.goaziou@gmail.com>2010-09-01 19:05:56 +0200
commit86b4d5e69d2f5313c70f2b139b34de2912459a90 (patch)
tree17c720abdcfb478068144261abd4a1ca9bd9b23e
parent8e5729c466f4f673519b116152518a9bad5154cf (diff)
downloadorg-mode-86b4d5e69d2f5313c70f2b139b34de2912459a90.tar.gz
Keep byte-compiler happy
-rw-r--r--lisp/org-list.el11
1 files changed, 7 insertions, 4 deletions
diff --git a/lisp/org-list.el b/lisp/org-list.el
index 3adf891..17b9651 100644
--- a/lisp/org-list.el
+++ b/lisp/org-list.el
@@ -556,9 +556,11 @@ uses PRE-MOVE before search. Return nil if no item was found."
(= (org-get-indentation) ind))
(point-at-bol)))))
-(defun org-list-separating-blank-lines-number (top bottom)
+(defun org-list-separating-blank-lines-number (pos top bottom)
"Return number of blank lines that should separate items in list.
+POS is the position of point to be considered.
+
TOP and BOTTOM are respectively position of list beginning and
list ending.
@@ -586,9 +588,9 @@ some heuristics to guess the result."
((org-get-previous-item (point) top)
(org-back-over-empty-lines))
;; User inserted blank lines, trust him
- ((and (> true-pos (org-end-of-item-before-blank bottom))
+ ((and (> pos (org-end-of-item-before-blank bottom))
(> (save-excursion
- (goto-char true-pos)
+ (goto-char pos)
(skip-chars-backward " \t")
(setq usr-blank (org-back-over-empty-lines))) 0))
usr-blank)
@@ -634,7 +636,8 @@ function ends."
;; Otherwise, text starts after bullet.
(org-at-item-p))
(<= true-pos (match-end 0))))
- (blank-lines-nb (org-list-separating-blank-lines-number top bottom))
+ (blank-lines-nb (org-list-separating-blank-lines-number
+ true-pos top bottom))
(insert-fun
(lambda (text)
;; insert bullet above item in order to avoid bothering