From 85f03c0859d84d0b3b51764f379644d1461733df Mon Sep 17 00:00:00 2001 From: Jason Dunsmore Date: Tue, 15 Feb 2011 21:31:17 +0000 Subject: [PATCH] Bugfix: honor `org-blank-before-new-entry' correctly in various contexts. * org.el (org-back-over-empty-lines): Bugfix. Honor `org-blank-before-new-entry' correctly in various contexts. --- lisp/org.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index 92f24065b..eda5fe247 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -18773,10 +18773,10 @@ Taken from `count' in cl-seq.el with all keyword arguments removed." "Move backwards over whitespace, to the beginning of the first empty line. Returns the number of empty lines passed." (let ((pos (point))) - (skip-chars-backward " \t\n\r") - ;; (if (cdr (assoc 'heading org-blank-before-new-entry)) - ;; (skip-chars-backward " \t\n\r") - ;; (forward-line -1)) + ;;(skip-chars-backward " \t\n\r") + (if (cdr (assoc 'heading org-blank-before-new-entry)) + (skip-chars-backward " \t\n\r") + (forward-line -1)) (beginning-of-line 2) (goto-char (min (point) pos)) (count-lines (point) pos)))