Add some compiler declarations, for builds without X.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 41bf73f51390de875595e8c4288f57450db3e803..f088b5a4d5635a93316a032add6d4c4bb573acc6 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,98 @@
+2008-06-12  Glenn Morris  <rgm@gnu.org>
+
+       * progmodes/f90.el (f90-beginning-of-subprogram)
+       (f90-end-of-subprogram): Only give a message when interactive.
+
+       * term/mac-win.el (x-toolkit-scroll-bars): Check bound.
+
+       * progmodes/cperl-mode.el (cperl-info-on-command): Use
+       display-pixel-height rather than x-display-pixel-height.
+
+       * mail/rmailedit.el (rmail-cease-edit):
+       * vc-dispatcher.el (vc-dir-mode): Check tool-bar-mode is bound.
+
+       * emulation/edt.el (edt-xserver):
+       * emulation/edt-mapper.el (edt-xserver): Use replace-regexp-in-string.
+
+       * emulation/edt-mapper.el: Drop test for Emacs < 19.
+
+       * mwheel.el (mouse-wheel-follow-mouse, mwheel-event-window):
+       Evaluate definitions when compiling.  Reverse tests.
+
+       * dframe.el (dframe-reposition-frame-emacs): Reorder test, and
+       use unless.
+
+       * menu-bar.el (w32-menu-bar-open): Declare for compiler.
+
+       * textmodes/artist.el (x-pointer-shape):
+       * term/x-win.el (x-parse-geometry, x-resource-name, accelerate-menu)
+       (x-open-connection, x-server-max-request-size, x-get-resource):
+       * term/w32console.el (x-setup-function-keys):
+       * term/w32-win.el (x-parse-geometry, x-resource-name)
+       (generate-fontset-menu, image-library-alist, x-open-connection)
+       (setup-default-fontset, set-fontset-font, setup-default-fontset)
+       (create-fontset-from-fontset-spec, create-fontset-from-x-resource)
+       (x-get-resource):
+       * term/mac-win.el (x-parse-geometry, x-resource-name)
+       (x-get-selection-internal, tool-bar-mode, set-fontset-font)
+       (new-fontset, x-display-list, x-open-connection, x-get-resource):
+       * progmodes/gud.el (tooltip-last-mouse-motion-event, tooltip-hide)
+       (tooltip-start-delayed-tip, tooltip-use-echo-area, tooltip-show)
+       (tooltip-strip-prompt, tooltip-expr-to-print, tooltip-event-buffer):
+       * progmodes/gdb-ui.el (tooltip-show, tooltip-use-echo-area)
+       (tooltip-identifier-from-point, define-fringe-bitmap):
+       * play/gamegrid.el (image-size):
+       * play/bubbles.el (image-size):
+       * mail/emacsbug.el (x-server-vendor, x-server-version):
+       * international/mule-util.el (internal-char-font):
+       * international/mule-diag.el (font-info, query-fontset, fontset-info)
+       (fontset-alias-alist, fontset-list, fontset-plain-name):
+       * international/mule-cmds.el (x-server-vendor, x-server-version):
+       * international/fontset.el (font-encoding-charset-alist)
+       (otf-script-alist, new-fontset, set-fontset-font)
+       (x-pixel-size-width-font-regexp, vertical-centering-font-regexp)
+       (fontset-list, query-fontset, x-get-resource):
+       * emulation/edt.el (x-server-vendor):
+       * emulation/edt-mapper.el (x-server-vendor):
+       * emacs-lisp/map-ynp.el (x-popup-dialog):
+       * emacs-lisp/lmenu.el (x-popup-dialog):
+       * x-dnd.el (x-window-property, x-change-window-property)
+       (x-get-selection-internal):
+       * woman.el (x-list-fonts):
+       * w32-fns.el (x-server-version):
+       * tooltip.el (x-show-tip, x-hide-tip):
+       * tool-bar.el (image-mask-p):
+       * thumbs.el (image-size):
+       * term.el (overflow-newline-into-fringe):
+       * subr.el (scroll-bar-scale):
+       * startup.el (x-get-resource, tool-bar-mode, image-size):
+       * select.el (x-get-selection-internal, x-own-selection-internal)
+       (x-disown-selection-internal):
+       * mouse.el (generate-fontset-menu):
+       * mouse-sel.el (x-select-text, x-cut-buffer-or-selection-value):
+       * image.el (image-library-alist):
+       * image-mode.el (image-size, image-refresh):
+       * image-dired.el (clear-image-cache):
+       * gs.el (x-display-mm-width, x-display-pixel-width)
+       (x-display-mm-height, x-display-pixel-height)
+       (x-change-window-property, x-display-grayscale-p, x-window-property):
+       * frame.el (tool-bar-mode, x-display-name, x-close-connection)
+       (x-focus-frame, x-list-fonts, x-display-screens)
+       (x-display-pixel-height, x-display-pixel-width, x-display-mm-height)
+       (x-display-mm-width, x-display-backing-store, x-display-save-under)
+       (x-display-planes, x-display-color-cells, x-display-visual-class):
+       * faces.el (internal-face-x-get-resource)
+       (internal-set-lisp-face-attribute-from-resource, x-bitmap-file-path)
+       (fontset-list, x-list-fonts, xw-color-defined-p, xw-color-values)
+       (xw-display-color-p, x-display-grayscale-p, x-get-resource)
+       (x-parse-geometry, x-create-frame, x-setup-function-keys)
+       (tool-bar-setup):
+       * doc-view.el (clear-image-cache, image-size, tooltip-show):
+       * dired.el (dnd-get-local-file-name, dnd-get-local-file-uri):
+       * dframe.el (x-display-pixel-width, x-display-pixel-height):
+       * descr-text.el (internal-char-font):
+       Define for compiler, for builds without X.
+
 2008-06-11  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * vc-rcs.el (vc-rcs-state-heuristic): Don't assume the file exists.

