diff options
author | Jason Dunsmore <emacs-orgmode@deathroller.dunsmor.com> | 2011-02-15 21:31:17 +0000 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2011-03-09 11:06:09 +0100 |
commit | 85f03c0859d84d0b3b51764f379644d1461733df (patch) | |
tree | b92da0ab07edd19c7bf67aeb77c58e0c0bd076a0 | |
parent | f54814d108aa2efeaef7e9399e0ff634e0c7a643 (diff) | |
download | org-mode-85f03c0859d84d0b3b51764f379644d1461733df.tar.gz |
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.
-rw-r--r-- | lisp/org.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/org.el b/lisp/org.el index 92f2406..eda5fe2 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))) |