diff options
author | Nicolas Goaziou <n.goaziou@gmail.com> | 2010-08-30 08:36:13 +0200 |
---|---|---|
committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2010-09-01 19:05:56 +0200 |
commit | 86b4d5e69d2f5313c70f2b139b34de2912459a90 (patch) | |
tree | 17c720abdcfb478068144261abd4a1ca9bd9b23e | |
parent | 8e5729c466f4f673519b116152518a9bad5154cf (diff) | |
download | org-mode-86b4d5e69d2f5313c70f2b139b34de2912459a90.tar.gz |
Keep byte-compiler happy
-rw-r--r-- | lisp/org-list.el | 11 |
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 |