diff --git a/lisp/descr-text.el b/lisp/descr-text.el
index 9c1d2538ec35f0a83549ad8fec49f53e962f80d5..527989d9961fb9dddd8e5be785361881cb47b956 100644 (file)
--- a/lisp/descr-text.el
+++ b/lisp/descr-text.el
@@ -318,6 +318,9 @@ This function is semi-obsolete.  Use `get-char-code-property'."
                                      (string (string-to-number
                                               (nth 13 fields) 16)))))))))))
 
+;; Not defined on builds without X, but behind display-graphic-p.
+(declare-function internal-char-font "fontset.c" (position &optional ch))
+
 ;; Return information about how CHAR is displayed at the buffer
 ;; position POS.  If the selected frame is on a graphic display,
 ;; return a cons (FONTNAME . GLYPH-CODE) where GLYPH-CODE is a

diff --git a/lisp/dired.el b/lisp/dired.el
index 61c3549ecc1831017c56e7ebd1ae938977194452..d53a6831b130af901fb43a2725e5881c29826e1e 100644 (file)
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -3315,6 +3315,10 @@ Anything else means ask for each directory."
 (declare-function dired-relist-entry "dired-aux" (file))
 (declare-function make-symbolic-link "fileio.c")
 
+;; Only used when (featurep 'dnd).
+(declare-function dnd-get-local-file-name "dnd" (uri &optional must-exist))
+(declare-function dnd-get-local-file-uri "dnd" (uri))
+
 (defun dired-dnd-handle-local-file (uri action)
   "Copy, move or link a file to the dired directory.
 URI is the file to handle, ACTION is one of copy, move, link or ask.

diff --git a/lisp/doc-view.el b/lisp/doc-view.el
index 3cf6d8cf1e859159e60c1acc825dfddf8120ceb0..3840c5c81bd4be9de705f25a49091ba20c13021e 100644 (file)
--- a/lisp/doc-view.el
+++ b/lisp/doc-view.el
@@ -628,6 +628,8 @@ Call CALLBACK with no arguments when done."
                  pdf))
    callback))
 
+(declare-function clear-image-cache "image.c" (&optional filter))
+
 (defun doc-view-pdf->png (pdf png pages)
   "Convert a PDF file to PNG asynchronously.
 Start by converting PAGES, and then the rest."
@@ -728,6 +730,8 @@ Those files are saved in the directory given by the function
 
 ;;;; Slicing
 
+(declare-function image-size "image.c" (spec &optional pixels frame))
+
 (defun doc-view-set-slice (x y width height)
   "Set the slice of the images that should be displayed.
 You can use this function to tell doc-view not to display the
@@ -864,6 +868,8 @@ For now these keys are useful:
 `k' : Kill the conversion process and this buffer.
 `K' : Kill the conversion process.\n"))))
 
+(declare-function tooltip-show "tooltip" (text &optional use-echo-area))
+
 (defun doc-view-show-tooltip ()
   (interactive)
   (tooltip-show (doc-view-current-info)))

diff --git a/lisp/emacs-lisp/lmenu.el b/lisp/emacs-lisp/lmenu.el
index 81ca946e78487ea0b14a161cf18c38bbfc311e84..475d2094ca763867ab6463e6832533c538183027 100644 (file)
--- a/lisp/emacs-lisp/lmenu.el
+++ b/lisp/emacs-lisp/lmenu.el
@@ -128,6 +128,8 @@
       (setq menu-items (cdr menu-items)))
     menu))
 
+(declare-function x-popup-dialog "xmenu.c" (position contents &optional header))
+
 ;; XEmacs compatibility function
 (defun popup-dialog-box (data)
   "Pop up a dialog box.

diff --git a/lisp/emacs-lisp/map-ynp.el b/lisp/emacs-lisp/map-ynp.el
index 634538f33a91db1d84b55ea8b666f1f19eb66070..0820c5c1e4d6adcfc18c525c172c4c3a4676bb06 100644 (file)
--- a/lisp/emacs-lisp/map-ynp.el
+++ b/lisp/emacs-lisp/map-ynp.el
@@ -34,6 +34,8 @@
 
 ;;; Code:
 
+(declare-function x-popup-dialog "xmenu.c" (position contents &optional header))
+
 (defun map-y-or-n-p (prompter actor list &optional help action-alist
                              no-cursor-in-echo-area)
   "Ask a series of boolean questions.

diff --git a/lisp/faces.el b/lisp/faces.el
index 302cf6c02d865c541e6599fbcfd2504f6b6309e9..0fa55f8bd8954ad8870f215f940368513c699c8e 100644 (file)
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -299,6 +299,12 @@ X resource class for the attribute."
   :group 'faces)
 
 
+(declare-function internal-face-x-get-resource "xfaces.c"
+                 (resource class frame))
+
+(declare-function internal-set-lisp-face-attribute-from-resource "xfaces.c"
+                 (face attr value &optional frame))
+
 (defun set-face-attribute-from-resource (face attribute resource class frame)
   "Set FACE's ATTRIBUTE from X resource RESOURCE, class CLASS on FRAME.
 Value is the attribute value specified by the resource, or nil
@@ -930,6 +936,8 @@ Otherwise, return a single face."
          output
        (car output)))))
 
+;; Not defined without X, but behind window-system test.
+(defvar x-bitmap-file-path)
 
 (defun face-valid-attribute-values (attribute &optional frame)
   "Return valid values for face attribute ATTRIBUTE.
@@ -1110,6 +1118,9 @@ of a global face.  Value is the new attribute value."
       (setq new-value (read new-value)))
     new-value))
 
+(declare-function fontset-list "fontset.c" ())
+(declare-function x-list-fonts "xfaces.c"
+                 (pattern &optional face frame maximum width))
 
 (defun read-face-font (face &optional frame)
   "Read the name of a font for FACE on FRAME.
@@ -1586,6 +1597,8 @@ If FRAME is nil, that stands for the selected frame."
     (mapcar 'car (tty-color-alist frame))))
 (defalias 'x-defined-colors 'defined-colors)
 
+(declare-function xw-color-defined-p "xfns.c" (color &optional frame))
+
 (defun color-defined-p (color &optional frame)
   "Return non-nil if color COLOR is supported on frame FRAME.
 If FRAME is omitted or nil, use the selected frame.
@@ -1598,6 +1611,8 @@ If COLOR is the symbol `unspecified' or one of the strings
       (numberp (tty-color-translate color frame)))))
 (defalias 'x-color-defined-p 'color-defined-p)
 
+(declare-function xw-color-values "xfns.c" (color &optional frame))
+
 (defun color-values (color &optional frame)
   "Return a description of the color named COLOR on frame FRAME.
 The value is a list of integer RGB values--(RED GREEN BLUE).
@@ -1614,6 +1629,8 @@ If COLOR is the symbol `unspecified' or one of the strings
       (tty-color-values color frame))))
 (defalias 'x-color-values 'color-values)
 
+(declare-function xw-display-color-p "xfns.c" (&optional terminal))
+
 (defun display-color-p (&optional display)
   "Return t if DISPLAY supports color.
 The optional argument DISPLAY specifies which display to ask about.
@@ -1624,6 +1641,8 @@ If omitted or nil, that stands for the selected frame's display."
     (tty-display-color-p display)))
 (defalias 'x-display-color-p 'display-color-p)
 
+(declare-function x-display-grayscale-p "xfns.c" (&optional terminal))
+
 (defun display-grayscale-p (&optional display)
   "Return non-nil if frames on DISPLAY can display shades of gray."
   (let ((frame-type (framep-on-display display)))
@@ -1788,6 +1807,9 @@ variable with `setq'; this won't have the expected effect."
                 (const :tag "automatic" nil)))
 
 
