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

org-element: Fix `org-element-at-point' shortcut 

* lisp/org-element.el (org-element-at-point): Correctly move from
  blank line to blank line in order to find a known element above.
This commit is contained in:
Nicolas Goaziou 2013-12-27 15:41:41 +01:00
parent 954168565b
commit 398dbd91ed
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/org-element.el
View File

@ -5219,16 +5219,15 @@ first row."
;; position. Give up after 10 tries or when we hit
;; a headline (or beginning of buffer).
(beginning-of-line)
(skip-chars-backward " \r\t\n")
(dotimes (i 10)
(skip-chars-backward " \r\t\n")
(cond ((not (re-search-backward "^\\(?:\\*+ \\|[ \t]*$\\)" nil t))
(throw 'loop (goto-char (point-min))))
((/= (char-after) ?*)
(when (bobp) (throw 'loop nil))
;; An element cannot start at a headline, so check
;; first non-blank line below.
(skip-chars-forward " \r\t\n" origin)
(beginning-of-line))
;; An element cannot start at a blank line, so
;; check line below.
(forward-line))
((org-with-limited-levels (org-at-heading-p))
;; Tough luck: we're back at a headline above.
;; Move to beginning of section.