From 12c9fab645c25f2ba6c84a5029b883fee92af500 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Wed, 11 Jun 2008 03:10:59 +0000 Subject: [PATCH] (image-size): Declare. Remove unnecessary eval-and-compile of autoloads. --- lisp/gnus/gnus.el | 8 +++++--- lisp/gnus/mm-decode.el | 11 ++++++----- 2 files changed, 11 insertions(+), 8 deletions(-) diff --git a/lisp/gnus/gnus.el b/lisp/gnus/gnus.el index 0fec30f9562..5be5a6e1bb7 100644 --- a/lisp/gnus/gnus.el +++ b/lisp/gnus/gnus.el @@ -1,7 +1,8 @@ ;;; gnus.el --- a newsreader for GNU Emacs ;; Copyright (C) 1987, 1988, 1989, 1990, 1993, 1994, 1995, 1996, 1997, 1998, -;; 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008 Free Software Foundation, Inc. +;; 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008 +;; Free Software Foundation, Inc. ;; Author: Masanobu UMEDA ;; Lars Magne Ingebrigtsen @@ -917,8 +918,7 @@ be set in `.emacs' instead." (defvar gnus-group-buffer "*Group*") -(eval-and-compile - (autoload 'gnus-play-jingle "gnus-audio")) +(autoload 'gnus-play-jingle "gnus-audio") (defface gnus-splash '((((class color) @@ -993,6 +993,8 @@ be set in `.emacs' instead." (cdr (assq gnus-logo-color-style gnus-logo-color-alist)) "Colors used for the Gnus logo.") +(declare-function image-size "image.c" (spec &optional pixels frame)) + (defun gnus-group-startup-message (&optional x y) "Insert startup message in current buffer." ;; Insert the message. diff --git a/lisp/gnus/mm-decode.el b/lisp/gnus/mm-decode.el index 6ee254ac03e..721e4082240 100644 --- a/lisp/gnus/mm-decode.el +++ b/lisp/gnus/mm-decode.el @@ -35,11 +35,10 @@ (eval-when-compile (require 'cl) (require 'term)) -(eval-and-compile - (autoload 'mm-inline-partial "mm-partial") - (autoload 'mm-inline-external-body "mm-extern") - (autoload 'mm-extern-cache-contents "mm-extern") - (autoload 'mm-insert-inline "mm-view")) +(autoload 'mm-inline-partial "mm-partial") +(autoload 'mm-inline-external-body "mm-extern") +(autoload 'mm-extern-cache-contents "mm-extern") +(autoload 'mm-insert-inline "mm-view") (defvar gnus-current-window-configuration) @@ -1438,6 +1437,8 @@ be determined." (intern type)) :data (buffer-string))))))) +(declare-function image-size "image.c" (spec &optional pixels frame)) + (defun mm-image-fit-p (handle) "Say whether the image in HANDLE will fit the current window." (let ((image (mm-get-image handle))) -- 2.39.2