From 76fa979225a2a31f7be6d366c48750d4f7abe458 Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Sun, 3 Mar 2013 07:53:11 +0100 Subject: [PATCH] org.el (org-mode): New default value for *-of-defun-function * org.el (org-mode): Use `org-backward-element' and `org-forward-element' for `beginning-of-defun-function' and `end-of-defun-function': this allows using C-M-a and C-M-e before the first headline. --- lisp/org.el | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index 316526a64..73e39f8e2 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -5205,8 +5205,6 @@ The following commands are available: ;; Calc embedded (org-set-local 'calc-embedded-open-mode "# ") ;; Modify a few syntax entries - (modify-syntax-entry ?< "(") - (modify-syntax-entry ?> ")") (modify-syntax-entry ?{ "(") (modify-syntax-entry ?} ")") (modify-syntax-entry ?@ "w") @@ -5233,8 +5231,8 @@ The following commands are available: ;; Comments. (org-setup-comments-handling) ;; Beginning/end of defun - (org-set-local 'beginning-of-defun-function 'org-back-to-heading) - (org-set-local 'end-of-defun-function (lambda () (interactive) (org-end-of-subtree nil t))) + (org-set-local 'beginning-of-defun-function 'org-backward-element) + (org-set-local 'end-of-defun-function 'org-forward-element) ;; Next error for sparse trees (org-set-local 'next-error-function 'org-occur-next-match) ;; Make sure dependence stuff works reliably, even for users who set it