+(declare-function x-get-resource "frame.c"
+                 (attribute class &optional component subclass))
+
 (defun frame-set-background-mode (frame)
   "Set up display-dependent faces on FRAME.
 Display-dependent faces are those which have different definitions
@@ -1870,6 +1892,8 @@ according to the `background-mode' and `display-type' frame parameters."
 ;;; Frame creation.
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
+(declare-function x-parse-geometry "frame.c" (string))
+
 (defun x-handle-named-frame-geometry (parameters)
   "Add geometry parameters for a named frame to parameter list PARAMETERS.
 Value is the new parameter list."
@@ -1916,6 +1940,9 @@ Value is the new parameter list."
            (modify-frame-parameters frame
                                     (list (cons 'cursor-color fg)))))))
 
+(declare-function x-create-frame "xfns.c" (parms))
+(declare-function x-setup-function-keys "term/x-win" (frame))
+(declare-function tool-bar-setup "tool-bar" (&optional frame))
 
 (defun x-create-frame-with-faces (&optional parameters)
   "Create a frame from optional frame parameters PARAMETERS.

diff --git a/lisp/frame.el b/lisp/frame.el
index d68f80f9373071cc054263c3d519823019e36257..6e0d5f359eb4068559f791b609301374e9787ebe 100644 (file)
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -246,6 +246,8 @@ Pass it BUFFER as first arg, and (cdr ARGS) gives the rest of the args."
 (defvar frame-notice-user-settings t
   "Non-nil means function `frame-notice-user-settings' wasn't run yet.")
 
+(declare-function tool-bar-mode "tool-bar" (&optional arg))
+
 ;; startup.el calls this function after loading the user's init
 ;; file.  Now default-frame-alist and initial-frame-alist contain
 ;; information to which we must react; do what needs to be done.
@@ -602,6 +604,7 @@ is not considered (see `next-frame')."
   (select-frame-set-input-focus (selected-frame)))
 
 (declare-function x-initialize-window-system "term/x-win" ())
+(defvar x-display-name)
 
 (defun make-frame-on-display (display &optional parameters)
   "Make a frame on X display DISPLAY.
@@ -627,6 +630,8 @@ additional frame parameters."
     (error "Invalid terminal type"))
   (make-frame `((window-system . nil) (tty . ,tty) (tty-type . ,type) . ,parameters)))
 
+(declare-function x-close-connection "xfns.c" (terminal))
+
 (defun close-display-connection (display)
   "Close the connection to a display, deleting all its associated frames.
 For DISPLAY, specify either a frame or a display name (a string).
@@ -823,6 +828,8 @@ the user during startup."
        (nreverse frame-initial-geometry-arguments))
   (cdr param-list))
 
+(declare-function x-focus-frame "xfns.c" (frame))
+
 (defun select-frame-set-input-focus (frame)
   "Select FRAME, raise it, and set input focus, if possible."
     (select-frame frame)
@@ -992,6 +999,9 @@ If FRAME is omitted, describe the currently selected frame."
 If FRAME is omitted, describe the currently selected frame."
   (cdr (assq 'width (frame-parameters frame))))
 
+(declare-function x-list-fonts "xfaces.c"
+                  (pattern &optional face frame maximum width))
+
 (defalias 'set-default-font 'set-frame-font)
 (defun set-frame-font (font-name &optional keep-size)
   "Set the font of the selected frame to FONT-NAME.
@@ -1206,6 +1216,8 @@ frame's display)."
      (t
       nil))))
 
+(declare-function x-display-screens "xfns.c" (&optional terminal))
+
 (defun display-screens (&optional display)
   "Return the number of screens associated with DISPLAY."
   (let ((frame-type (framep-on-display display)))
@@ -1215,6 +1227,8 @@ frame's display)."
      (t
       1))))
 
+(declare-function x-display-pixel-height "xfns.c" (&optional terminal))
+
 (defun display-pixel-height (&optional display)
   "Return the height of DISPLAY's screen in pixels.
 For character terminals, each character counts as a single pixel."
@@ -1225,6 +1239,8 @@ For character terminals, each character counts as a single pixel."
      (t
       (frame-height (if (framep display) display (selected-frame)))))))
 
+(declare-function x-display-pixel-width "xfns.c" (&optional terminal))
+
 (defun display-pixel-width (&optional display)
   "Return the width of DISPLAY's screen in pixels.
 For character terminals, each character counts as a single pixel."
@@ -1253,6 +1269,8 @@ displays not explicitely specified."
                                  (integer :tag "Height")))
   :group 'frames)
 
+(declare-function x-display-mm-height "xfns.c" (&optional terminal))
+
 (defun display-mm-height (&optional display)
   "Return the height of DISPLAY's screen in millimeters.
 System values can be overridden by `display-mm-dimensions-alist'.
@@ -1263,6 +1281,8 @@ If the information is unavailable, value is nil."
           (cddr (assoc t display-mm-dimensions-alist))
           (x-display-mm-height display))))
 
+(declare-function x-display-mm-width "xfns.c" (&optional terminal))
+
 (defun display-mm-width (&optional display)
   "Return the width of DISPLAY's screen in millimeters.
 System values can be overridden by `display-mm-dimensions-alist'.
@@ -1273,6 +1293,8 @@ If the information is unavailable, value is nil."
           (cadr (assoc t display-mm-dimensions-alist))
           (x-display-mm-width display))))
 
+(declare-function x-display-backing-store "xfns.c" (&optional terminal))
+
 (defun display-backing-store (&optional display)
   "Return the backing store capability of DISPLAY's screen.
 The value may be `always', `when-mapped', `not-useful', or nil if
@@ -1284,6 +1306,8 @@ the question is inapplicable to a certain kind of display."
      (t
       'not-useful))))
 
+(declare-function x-display-save-under "xfns.c" (&optional terminal))
+
 (defun display-save-under (&optional display)
   "Return non-nil if DISPLAY's screen supports the SaveUnder feature."
   (let ((frame-type (framep-on-display display)))
@@ -1293,6 +1317,8 @@ the question is inapplicable to a certain kind of display."
      (t
       'not-useful))))
 
+(declare-function x-display-planes "xfns.c" (&optional terminal))
+
 (defun display-planes (&optional display)
   "Return the number of planes supported by DISPLAY."
   (let ((frame-type (framep-on-display display)))
@@ -1304,6 +1330,8 @@ the question is inapplicable to a certain kind of display."
      (t
       (truncate (log (length (tty-color-alist)) 2))))))
 
+(declare-function x-display-color-cells "xfns.c" (&optional terminal))
+
 (defun display-color-cells (&optional display)
   "Return the number of color cells supported by DISPLAY."
   (let ((frame-type (framep-on-display display)))
@@ -1315,6 +1343,8 @@ the question is inapplicable to a certain kind of display."
      (t
       (tty-display-color-cells display)))))
 
+(declare-function x-display-visual-class "xfns.c" (&optional terminal))
+
 (defun display-visual-class (&optional display)
   "Returns the visual class of DISPLAY.
 The value is one of the symbols `static-gray', `gray-scale',

diff --git a/lisp/gs.el b/lisp/gs.el
index 913c741a7ba01698bc9d84d2f8465ff3c0085d86..f17ea17afbdca707f20dd2a007bb60b1c7720756 100644 (file)
--- a/lisp/gs.el
+++ b/lisp/gs.el
@@ -1,7 +1,7 @@
 ;;; gs.el --- interface to Ghostscript
 
-;; Copyright (C) 1998, 2001, 2002, 2003, 2004,
-;;   2005, 2006, 2007, 2008 Free Software Foundation, Inc.
+;; Copyright (C) 1998, 2001, 2002, 2003, 2004, 2005, 2006, 2007,
+;;   2008 Free Software Foundation, Inc.
 
 ;; Maintainer: FSF
 ;; Keywords: internal
@@ -93,6 +93,9 @@ FILE is the value to substitute for the place-holder `<file>'."
 ;; specified in PostScript points.  If omitted, the margins are
 ;; assumed to be 0.
 
+(declare-function x-display-mm-width "xfns.c" (&optional terminal))
+(declare-function x-display-pixel-width "xfns.c" (&optional terminal))
+
 (defun gs-width-in-pt (frame pixel-width)
   "Return, on FRAME, pixel width PIXEL-WIDTH tranlated to pt."
   (let ((mm (* (float pixel-width)
@@ -100,6 +103,8 @@ FILE is the value to substitute for the place-holder `<file>'."
                  (float (x-display-pixel-width frame))))))
     (/ (* 25.4 mm) 72.0)))
 
