Re: C-M-a, C-M-e

[Bastien <bastienguerry@googlemail.com>]

Jeremie Knuesel <knuesel@gmail.com> writes:

> A keybinding suggestion: wouldn't it make sense to have C-M-a (C-M-e) go to the
> first (last) line of a top-level heading?

Here are the functions:

--8<---------------cut here---------------start------------->8---
(defun org-back-to-top-level-heading ()
  "Go back to the top-level heading."
  (interactive)
  (if (re-search-backward "^\\* " nil t)
      (goto-char (match-beginning 0))
    (message "No previous top-level heading")))

(defun org-next-top-level-heading ()
  "Go to the next top-level heading."
  (interactive)
  (if (re-search-forward "^\\* " nil t)
      (goto-char (match-beginning 0))
    (message "No next top-level heading")))
--8<---------------cut here---------------end--------------->8---

Not sure they deserve keybindings though.  

-- 
 Bastien