ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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.
This commit is contained in:
Jason Dunsmore 2011-02-15 21:31:17 +00:00 committed by Bastien Guerry
parent f54814d108
commit 85f03c0859
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/org.el
View File

@ -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)))