+(declare-function x-display-mm-height "xfns.c" (&optional terminal))
+(declare-function x-display-pixel-height "xfns.c" (&optional terminal))
 
 (defun gs-height-in-pt (frame pixel-height)
   "Return, on FRAME, pixel height PIXEL-HEIGHT tranlated to pt."
@@ -108,6 +113,8 @@ FILE is the value to substitute for the place-holder `<file>'."
                  (float (x-display-pixel-height frame))))))
     (/ (* 25.4 mm) 72.0)))
 
+(declare-function x-change-window-property "xfns.c"
+                 (prop value &optional frame type format outer-p))
 
 (defun gs-set-ghostview-window-prop (frame spec img-width img-height)
   "Set the `GHOSTVIEW' window property of FRAME.
@@ -131,6 +138,7 @@ image in pixels."
                                      rotation llx lly urx ury xdpi ydpi)
                              frame)))
 
+(declare-function x-display-grayscale-p "xfns.c" (&optional terminal))
 
 (defun gs-set-ghostview-colors-window-prop (frame pixel-colors)
   "Set the `GHOSTVIEW_COLORS' environment variable depending on FRAME."
@@ -141,8 +149,9 @@ image in pixels."
                              (format "%s %s" mode pixel-colors)
                              frame)))
 
+(declare-function x-window-property "xfns.c"
+                 (prop &optional frame type source delete-p vector-ret-p))
 
-;
 ;;;###autoload
 (defun gs-load-image (frame spec img-width img-height window-and-pixmap-id
                            pixel-colors)

diff --git a/lisp/image-dired.el b/lisp/image-dired.el
index 0bd3ab5641d5eaf40a386555d10d9b6314c2e190..d92c1f8cd3b8446d944120cd4998e41cf8cfe2b1 100644 (file)
--- a/lisp/image-dired.el
+++ b/lisp/image-dired.el
@@ -1583,6 +1583,8 @@ Note that n, p and <down> and <up> will be hijacked and bound to
     [menu-bar image-dired image-dired-next-line-and-display]
     '("Display thumb for next file" . image-dired-next-line-and-display)))
 
+(declare-function clear-image-cache "image.c" (&optional filter))
+
 (defun image-dired-create-thumbs (&optional arg)
   "Create thumbnail images for all marked files in dired.
 With prefix argument ARG, create thumbnails even if they already exist

diff --git a/lisp/image-mode.el b/lisp/image-mode.el
index b94a3ee4dadc808258427b53c3d23413b665830c..dbedf64156c0c4450f080d9139fc0302d9ca8a35 100644 (file)
--- a/lisp/image-mode.el
+++ b/lisp/image-mode.el
@@ -126,6 +126,8 @@ A winprops object has the shape (WINDOW . ALIST)."
                      (if (eq (window-buffer) (current-buffer))
                          (selected-window))))
 
+(declare-function image-size "image.c" (spec &optional pixels frame))
+
 (defun image-forward-hscroll (&optional n)
   "Scroll image in current window to the left by N character widths.
 Stop if the right edge of the image is reached."
@@ -397,6 +399,7 @@ information on these modes."
 
 (defvar archive-superior-buffer)
 (defvar tar-superior-buffer)
+(declare-function image-refresh "image.c" (spec &optional frame))
 
 (defun image-toggle-display ()
   "Start or stop displaying an image file as the actual image.

diff --git a/lisp/image.el b/lisp/image.el
index 4594ae1e1e51564aaeaba98d92c0dc33e07f236a..4969f8a476280ad0b888f19290f47eb51493e3ec 100644 (file)
--- a/lisp/image.el
+++ b/lisp/image.el
@@ -326,6 +326,8 @@ Optional DATA-P non-nil means SOURCE is a string containing image data."
   type)
 
 
+(defvar image-library-alist)
+
 ;;;###autoload
 (defun image-type-available-p (type)
   "Return non-nil if image type TYPE is available.

diff --git a/lisp/international/fontset.el b/lisp/international/fontset.el
index 73e6bad2fd4cf181845b52903581c50048906573..7020509cf1de98f1f94d2264e61bdd66f1500836 100644 (file)
--- a/lisp/international/fontset.el
+++ b/lisp/international/fontset.el
@@ -117,6 +117,8 @@
        ("muletibetan-2" . tibetan)
        ("muletibetan-1" . tibetan-1-column)))
 
