mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-04 14:40:54 -08:00
Code Issues Projects Releases Wiki Activity

(org-run-mode-hooks): New function.

Browse source 
(org-agenda-mode): Use it.
This commit is contained in:
Lute Kamstra 2005-06-07 12:56:00 +00:00
parent 590bc48b85
commit 6d64c19123
2 changed files with 12 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2005-06-07 Lute Kamstra <lute@gnu.org>
* textmodes/org.el (org-run-mode-hooks): New function.
(org-agenda-mode): Use it.
2005-06-07 David McCabe <davemccabe@gmail.com> (tiny change)
* emacs-lisp/lisp-mode.el (defstruct): Set 'doc-string-elt property.

10
lisp/textmodes/org.el
View file

@ -154,8 +154,6 @@
(require 'outline)
(require 'time-date)
(require 'easymenu)
(or (fboundp 'run-mode-hooks)
(defalias 'run-mode-hooks 'run-hooks))
;;; Customization variables
@ -384,6 +382,12 @@ or contain a special line
If the file does not specify a category, then file's base name
is used instead.")
(defun org-run-mode-hooks (&rest hooks)
"Call `run-mode-hooks' if it is available; otherwise call `run-hooks'."
(if (fboundp 'run-mode-hooks)
(apply 'run-mode-hooks hooks)
(apply 'run-hooks hooks)))
(defun org-set-regexps-and-options ()
"Precompute regular expressions for current buffer."
(when (eq major-mode 'org-mode)
@ -3118,7 +3122,7 @@ The following commands are available:
"--")
(mapcar 'org-file-menu-entry org-agenda-files)))
(org-agenda-set-mode-name)
(run-mode-hooks 'org-agenda-mode-hook))
(org-run-mode-hooks 'org-agenda-mode-hook))
(define-key org-agenda-mode-map [(tab)] 'org-agenda-goto)
(define-key org-agenda-mode-map [(return)] 'org-agenda-switch-to)