From: Glenn Morris <rgm@gnu.org>
Date: Tue, 11 Dec 2007 05:44:18 +0000 (+0000)
Subject: Add declare-function compatibility definition.
X-Git-Tag: emacs-pretest-23.0.90~8954
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c7e9cfaf696803061e90ce07fc62af34046c9be6;p=emacs.git

Add declare-function compatibility definition.
(gnus-group-decoded-name): Declare as a function.
---

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) "*"))