procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add declare-function compatibility definition.

Browse source 
(gnus-group-decoded-name): Declare as a function.
This commit is contained in:
Glenn Morris 2007-12-11 05:44:18 +00:00
parent 1ffeb586a5
commit c7e9cfaf69
1 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/gnus/gnus.el
View file

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