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. "Move backwards over whitespace, to the beginning of the first empty line.
Returns the number of empty lines passed." Returns the number of empty lines passed."
(let ((pos (point))) (let ((pos (point)))
(skip-chars-backward " \t\n\r") ;;(skip-chars-backward " \t\n\r")
;; (if (cdr (assoc 'heading org-blank-before-new-entry)) (if (cdr (assoc 'heading org-blank-before-new-entry))
;; (skip-chars-backward " \t\n\r") (skip-chars-backward " \t\n\r")
;; (forward-line -1)) (forward-line -1))
(beginning-of-line 2) (beginning-of-line 2)
(goto-char (min (point) pos)) (goto-char (min (point) pos))
(count-lines (point) pos))) (count-lines (point) pos)))