Index: emacs/lisp/textmodes/org.el
diff -c emacs/lisp/textmodes/org.el:1.19 emacs/lisp/textmodes/org.el:1.20
*** emacs/lisp/textmodes/org.el:1.19 Thu May 26 10:31:20 2005
--- emacs/lisp/textmodes/org.el Tue Jun 7 12:55:04 2005
***************
*** 154,161 ****
(require 'outline)
(require 'time-date)
(require 'easymenu)
- (or (fboundp 'run-mode-hooks)
- (defalias 'run-mode-hooks 'run-hooks))
;;; Customization variables
--- 154,159 ----
***************
*** 384,389 ****
--- 382,393 ----
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,3124 ****
"--")
(mapcar 'org-file-menu-entry org-agenda-files)))
(org-agenda-set-mode-name)
! (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)
--- 3122,3128 ----
"--")
(mapcar 'org-file-menu-entry org-agenda-files)))
(org-agenda-set-mode-name)
! (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)
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
