tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

Minor refactoring. 

* lisp/org-list.el: Minor refactoring.
This commit is contained in:
Nicolas Goaziou 2010-07-14 16:37:24 +02:00
parent 2b8aa4c406
commit 2e4e05b3d6
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lisp/org-list.el
View File

@ -319,11 +319,11 @@ Internal use only. Prefer `org-get-next-item' and
`org-get-previous-item' for cleaner code."
(save-excursion
(when pos (goto-char pos))
(let* ((begin (point))
(ind (progn
(org-beginning-of-item)
(org-get-indentation)))
(start (point-at-bol)))
(let ((begin (point))
(ind (progn
(org-beginning-of-item)
(org-get-indentation)))
(start (point-at-bol)))
;; we don't want to match the current line.
(funcall pre-move)
;; we skip any sublist on the way
@ -668,8 +668,7 @@ block, or item is invisible."
;; inserting a coherent number of blank lines.
(timer-p
(newline (1+ blank-lines-nb))
(org-timer-item)
t)
(org-timer-item) t)
(before-p
(funcall insert-fun)
;; Renumber in this case, as we're not moving down.