From: Glenn Morris <rgm@gnu.org>
Date: Sun, 9 Dec 2007 02:08:47 +0000 (+0000)
Subject: (declare-function): Add compatibility declaration.
X-Git-Tag: emacs-pretest-23.0.90~9002
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=88bfa2e405c457e05f6a481344c511fdfde2ebba;p=emacs.git

(declare-function): Add compatibility declaration.
(mm-append-to-file, w32-focus-frame): Declare as functions.
---

diff --git a/lisp/gnus/gnus-util.el b/lisp/gnus/gnus-util.el
index de01fb2db11..8a6e8fa71cb 100644
--- a/lisp/gnus/gnus-util.el
+++ b/lisp/gnus/gnus-util.el
@@ -35,6 +35,9 @@
 
 ;;; Code:
 
+;; For Emacs < 22.2.
+(eval-and-compile
+  (unless (fboundp 'declare-function) (defmacro declare-function (&rest r))))
 (eval-when-compile
   (require 'cl))
 ;; Fixme: this should be a gnus variable, not nnmail-.
@@ -987,6 +990,9 @@ with potentially long computations."
 (defvar rmail-default-rmail-file)
 (defvar mm-text-coding-system)
 
+(declare-function mm-append-to-file "mm-util"
+                  (start end filename &optional codesys inhibit))
+
 (defun gnus-output-to-rmail (filename &optional ask)
   "Append the current article to an Rmail file named FILENAME."
   (require 'rmail)
@@ -1515,6 +1521,8 @@ CHOICE is a list of the choice char and help message at IDX."
 	(kill-buffer buf))
     tchar))
 
+(declare-function w32-focus-frame "../term/w32-win" (frame))
+
 (defun gnus-select-frame-set-input-focus (frame)
   "Select FRAME, raise it, and set input focus, if possible."
   (cond ((featurep 'xemacs)