diff options
| author | Glenn Morris <rgm@gnu.org> | 2007-12-11 05:44:18 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2007-12-11 05:44:18 +0000 |
| commit | c7e9cfaf696803061e90ce07fc62af34046c9be6 (patch) | |
| tree | 6a0b4a27a01e76ccec530302caac44e4e24710e1 /lisp/gnus/gnus.el | |
| parent | 1ffeb586a53bfad9006036f160c6321933cfd6b6 (diff) | |
| download | emacs-c7e9cfaf696803061e90ce07fc62af34046c9be6.tar.gz | |
Add declare-function compatibility definition.
(gnus-group-decoded-name): Declare as a function.
Diffstat (limited to 'lisp/gnus/gnus.el')
| -rw-r--r-- | lisp/gnus/gnus.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lisp/gnus/gnus.el b/lisp/gnus/gnus.el index bd96e52d65f..fc76fce86d7 100644 --- a/lisp/gnus/gnus.el +++ b/lisp/gnus/gnus.el @@ -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 @@ server is native)." "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) "*")) |