Mercurial > emacs
changeset 87247:9d87abf9e764
Add declare-function compatibility definition.
(gnus-group-decoded-name): Declare as a function.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Tue, 11 Dec 2007 05:44:18 +0000 |
| parents | 977e07d44319 |
| children | 617739001662 |
| files | lisp/gnus/gnus.el |
| diffstat | 1 files changed, 6 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/gnus.el Tue Dec 11 05:43:42 2007 +0000 +++ b/lisp/gnus/gnus.el Tue Dec 11 05:44:18 2007 +0000 @@ -30,6 +30,10 @@ (eval '(run-hooks 'gnus-load-hook)) +;; For Emacs < 22.2. +(eval-and-compile + (unless (fboundp 'declare-function) (defmacro declare-function (&rest r)))) + (eval-when-compile (require 'cl)) (require 'wid-edit) (require 'mm-util) @@ -3736,6 +3740,8 @@ "Return the prefix of the current group name." (< 0 (length (gnus-group-real-prefix group)))) +(declare-function gnus-group-decoded-name "gnus-group" (string)) + (defun gnus-summary-buffer-name (group) "Return the summary buffer name of GROUP." (concat "*Summary " (gnus-group-decoded-name group) "*"))