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

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.
This commit is contained in:
Bastien Guerry 2013-03-03 07:53:11 +01:00
parent 0e42e7a7e3
commit 76fa979225
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/org.el
View File

@ -5205,8 +5205,6 @@ The following commands are available:
;; Calc embedded ;; Calc embedded
(org-set-local 'calc-embedded-open-mode "# ") (org-set-local 'calc-embedded-open-mode "# ")
;; Modify a few syntax entries ;; Modify a few syntax entries
(modify-syntax-entry ?< "(")
(modify-syntax-entry ?> ")")
(modify-syntax-entry ?{ "(") (modify-syntax-entry ?{ "(")
(modify-syntax-entry ?} ")") (modify-syntax-entry ?} ")")
(modify-syntax-entry ?@ "w") (modify-syntax-entry ?@ "w")
@ -5233,8 +5231,8 @@ The following commands are available:
;; Comments. ;; Comments.
(org-setup-comments-handling) (org-setup-comments-handling)
;; Beginning/end of defun ;; Beginning/end of defun
(org-set-local 'beginning-of-defun-function 'org-back-to-heading) (org-set-local 'beginning-of-defun-function 'org-backward-element)
(org-set-local 'end-of-defun-function (lambda () (interactive) (org-end-of-subtree nil t))) (org-set-local 'end-of-defun-function 'org-forward-element)
;; Next error for sparse trees ;; Next error for sparse trees
(org-set-local 'next-error-function 'org-occur-next-match) (org-set-local 'next-error-function 'org-occur-next-match)
;; Make sure dependence stuff works reliably, even for users who set it ;; Make sure dependence stuff works reliably, even for users who set it