mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-03 22:20:52 -08:00
Code Issues Projects Releases Wiki Activity

Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-330

Browse source 
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.
This commit is contained in:
Miles Bader 2005-05-27 04:08:12 +00:00
parent 6b6f91b357
commit b4e8a25b8a
3 changed files with 15 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/gnus/ChangeLog
View file

@ -1,3 +1,9 @@
2005-05-27 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus-util.el (gnus-run-mode-hooks): New function.
* score-mode.el (gnus-score-mode): Use gnus-run-mode-hooks.
2005-05-26 Luc Teirlinck <teirllm@auburn.edu>
* gnus-agent.el (gnus-agent-make-mode-line-string):

6
lisp/gnus/gnus-util.el
View file

@ -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

6
lisp/gnus/score-mode.el
View file

@ -1,6 +1,6 @@
;;; score-mode.el --- mode for editing Gnus score files
;; Copyright (C) 1996, 2001, 2004 Free Software Foundation, Inc.
;; Copyright (C) 1996, 2001, 2004, 2005 Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
;; Keywords: news, mail
@ -28,7 +28,7 @@
(eval-when-compile (require 'cl))
(require 'mm-util) ; for mm-universal-coding-system
(require 'gnus-util) ; for gnus-pp
(require 'gnus-util) ; for gnus-pp, gnus-run-mode-hooks
(defvar gnus-score-mode-hook nil
"*Hook run in score mode buffers.")
@ -71,7 +71,7 @@ This mode is an extended emacs-lisp mode.
(setq mode-name "Score")
(lisp-mode-variables nil)
(make-local-variable 'gnus-score-edit-exit-function)
(run-mode-hooks 'emacs-lisp-mode-hook 'gnus-score-mode-hook))
(gnus-run-mode-hooks 'emacs-lisp-mode-hook 'gnus-score-mode-hook))
(defun gnus-score-make-menu-bar ()
(unless (boundp 'gnus-score-menu)