[Emacs-diffs] Changes to emacs/lisp/textmodes/org.el

[Lute Kamstra]

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)