Add declarations for builds without X.

11 files changed, 48 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 954502ce31d..70004b7c68d 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,20 @@
+2008-08-11  Glenn Morris  <rgm@gnu.org>
+
+        * dired.el (x-popup-menu):
+        * hi-lock.el (x-popup-menu):
+        * mouse.el (font-face-attributes):
+        * calendar/cal-menu.el (x-popup-menu):
+        * calendar/calendar.el (x-popup-menu):
+        * calendar/holidays.el (x-popup-menu):
+        * progmodes/cperl-mode.el (x-popup-menu):
+        * term/ns-win.el (dnd-open-file, tool-bar-mode, scroll-bar-scale)
+        (x-open-connection):
+        * term/w32-win.el (x-colors, x-handle-args, x-parse-geometry)
+        (x-command-line-resources):
+        * term/x-win.el (x-colors, x-parse-geometry, x-resource-name)
+        (x-display-name, x-command-line-resources):
+        Add declarations for builds without X.
+
 2008-08-10  Glenn Morris  <rgm@gnu.org>
 
         * calendar/cal-bahai.el (holiday-bahai): Doc fix.
diff --git a/lisp/calendar/cal-menu.el b/lisp/calendar/cal-menu.el
index e456f85bfe3..8818498480d 100644
--- a/lisp/calendar/cal-menu.el
+++ b/lisp/calendar/cal-menu.el
@@ -153,6 +153,8 @@
     ["Backward 1 Year" (calendar-scroll-right 12) :keys "4 M-v"])
   "Key map for \"Scroll\" menu in the calendar.")
 
+(declare-function x-popup-menu "xmenu.c" (position menu))
+
 (defmacro cal-menu-x-popup-menu (event title &rest body)
   "Call `x-popup-menu' at position EVENT, with TITLE and contents BODY.
 Signals an error if popups are unavailable."
diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el
index dc2f8ce9079..68a14068757 100644
--- a/lisp/calendar/calendar.el
+++ b/lisp/calendar/calendar.el
@@ -2422,6 +2422,8 @@ DATE is (month day year).  Calendars that do not apply are omitted."
            (format "Mayan date: %s"
                    (calendar-mayan-date-string date))))))
 
+(declare-function x-popup-menu "xmenu.c" (position menu))
+
 (defun calendar-print-other-dates (&optional event)
   "Show dates on other calendars for date under the cursor.
 If called by a mouse-event, pops up a menu with the result."
diff --git a/lisp/calendar/holidays.el b/lisp/calendar/holidays.el
index 8b554e05825..9e703df114f 100644
--- a/lisp/calendar/holidays.el
+++ b/lisp/calendar/holidays.el
@@ -624,6 +624,8 @@ The holidays are those in the list `calendar-holidays'."
 (define-obsolete-function-alias
   'check-calendar-holidays 'calendar-check-holidays "23.1")
 
+(declare-function x-popup-menu "xmenu.c" (position menu))
+
 ;;;###cal-autoload
 (defun calendar-cursor-holidays (&optional date event)
   "Find holidays for the date specified by the cursor in the calendar window.
diff --git a/lisp/dired.el b/lisp/dired.el
index 06a11a6b478..a7388ddc08e 100644
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -3314,6 +3314,7 @@ Anything else means ask for each directory."
   (message-box
    "Dired recursive copies are currently disabled.\nSee the variable `dired-recursive-copies'."))
 
+(declare-function x-popup-menu "xmenu.c" (position menu))
 
 (defun dired-dnd-do-ask-action (uri)
   ;; No need to get actions and descriptions from the source,
diff --git a/lisp/hi-lock.el b/lisp/hi-lock.el
index da6bd441240..4d9be487266 100644
--- a/lisp/hi-lock.el
+++ b/lisp/hi-lock.el
@@ -447,6 +447,8 @@ lower-case letters made case insensitive."
   (unless hi-lock-mode (hi-lock-mode 1))
   (hi-lock-set-pattern regexp face))
 
+(declare-function x-popup-menu "xmenu.c" (position menu))
+
 ;;;###autoload
 (defalias 'unhighlight-regexp 'hi-lock-unface-buffer)
 ;;;###autoload
diff --git a/lisp/mouse.el b/lisp/mouse.el
index 416336d7e49..e8adeb88101 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -2473,6 +2473,7 @@ choose a font."
 (declare-function x-select-font "xfns.c" (&optional frame ignored)) ; USE_GTK
 (declare-function buffer-face-mode-invoke "face-remap"
                   (face arg &optional interactive))
+(declare-function font-face-attributes "font.c" (font &optional frame))
 
 (defun mouse-appearance-menu (event)
   (interactive "@e")
diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el
index 57ecf03e2c7..9f57f62b94d 100644
--- a/lisp/progmodes/cperl-mode.el
+++ b/lisp/progmodes/cperl-mode.el
@@ -7089,6 +7089,8 @@ Use as
                         (cons cons1 (car cperl-hierarchy)))))))
       (end-of-line))))
 
