diff options
| author | Glenn Morris <rgm@gnu.org> | 2008-06-11 03:10:59 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2008-06-11 03:10:59 +0000 |
| commit | 12c9fab645c25f2ba6c84a5029b883fee92af500 (patch) | |
| tree | 14f8dda77ba1441ea806fa4507a52c4cbe2ee2d9 /lisp | |
| parent | dbb6c370b1ff6494e2ef6eaeeb2c7ee6f0ef07a3 (diff) | |
| download | emacs-12c9fab645c25f2ba6c84a5029b883fee92af500.tar.gz emacs-12c9fab645c25f2ba6c84a5029b883fee92af500.tar.bz2 emacs-12c9fab645c25f2ba6c84a5029b883fee92af500.zip | |
(image-size): Declare.
Remove unnecessary eval-and-compile of autoloads.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/gnus/gnus.el | 8 | ||||
| -rw-r--r-- | 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 <umerin@flab.flab.fujitsu.junet> ;; Lars Magne Ingebrigtsen <larsi@gnus.org> @@ -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))) |