+(defvar font-encoding-charset-alist)
+
 (setq font-encoding-charset-alist
       '((latin-iso8859-1 . iso-8859-1)
        (latin-iso8859-2 . iso-8859-2)
@@ -186,6 +188,8 @@
        (tai-viet #xAA80)
        (hangul #xAC00)))
 
+(defvar otf-script-alist)
+
 (setq otf-script-alist
       '((arab . arabic)
        (armn . armenian)
@@ -273,6 +277,10 @@
 ;; `char-script-table'.  SCRIPT may be a charset specifying the range
 ;; of characters.
 
+(declare-function new-fontset "fontset.c" (name fontlist))
+(declare-function set-fontset-font "fontset.c"
+                 (name target font-spec &optional frame add))
+
 (defun setup-default-fontset ()
   "Setup the default fontset."
   (new-fontset
@@ -616,6 +624,9 @@
       (setq font-encoding-alist
            (cons (cons pattern charset) font-encoding-alist)))))
 
+(defvar x-pixel-size-width-font-regexp)
+(defvar vertical-centering-font-regexp)
+
 ;; Setting for suppressing XLoadQueryFont on big fonts.
 (setq x-pixel-size-width-font-regexp
       "gb2312\\|gbk\\|gb18030\\|jisx0208\\|ksc5601\\|cns11643\\|big5")
@@ -746,6 +757,8 @@ with \"fontset\" in `<CHARSET_REGISTRY>' field."
        (string= (match-string (1+ xlfd-regexp-registry-subnum) fontset)
                "fontset")))
 
+(declare-function fontset-list "fontset.c" ())
+
 (defun generate-fontset-menu ()
   "Return list to be appended to `x-fixed-font-alist'.
 Done when `mouse-set-font' is called."
@@ -757,6 +770,8 @@ Done when `mouse-set-font' is called."
     (cons "Fontset"
          (sort l #'(lambda (x y) (string< (car x) (car y)))))))
 
+(declare-function query-fontset "fontset.c" (pattern &optional regexpp))
+
 (defun fontset-plain-name (fontset)
   "Return a plain and descriptive name of FONTSET."
   (if (not (setq fontset (query-fontset fontset)))
@@ -947,6 +962,9 @@ See the documentation of `create-fontset-from-fontset-spec' for the format.")
 ;; The values of the resources the string of the same format as
 ;; `standard-fontset-spec'.
 
+(declare-function x-get-resource "frame.c"
+                 (attribute class &optional component subclass))
+
 (defun create-fontset-from-x-resource ()
   (let ((idx 0)
        fontset-spec)

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index d0278bb772e4c4ddfbfe5d35505ac551d87abd0f..0d3f0b01404ceed9aa34fd065a03ba5362ad9604 100644 (file)
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -1910,6 +1910,9 @@ Setting this variable directly does not take effect.  See
                           (features (repeat symbol))
                           (unibyte-display coding-system)))))
 
+(declare-function x-server-vendor "xfns.c" (&optional terminal))
+(declare-function x-server-version "xfns.c" (&optional terminal))
+
 (defun standard-display-european-internal ()
   ;; Actually set up direct output of non-ASCII characters.
   (standard-display-8bit (if (eq window-system 'pc) 128 160) 255)

diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el
index 3647dfd8224e4d56667d252d08b3d8a54d636073..9357184634557ad98850fdcc53cd10dadff30e6f 100644 (file)
--- a/lisp/international/mule-diag.el
+++ b/lisp/international/mule-diag.el
@@ -818,6 +818,8 @@ but still contains full information about each coding system."
 \f
 ;;; FONT
 
+(declare-function font-info "font.c" (name &optional frame))
+
 (defun describe-font-internal (font-info &optional verbose)
   "Print information about a font in FONT-INFO."
   (print-list "name (opened by):" (aref font-info 0))
@@ -910,6 +912,9 @@ The font must be already used by Emacs."
            (dolist (opened (cdr elt))
              (insert "\n\t[" opened "]")))))))
 
+(declare-function query-fontset "fontset.c" (pattern &optional regexpp))
+(declare-function fontset-info "fontset.c" (fontset &optional frame))
+
 (defun print-fontset (fontset &optional print-opened)
   "Print information about FONTSET.
 If FONTSET is nil, print information about the default fontset.
@@ -930,6 +935,9 @@ the current buffer."
     (insert "\n  ---<fallback to the default fontset>---")
     (describe-vector (char-table-extra-slot info 0) 'print-fontset-element)))
 
+(defvar fontset-alias-alist)
+(declare-function fontset-list "fontset.c" ())
+
 ;;;###autoload
 (defun describe-fontset (fontset)
   "Display information about FONTSET.
@@ -952,6 +960,8 @@ This shows which font is used for which character(s)."
     (with-current-buffer standard-output
       (print-fontset fontset t))))
 
+(declare-function fontset-plain-name "fontset" (fontset))
+
 ;;;###autoload
 (defun list-fontsets (arg)
   "Display a list of all fontsets.

diff --git a/lisp/international/mule-util.el b/lisp/international/mule-util.el
index 304ad03921cf2fdce44becca9f194a160cb46e27..165827ee2550ba02de3753e75bb407a408c9856e 100644 (file)
--- a/lisp/international/mule-util.el
+++ b/lisp/international/mule-util.el
@@ -347,6 +347,8 @@ language environment LANG-ENV."
        (with-coding-priority coding-priority
           (detect-coding-region from to)))))
 
+(declare-function internal-char-font "fontset.c" (position &optional ch))
+
 ;;;###autoload
 (defun char-displayable-p (char)
   "Return non-nil if we should be able to display CHAR.
@@ -374,7 +376,7 @@ basis, this may not be accurate."
                 (cond
                  ((listp cs-list)
                   (catch 'tag
-                    (mapc #'(lambda (charset) 
+                    (mapc #'(lambda (charset)
                               (if (encode-char char charset)
                                   (throw 'tag charset)))
                           cs-list)

diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el
index 5582bf95b4fc9ab23444e706ff0c7ce0390140ea..a3e7517a2281bd5f0cbbc8a2c86b7c6745b8265f 100644 (file)
--- a/lisp/mail/emacsbug.el
+++ b/lisp/mail/emacsbug.el
@@ -65,6 +65,9 @@
 (defvar report-emacs-bug-orig-text nil
   "The automatically-created initial text of bug report.")
 
+(declare-function x-server-vendor "xfns.c" (&optional terminal))
+(declare-function x-server-version "xfns.c" (&optional terminal))
+
 ;;;###autoload
 (defun report-emacs-bug (topic &optional recent-keys)
   "Report a bug in GNU Emacs.

diff --git a/lisp/mouse-sel.el b/lisp/mouse-sel.el
index 412f8ac0be2820cb5c62c19e47dec5e26701c2e6..b1a7dcb33cacf538ea369fb888c26072562a2ca8 100644 (file)
--- a/lisp/mouse-sel.el
+++ b/lisp/mouse-sel.el
@@ -305,6 +305,8 @@ where   SELECTION-NAME          = name of selection
        SELECTION-THING-SYMBOL  = name of variable where the current selection
                                  type for this selection should be stored.")
 
+(declare-function x-select-text "term/x-win" (text &optional push))
+
 (defvar mouse-sel-set-selection-function
   (if (eq mouse-sel-default-bindings 'interprogram-cut-paste)
       'x-set-selection
@@ -321,6 +323,8 @@ Called with two arguments:
 This sets the selection as well as the cut buffer for the older applications,
 unless `mouse-sel-default-bindings' is `interprogram-cut-paste'.")
 
+(declare-function x-cut-buffer-or-selection-value "term/x-win" ())
+
 (defvar mouse-sel-get-selection-function
   (lambda (selection)
     (if (eq selection 'PRIMARY)

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 8565e62edfe66a12f2d0dec4d6ce9c3fd6bece73..678bce2279e8771c34407e2c4bcd63382d026c0e 100644 (file)
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -2425,6 +2425,8 @@ and selects that window."
     )
   "X fonts suitable for use in Emacs.")
 
+(declare-function generate-fontset-menu "fontset" ())
+
 (defun mouse-select-font ()
   "Prompt for a font name, using `x-popup-menu', and return it."
   (interactive)

diff --git a/lisp/play/bubbles.el b/lisp/play/bubbles.el
index 4d853e556fa8de73f5746a6f285da1d1bf7c5850..80aaf6b4a7e0b8f6fe2538cc04534ecf876f64e1 100644 (file)
--- a/lisp/play/bubbles.el
+++ b/lisp/play/bubbles.el
@@ -950,6 +950,8 @@ static char * dot3d_xpm[] = {
   (message "bubbles-quit")
   (bury-buffer))
 
+(declare-function image-size "image.c" (spec &optional pixels frame))
+
 (defun bubbles--compute-offsets ()
   "Update horizontal and vertical offsets for centering the bubbles grid.
 Set `bubbles--col-offset' and `bubbles--row-offset'."

diff --git a/lisp/play/gamegrid.el b/lisp/play/gamegrid.el
index cb2815ceef42061b20981f55248eaa570e08d4b6..36362f2d49b223e172d769c0b67e3ec5e4b8dc53 100644 (file)
--- a/lisp/play/gamegrid.el
+++ b/lisp/play/gamegrid.el
@@ -1,7 +1,7 @@
 ;;; gamegrid.el --- library for implementing grid-based games on Emacs
 
-;; Copyright (C) 1997, 1998, 2001, 2002, 2003, 2004,
-;;   2005, 2006, 2007, 2008 Free Software Foundation, Inc.
+;; Copyright (C) 1997, 1998, 2001, 2002, 2003, 2004, 2005, 2006, 2007,
+;;   2008  Free Software Foundation, Inc.
 
 ;; Author: Glynn Clements <glynn@sensei.co.uk>
 ;; Version: 1.02
@@ -304,6 +304,8 @@ static unsigned char gamegrid_bits[] = {
                             'remove-locale)
     (setq buffer-display-table gamegrid-display-table)))
 
+(declare-function image-size "image.c" (spec &optional pixels frame))
+
 (defun gamegrid-setup-default-font ()
   (setq gamegrid-face
        (copy-face 'default

diff --git a/lisp/progmodes/gdb-ui.el b/lisp/progmodes/gdb-ui.el
index f519e4d4257dfe39a3b102764d3f026b8119cc6e..9d5de2a94bdcb1ac6cf99fad5aae8dfbab3d5ee7 100644 (file)
--- a/lisp/progmodes/gdb-ui.el
+++ b/lisp/progmodes/gdb-ui.el
@@ -471,6 +471,9 @@ otherwise do not."
       (setq name (nth 1 (split-string define "[( ]")))
       (push (cons name define) gdb-define-alist))))
 
+(declare-function tooltip-show "tooltip" (text &optional use-echo-area))
+(defvar tooltip-use-echo-area)
+
 (defun gdb-tooltip-print (expr)
   (tooltip-show
    (with-current-buffer (gdb-get-buffer 'gdb-partial-output-buffer)
@@ -755,6 +758,8 @@ positive, otherwise don't automatically raise it."
 (define-key gud-minor-mode-map "\C-c\C-w" 'gud-watch)
 (define-key global-map (concat gud-key-prefix "\C-w") 'gud-watch)
 
+(declare-function tooltip-identifier-from-point "tooltip" (point))
+
 (defun gud-watch (&optional arg event)
   "Watch expression at point.
 With arg, enter name of variable to be watched in the minibuffer."
@@ -1905,6 +1910,9 @@ static char *magick[] = {
 (defvar breakpoint-disabled-icon nil
   "Icon for disabled breakpoint in display margin.")
 
+(declare-function define-fringe-bitmap "fringe.c"
+                 (bitmap bits &optional height width align))
+
 (and (display-images-p)
      ;; Bitmap for breakpoint in fringe
      (define-fringe-bitmap 'breakpoint
@@ -2019,6 +2027,7 @@ static char *magick[] = {
 
 (declare-function gud-remove "gdb-ui" t t) ; gud-def
 (declare-function gud-break  "gdb-ui" t t) ; gud-def
+(declare-function fringe-bitmaps-at-pos "fringe.c" (&optional pos window))
 
 (defun gdb-mouse-set-clear-breakpoint (event)
   "Set/clear breakpoint in left fringe/margin at mouse click.

diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el
index 3e86001c7c841a7f9909cb7554db4d69246c0b89..fadeae2e26cf7d45fa9f6d08f9bd1345ca0d144f 100644 (file)
--- a/lisp/progmodes/gud.el
+++ b/lisp/progmodes/gud.el
@@ -3339,6 +3339,10 @@ ACTIVATEP non-nil means activate mouse motion events."
       (kill-local-variable 'gud-tooltip-mouse-motions-active)
       (kill-local-variable 'track-mouse))))
 
+(defvar tooltip-last-mouse-motion-event)
+(declare-function tooltip-hide "tooltip" (&optional ignored-arg))
+(declare-function tooltip-start-delayed-tip "tooltip" ())
+
 (defun gud-tooltip-mouse-motion (event)
   "Command handler for mouse movement events in `global-map'."
   (interactive "e")
@@ -3373,6 +3377,9 @@ With arg, dereference expr if ARG is positive, otherwise do not derereference."
 
 (define-obsolete-function-alias 'tooltip-gud-toggle-dereference
                                 'gud-tooltip-dereference "22.1")
+(defvar tooltip-use-echo-area)
+(declare-function tooltip-show "tooltip" (text &optional use-echo-area))
+(declare-function tooltip-strip-prompt "tooltip" (process output))
 
 ; This will only display data that comes in one chunk.
 ; Larger arrays (say 400 elements) are displayed in
@@ -3395,6 +3402,8 @@ With arg, dereference expr if ARG is positive, otherwise do not derereference."
        (sdb (concat expr "/"))))
 
 (declare-function gdb-enqueue-input "gdb-ui" (item))
+(declare-function tooltip-expr-to-print "tooltip" (event))
+(declare-function tooltip-event-buffer "tooltip" (event))
 
 (defun gud-tooltip-tips (event)
   "Show tip for identifier or selection under the mouse.

diff --git a/lisp/select.el b/lisp/select.el
index c6128169921897b8bef149cb35bbace97940c7ba..f2db4070d13510b330aa5838a37c3d93065d4c5c 100644 (file)
--- a/lisp/select.el
+++ b/lisp/select.el
@@ -64,6 +64,9 @@ other X clients.  But, if this variable is set, it is used for
 the next communication only.  After the communication, this
 variable is set to nil.")
 
+(declare-function x-get-selection-internal "xselect.c"
+                 (selection-symbol target-type &optional time-stamp))
+
 ;; This is for temporary compatibility with pre-release Emacs 19.
 (defalias 'x-selection 'x-get-selection)
 (defun x-get-selection (&optional type data-type)
@@ -106,6 +109,11 @@ in `selection-converter-alist', which see."
   "Return text pasted to the clipboard."
   (x-get-selection-internal 'CLIPBOARD 'STRING))
 
+(declare-function x-own-selection-internal "xselect.c"
+                 (selection-name selection-value))
+(declare-function x-disown-selection-internal "xselect.c"
+                 (selection &optional time))
+
 (defun x-set-selection (type data)
   "Make an X Windows selection of type TYPE and value DATA.
 The argument TYPE (nil means `PRIMARY') says which selection, and

diff --git a/lisp/startup.el b/lisp/startup.el
index 83b44cacc40a09f3a17ef80a0f0e76af23935b61..c82a627e2087175f6394e3123907596cfd36bde0 100644 (file)
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -629,6 +629,10 @@ opening the first frame (e.g. open a connection to an X server).")
                (push argi rest)))))
     (nreverse rest)))
 
+(declare-function x-get-resource "frame.c"
+                 (attribute class &optional component subclass))
+(declare-function tool-bar-mode "tool-bar" (&optional arg))
+
 (defun command-line ()
   (setq before-init-time (current-time)
         command-line-default-directory default-directory)
@@ -1365,6 +1369,7 @@ a face or button specification."
                                   'help-echo (startup-echo-area-message)))))
       (setq args (cdr args)))))
 
+(declare-function image-size "image.c" (spec &optional pixels frame))
 
 (defun fancy-splash-head ()
   "Insert the head part of the splash screen into the current buffer."

diff --git a/lisp/subr.el b/lisp/subr.el
index 467d569fc49db6fb6da179fc78cad95069dd693b..8c9491a719579c405c26132ab53cd50c1ff3d655 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -905,6 +905,8 @@ POSITION should be a list of the form returned by the `event-start'
 and `event-end' functions."
   (nth 2 position))
 
+(declare-function scroll-bar-scale "scroll-bar" (num-denom whole))
+
 (defun posn-col-row (position)
   "Return the nominal column and row in POSITION, measured in characters.
 The column and row values are approximations calculated from the x

diff --git a/lisp/term.el b/lisp/term.el
index fc86408c35c79e188b6a3910e15d04a46561508a..ecf7ed90dae8a93719d619eff7f10cfd688d71df 100644 (file)
--- a/lisp/term.el
+++ b/lisp/term.el
@@ -925,6 +925,8 @@ is buffer-local.")
 
 (term-set-escape-char ?\C-c)
 
+(defvar overflow-newline-into-fringe)
+
 (defun term-window-width ()
   (if (featurep 'xemacs)
       (1- (window-width))

diff --git a/lisp/term/w32-win.el b/lisp/term/w32-win.el
index d7e0c580c5ad48a7770b860d1808063bd65a82f0..6ac2aab617ae2aeb0aac9e9e7a02aac89657cbb6 100644 (file)
--- a/lisp/term/w32-win.el
+++ b/lisp/term/w32-win.el
@@ -185,6 +185,8 @@ the last file dropped is selected."
          (concat x-command-line-resources "\n" (car x-invocation-args))))
   (setq x-invocation-args (cdr x-invocation-args)))
 
+(declare-function x-parse-geometry "frame.c" (string))
+
 (defun x-handle-geometry (switch)
   "Handle the \"-geometry\" SWITCH."
   (let* ((geo (x-parse-geometry (car x-invocation-args)))
@@ -211,6 +213,8 @@ the last file dropped is selected."
                      (if top (list top)))))
     (setq x-invocation-args (cdr x-invocation-args))))
 
+(defvar x-resource-name)
+
 (defun x-handle-name-switch (switch)
   "Handle the \"-name\" SWITCH."
 ;; Handle the -name option.  Set the variable x-resource-name
@@ -417,6 +421,7 @@ See the documentation of `create-fontset-from-fontset-spec' for the format.")
   "Report an error when a suspend is attempted."
   (error "Suspending an Emacs running under W32 makes no sense"))
 
+(declare-function generate-fontset-menu "fontset" ())
 
 (defun mouse-set-font (&rest fonts)
   "Select an Emacs font from a list of known good fonts and fontsets.
@@ -451,6 +456,8 @@ pop-up menu are unaffected by `w32-list-proportional-fonts')."
        (if (null font)
            (error "Font not found")))))
 
+(defvar image-library-alist)
+
 ;;; Set default known names for image libraries
 (setq image-library-alist
       '((xpm "libxpm.dll" "xpm4.dll" "libXpm-nox4.dll")
@@ -468,6 +475,19 @@ pop-up menu are unaffected by `w32-list-proportional-fonts')."
 (defvar w32-initialized nil
   "Non-nil if the w32 window system has been initialized.")
 
+(declare-function x-open-connection "w32fns.c"
+                  (display &optional xrm-string must-succeed))
+
+(declare-function setup-default-fontset "fontset" ())
+(declare-function set-fontset-font "fontset.c"
+                  (name target font-spec &optional frame add))
+(declare-function setup-default-fontset "fontset" ())
+(declare-function create-fontset-from-fontset-spec "fontset"
+                  (fontset-spec &optional style-variant noerror))
+(declare-function create-fontset-from-x-resource "fontset" ())
+(declare-function x-get-resource "frame.c"
+                  (attribute class &optional component subclass))
+
 (defun w32-initialize-window-system ()
   "Initialize Emacs for W32 GUI frames."
 

diff --git a/lisp/term/w32console.el b/lisp/term/w32console.el
index 22fe44fb570bba240f0e763cb8c5c7324d2ace19..21bca078ddf21064bc08498984a49a6193cbcb19 100644 (file)
--- a/lisp/term/w32console.el
+++ b/lisp/term/w32console.el
@@ -45,6 +45,8 @@
     ("white"         15 65535 65535 65535))
 "A list of VGA console colors, their indices and 16-bit RGB values.")
 
+(declare-function x-setup-function-keys "w32-fns" (frame))
+
 (defun terminal-init-w32console ()
   "Terminal initialization function for w32 console."
   ;; Share function key initialization with w32 gui frames

diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el
index 593df58cca1fd9119c3c93206e3fdf9c30076606..fed2081d66ee037b6e7a21ab1559d0bf8d884443 100644 (file)
--- a/lisp/term/x-win.el
+++ b/lisp/term/x-win.el
@@ -1,7 +1,7 @@
 ;;; x-win.el --- parse relevant switches and set up for X  -*-coding: iso-2022-7bit;-*-
 
-;; Copyright (C) 1993, 1994, 2001, 2002, 2003, 2004,
-;;   2005, 2006, 2007, 2008 Free Software Foundation, Inc.
+;; Copyright (C) 1993, 1994, 2001, 2002, 2003, 2004, 2005, 2006, 2007,
+;;   2008 Free Software Foundation, Inc.
 
 ;; Author: FSF
 ;; Keywords: terminals, i18n
@@ -151,6 +151,8 @@
          (concat x-command-line-resources "\n" (car x-invocation-args))))
   (setq x-invocation-args (cdr x-invocation-args)))
 
+(declare-function x-parse-geometry "frame.c" (string))
+
 ;; Handle the geometry option
 (defun x-handle-geometry (switch)
   (let* ((geo (x-parse-geometry (car x-invocation-args)))
@@ -177,6 +179,8 @@
                      (if top (list top)))))
     (setq x-invocation-args (cdr x-invocation-args))))
 
+(defvar x-resource-name)
+
 ;; Handle the -name option.  Set the variable x-resource-name
 ;; to the option's operand; set the name of
 ;; the initial frame, too.
@@ -1684,6 +1688,8 @@ The value nil is the same as this list:
        (kill-new clipboard-text))
     (yank)))
 
+(declare-function accelerate-menu "xmenu.c" (&optional frame) t)
+
 (defun x-menu-bar-open (&optional frame)
   "Open the menu bar if `menu-bar-mode' is on. otherwise call `tmm-menubar'."
   (interactive "i")
@@ -1699,6 +1705,12 @@ The value nil is the same as this list:
 (defvar x-initialized nil
   "Non-nil if the X window system has been initialized.")
 
+(declare-function x-open-connection "xfns.c"
+                 (display &optional xrm-string must-succeed))
+(declare-function x-server-max-request-size "xfns.c" (&optional terminal))
+(declare-function x-get-resource "frame.c"
+                 (attribute class &optional component subclass))
+
 (defun x-initialize-window-system ()
   "Initialize Emacs for X frames and open the first connection to an X server."
   ;; Make sure we have a valid resource name.

diff --git a/lisp/textmodes/artist.el b/lisp/textmodes/artist.el
index 380b19153b29e37939fc5b3e718c2edd6559aa45..b8654af2d25be25b0813f79220d6c0a8b7fddcf3 100644 (file)
--- a/lisp/textmodes/artist.el
+++ b/lisp/textmodes/artist.el
@@ -4733,6 +4733,8 @@ If optional argument STATE is positive, turn borders on."
   "Perform the update of the X Windows pointer shape."
   (set-mouse-color nil))
 
+(defvar x-pointer-shape)
+
 (defun artist-set-pointer-shape (new-pointer-shape)
   "Set the shape of the X Windows pointer to NEW-POINTER-SHAPE."
   (setq x-pointer-shape new-pointer-shape)

diff --git a/lisp/thumbs.el b/lisp/thumbs.el
index cf5ff79c484d4d505e8138aa1d9f2d8c515471db..bb62d4cf6a4e6ceb2e5a104a60c6ff03d571610f 100644 (file)
--- a/lisp/thumbs.el
+++ b/lisp/thumbs.el
@@ -334,6 +334,8 @@ smaller according to whether INCREMENT is 1 or -1."
        ((string-match ".*\\.png\\'" img) 'png)
        ((string-match ".*\\.tiff?\\'" img) 'tiff)))
 
+(declare-function image-size "image.c" (spec &optional pixels frame))
+
 (defun thumbs-file-size (img)
   (let ((i (image-size
            (find-image `((:type ,(thumbs-image-type img) :file ,img))) t)))

diff --git a/lisp/tool-bar.el b/lisp/tool-bar.el
index c47cab0af407f93548a4d8dc018ab829d82154f8..14cbc57f02934985fbdffe7441fd8ebf8636977b 100644 (file)
--- a/lisp/tool-bar.el
+++ b/lisp/tool-bar.el
@@ -88,6 +88,8 @@ Define this locally to override the global tool bar.")
                '(menu-item "tool bar" ignore
                            :filter tool-bar-make-keymap))
 
+(declare-function image-mask-p "image.c" (spec &optional frame))
+
 (defun tool-bar-make-keymap (&optional ignore)
   "Generate an actual keymap from `tool-bar-map'.
 Its main job is to figure out which images to use based on the display's

diff --git a/lisp/tooltip.el b/lisp/tooltip.el
index f5676a325dbffa3bb9481c633400bf82a098a0cb..d30579a7049a00b73d17b46b3c6d70e15b44266b 100644 (file)
--- a/lisp/tooltip.el
+++ b/lisp/tooltip.el
@@ -210,6 +210,9 @@ change the existing association.  Value is the resulting alist."
       (push (cons key value) alist))
     alist))
 
+(declare-function x-show-tip "xfns.c"
+                 (string &optional frame parms timeout dx dy))
+
 (defun tooltip-show (text &optional use-echo-area)
   "Show a tooltip window displaying TEXT.
 
@@ -245,6 +248,8 @@ in echo area."
        (sit-for 1)
        (message "%s" text)))))
 
+(declare-function x-hide-tip "xfns.c" ())
+
 (defun tooltip-hide (&optional ignored-arg)
   "Hide a tooltip, if one is displayed.
 Value is non-nil if tooltip was open."

diff --git a/lisp/w32-fns.el b/lisp/w32-fns.el
index dd7c8a44fd11d417fbb0c9a6bb35f81e2ed1e1d2..8ee9d490bb66b6de8f19be0b239ec25ffe4bbb32 100644 (file)
--- a/lisp/w32-fns.el
+++ b/lisp/w32-fns.el
@@ -76,6 +76,8 @@
 ;; same buffer.
 (setq find-file-visit-truename t)
 
+(declare-function x-server-version "w32fns.c" (&optional display))
+
 (defun w32-version ()
   "Return the MS-Windows version numbers.
 The value is a list of three integers: the major and minor version

diff --git a/lisp/woman.el b/lisp/woman.el
index abbe2ee3842ea311bb86ada5e682f621d582eb19..5f0b94a1f6e2613670ab26aa661cf497637e1891 100644 (file)
--- a/lisp/woman.el
+++ b/lisp/woman.el
@@ -1013,6 +1013,9 @@ This is usually either black or white."
           (setq symbol-fonts (cons font symbol-fonts))))
     symbol-fonts))
 
+(declare-function x-list-fonts "xfaces.c"
+                 (pattern &optional face frame maximum width))
+
 (when woman-font-support
   (make-face 'woman-symbol)
 

diff --git a/lisp/x-dnd.el b/lisp/x-dnd.el
index 3b069a86f17b2fef03c05318cb359800a89187fb..2cee5710b49e092b4367908b4aa24ecabec28a79 100644 (file)
--- a/lisp/x-dnd.el
+++ b/lisp/x-dnd.el
@@ -356,6 +356,9 @@ Currently XDND, Motif and old KDE 1.x protocols are recognized."
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;  Old KDE protocol.  Only dropping of files.
 
+(declare-function x-window-property "xfns.c"
+                 (prop &optional frame type source delete-p vector-ret-p))
+
 (defun x-dnd-handle-old-kde (event frame window message format data)
   "Open the files in a KDE 1.x drop."
   (let ((values (x-window-property "DndSelection" frame nil 0 t)))
@@ -376,6 +379,9 @@ Currently XDND, Motif and old KDE 1.x protocols are recognized."
     ("XdndActionAsk" . ask))
   "Mapping from XDND action types to lisp symbols.")
 
+(declare-function x-change-window-property "xfns.c"
+                 (prop value &optional frame type format outer-P))
+
 (defun x-dnd-init-xdnd-for-frame (frame)
   "Set the XdndAware property for FRAME to indicate that we do XDND."
   (x-change-window-property "XdndAware"
@@ -420,8 +426,11 @@ otherwise return the frame coordinates."
           (+ frame-real-top (nth 1 edges))))
       (cons frame-real-left frame-real-top))))
 
-(declare-function x-get-atom-name "xselect.c")
-(declare-function x-send-client-message "xselect.c")
+(declare-function x-get-atom-name "xselect.c" (value &optional frame))
+(declare-function x-send-client-message "xselect.c"
+                 (display dest from message-type format values))
+(declare-function x-get-selection-internal "xselect.c"
+                 (selection-symbol target-type &optional time-stamp))
 
 (defun x-dnd-handle-xdnd (event frame window message format data)
   "Receive one XDND event (client message) and send the appropriate reply.