diff options
| author | Miles Bader <miles@gnu.org> | 2005-05-27 04:08:12 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2005-05-27 04:08:12 +0000 |
| commit | b4e8a25b8afdaed88fc62a0e222bc9b2ff686a6e (patch) | |
| tree | 2915db1aa3f0a996b4f7418f014d24064b1114f0 /lisp/gnus/gnus-util.el | |
| parent | 6b6f91b357f6fe2f1e0d72f046a1b8d8a2d6d8c3 (diff) | |
| download | emacs-b4e8a25b8afdaed88fc62a0e222bc9b2ff686a6e.tar.gz | |
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-330
Merge from gnus--rel--5.10
Patches applied:
* gnus--rel--5.10 (patch 71-73)
- Merge from emacs--cvs-trunk--0
- Update from CVS
2005-05-27 Katsumi Yamaoka <yamaoka@jpl.org>
* lisp/gnus/gnus-util.el (gnus-run-mode-hooks): New function.
* lisp/gnus/score-mode.el (gnus-score-mode): Use gnus-run-mode-hooks.
Diffstat (limited to 'lisp/gnus/gnus-util.el')
| -rw-r--r-- | lisp/gnus/gnus-util.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lisp/gnus/gnus-util.el b/lisp/gnus/gnus-util.el index 237e0507775..9e409001cf0 100644 --- a/lisp/gnus/gnus-util.el +++ b/lisp/gnus/gnus-util.el @@ -1015,6 +1015,12 @@ ARG is passed to the first function." (save-current-buffer (apply 'run-hooks funcs))) +(defun gnus-run-mode-hooks (&rest funcs) + "Run `run-mode-hooks' if it is available. Otherwise run `run-hooks'." + (if (fboundp 'run-mode-hooks) + (apply 'run-mode-hooks funcs) + (apply 'run-hooks funcs))) + ;;; Various (defvar gnus-group-buffer) ; Compiler directive |