From 2e4e05b3d6b3a8ba441e079371d8959ec57e67f3 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Wed, 14 Jul 2010 16:37:24 +0200 Subject: [PATCH] Minor refactoring. * lisp/org-list.el: Minor refactoring. --- lisp/org-list.el | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) diff --git a/lisp/org-list.el b/lisp/org-list.el index c0cb073cb..4603f45b7 100644 --- a/lisp/org-list.el +++ b/lisp/org-list.el @@ -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.