+(declare-function x-popup-menu "xmenu.c" (position menu))
+
 (defun cperl-tags-hier-init (&optional update)
   "Show hierarchical menu of classes and methods.
 Finds info about classes by a scan of loaded TAGS files.
diff --git a/lisp/term/ns-win.el b/lisp/term/ns-win.el
index f11b34a7abf..0cd5ffc12de 100644
--- a/lisp/term/ns-win.el
+++ b/lisp/term/ns-win.el
@@ -749,6 +749,8 @@ this defaults to \"printenv\"."
 (defvar ns-input-spi-name)
 (defvar ns-input-spi-arg)
 
+(declare-function dnd-open-file "dnd" (uri action))
+
 (defun ns-spi-service-call ()
   "Respond to a service request."
   (interactive)
@@ -1209,6 +1211,9 @@ unless the current buffer is a scratch buffer.")
 ;; (if this is not done, modeline is dimmed until first interaction)
 (add-hook 'after-make-frame-functions 'select-frame)
 
+(defvar tool-bar-mode)
+(declare-function tool-bar-mode "tool-bar" (&optional arg))
+
 ;; Based on a function by David Reitter <dreitter@inf.ed.ac.uk> ;
 ;; see http://lists.gnu.org/archive/html/emacs-devel/2005-09/msg00681.html .
 (defun ns-toggle-toolbar (&optional frame)
@@ -1397,6 +1402,8 @@ See the documentation of `create-fontset-from-fontset-spec for the format.")
 (global-unset-key [vertical-scroll-bar mouse-1])
 (global-unset-key [vertical-scroll-bar drag-mouse-1])
 
+(declare-function scroll-bar-scale "scroll-bar" (num-denom whole))
+
 (defun ns-scroll-bar-move (event)
   "Scroll the frame according to a Nextstep scroller event."
   (interactive "e")
@@ -1561,6 +1568,8 @@ Note, tranparency works better on Tiger (10.4) and higher."
   "Non-nil if Nextstep windowing has been initialized.")
 
 (declare-function ns-list-services "nsfns.m" ())
+(declare-function x-open-connection "xfns.c"
+                  (display &optional xrm-string must-succeed))
 
 ;; Do the actual Nextstep Windows setup here; the above code just
 ;; defines functions and variables that we use now.
diff --git a/lisp/term/w32-win.el b/lisp/term/w32-win.el
index 7cc0cd2f62b..cd000ea53db 100644
--- a/lisp/term/w32-win.el
+++ b/lisp/term/w32-win.el
@@ -147,6 +147,7 @@ the last file dropped is selected."
 (global-set-key [language-change] 'ignore)
 
 (defvar x-resource-name)
+(defvar x-colors)
 
 
 (defun xw-defined-colors (&optional frame)
@@ -225,6 +226,9 @@ See the documentation of `create-fontset-from-fontset-spec' for the format.")
 (declare-function create-fontset-from-x-resource "fontset" ())
 (declare-function x-get-resource "frame.c"
                   (attribute class &optional component subclass))
+(declare-function x-handle-args "common-win" (args))
+(declare-function x-parse-geometry "frame.c" (string))
+(defvar x-command-line-resources)
 
 (defun w32-initialize-window-system ()
   "Initialize Emacs for W32 GUI frames."
diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el
index 4bcbb3e7031..1cfdeaf084b 100644
--- a/lisp/term/x-win.el
+++ b/lisp/term/x-win.el
@@ -253,6 +253,8 @@ exists."
 (defconst x-pointer-invisible 255)
 
 
+(defvar x-colors)
+
 (defun xw-defined-colors (&optional frame)
   "Internal function called by `defined-colors', which see."
   (or frame (setq frame (selected-frame)))
@@ -1449,6 +1451,10 @@ The value nil is the same as this list:
 (declare-function x-server-max-request-size "xfns.c" (&optional terminal))
 (declare-function x-get-resource "frame.c"
                   (attribute class &optional component subclass))
+(declare-function x-parse-geometry "frame.c" (string))
+(defvar x-resource-name)
+(defvar x-display-name)
+(defvar x-command-line-resources)
 
 (defun x-initialize-window-system ()
   "Initialize Emacs for X frames and open the first connection to an X server."