* international/titdic-cnv.el (dos-8+3-filename):

* obsolete/fast-lock.el (msdos-long-file-names):
* frame.el (msdos-mouse-p):
* files.el (msdos-long-file-names, w32-long-file-name)
(msdos-long-file-names):
* term/mac-win.el (mac-code-convert-string, mac-coerce-ae-data)
(mac-resume-apple-event, mac-font-panel-mode)
(mac-atsu-font-face-attributes, mac-ae-set-reply-parameter)
(mac-clear-font-name-table):
* term/pc-win.el (msdos-remember-default-colors)
(w16-set-clipboard-data, w16-get-clipboard-data):
* term/w32-win.el (w32-send-sys-command, w32-select-font)
(set-message-beep):
* net/browse-url.el (w32-shell-execute):
* w32-fns.el (set-message-beep, w32-get-clipboard-data)
(w32-get-locale-info, w32-get-valid-locale-ids)
(w32-set-clipboard-data):
* dos-fns.el (int86, msdos-long-file-names):
* dos-w32.el (default-printer-name): Declare as functions.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 53522780557152e911cf0e305f15c778e22cfb9e..09b83f338957b4b07ef2c8c4e9e71186e3c6f9c6 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,25 @@
+2007-11-22  Dan Nicolaescu  <dann@ics.uci.edu>
+
+       * international/titdic-cnv.el (dos-8+3-filename):
+       * obsolete/fast-lock.el (msdos-long-file-names):
+       * frame.el (msdos-mouse-p):
+       * files.el (msdos-long-file-names, w32-long-file-name)
+       (msdos-long-file-names):
+       * term/mac-win.el (mac-code-convert-string, mac-coerce-ae-data)
+       (mac-resume-apple-event, mac-font-panel-mode)
+       (mac-atsu-font-face-attributes, mac-ae-set-reply-parameter)
+       (mac-clear-font-name-table):
+       * term/pc-win.el (msdos-remember-default-colors)
+       (w16-set-clipboard-data, w16-get-clipboard-data):
+       * term/w32-win.el (w32-send-sys-command, w32-select-font)
+       (set-message-beep):
+       * net/browse-url.el (w32-shell-execute):
+       * w32-fns.el (set-message-beep, w32-get-clipboard-data)
+       (w32-get-locale-info, w32-get-valid-locale-ids)
+       (w32-set-clipboard-data):
+       * dos-fns.el (int86, msdos-long-file-names):
+       * dos-w32.el (default-printer-name): Declare as functions.
+
 2007-11-21  Jason Rumney  <jasonr@gnu.org>
 
        * emacs-lisp/byte-run.el (declare-function): Return nil.

diff --git a/lisp/dos-fns.el b/lisp/dos-fns.el
index c66cbc7933a54462f3a993ee5e4d643a90f48777..140f6b55facd53f8acb94dfaf3bc619a97c278a2 100644 (file)
--- a/lisp/dos-fns.el
+++ b/lisp/dos-fns.el
@@ -29,6 +29,9 @@
 
 ;;; Code:
 
+(declare-function int86 "msdos.c")
+(declare-function msdos-long-file-names "msdos.c")
+
 ;; This overrides a trivial definition in files.el.
 (defun convert-standard-filename (filename)
   "Convert a standard file's name to something suitable for the current OS.

diff --git a/lisp/dos-w32.el b/lisp/dos-w32.el
index 28cab4ccbcb80ea162d361f16705dbbb132d769d..878e5c5818958d89c5a2d2176a033a1df6148d9f 100644 (file)
--- a/lisp/dos-w32.el
+++ b/lisp/dos-w32.el
@@ -370,6 +370,8 @@ filesystem mounted on drive Z:, FILESYSTEM could be \"Z:\"."
 
 (defvar printer-name)
 
+(declare-function default-printer-name "w32fns.c")
+
 (defun direct-print-region-function (start end
                                           &optional lpr-prog
                                           delete-text buf display

diff --git a/lisp/files.el b/lisp/files.el
index 276366a796f269d7ef834847fa869e6dcef0e92a..274b6b7cd01035a00269fd6134c0090f4674a99d 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -213,6 +213,8 @@ have fast storage with limited space, such as a RAM disk."
 ;; The system null device. (Should reference NULL_DEVICE from C.)
 (defvar null-device "/dev/null" "The system null device.")
 
+(declare-function msdos-long-file-names "msdos.c")
+(declare-function w32-long-file-name "w32proc.c")
 (declare-function dired-get-filename "dired" (&optional localp no-error-if-not-filep))
 (declare-function dired-unmark "dired" (arg))
 (declare-function dired-do-flagged-delete "dired" (&optional nomessage))

diff --git a/lisp/frame.el b/lisp/frame.el
index 305f5ebff8072e3f8302aac28f14834b40bcd9b0..341ca79e9768a4b4d4ed6cdddcdbcbe799ac7b9b 100644 (file)
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -1131,6 +1131,8 @@ bars (top, bottom, or nil)."
   "Return the terminal that is now selected."
   (frame-terminal (selected-frame)))
 
+(declare-function msdos-mouse-p "dosfns.c")
+
 (defun display-mouse-p (&optional display)
   "Return non-nil if DISPLAY has a mouse available.
 DISPLAY can be a display name, a frame, or nil (meaning the selected

diff --git a/lisp/international/titdic-cnv.el b/lisp/international/titdic-cnv.el
index e6c0b5b363074dbded720b74de89caaa219ede2a..83c765dd8871b757d52089ff0568cb95cc0aa949 100644 (file)
--- a/lisp/international/titdic-cnv.el
+++ b/lisp/international/titdic-cnv.el
@@ -1112,6 +1112,8 @@ To input symbols and punctuations, type `/' followed by one of `a' to
  Some infrequent characters are accessed by typing \\, followed by
  the Cantonese romanization of the respective radical (\e$(0?f5}\e(B)."))
 
+(declare-function dos-8+3-filename "../dos-fns.el" (filename))
+
 (defun miscdic-convert (filename &optional dirname)
   "Convert a dictionary file FILENAME into a Quail package.
 Optional argument DIRNAME if specified is the directory name under which

diff --git a/lisp/net/browse-url.el b/lisp/net/browse-url.el
index 523588ec7c28cac8639e0ff4567bfabc7226160c..3685c8a6af1b54058f9526451347535739152005 100644 (file)
--- a/lisp/net/browse-url.el
+++ b/lisp/net/browse-url.el
@@ -825,6 +825,7 @@ to use."
 ;; --- Default MS-Windows browser ---
 
 (defvar dos-windows-version)
+(declare-function w32-shell-execute "w32fns.c")    ;; Defined in C.
 
 (defun browse-url-default-windows-browser (url &optional new-window)
   (interactive (browse-url-interactive-arg "URL: "))

diff --git a/lisp/obsolete/fast-lock.el b/lisp/obsolete/fast-lock.el
index e2fb338242fd50161010dab2cbfed9b2b6a11006..f34427c3140f335de46cb06abbdc34f0617c0a44 100644 (file)
--- a/lisp/obsolete/fast-lock.el
+++ b/lisp/obsolete/fast-lock.el
@@ -183,6 +183,8 @@
 
 (require 'font-lock)
 
+(declare-function msdos-long-file-names "msdos.c")
+
 ;; Make sure fast-lock.el is supported.
 (if (and (eq system-type 'ms-dos) (not (msdos-long-file-names)))
     (error "`fast-lock' was written for long file name systems"))

diff --git a/lisp/term/mac-win.el b/lisp/term/mac-win.el
index c84614d2246dc3d3c14a94120a37e7c10780d055..197d091e55263114fbf162aba7be9026bc5d3a3d 100644 (file)
--- a/lisp/term/mac-win.el
+++ b/lisp/term/mac-win.el
@@ -84,6 +84,13 @@
 (defvar mac-font-panel-mode)
 (defvar mac-ts-active-input-overlay)
 (defvar x-invocation-args)
+(declare-function mac-code-convert-string "mac.c")
+(declare-function mac-coerce-ae-data "mac.c")
+(declare-function mac-resume-apple-event "macselect.c")
+(declare-function mac-font-panel-mode "macfns.c")
+(declare-function mac-atsu-font-face-attributes "macfns.c")
+(declare-function mac-ae-set-reply-parameter "macselect.c")
+(declare-function mac-clear-font-name-table "macfns.c")
 
 (defvar x-command-line-resources nil)
 

diff --git a/lisp/term/pc-win.el b/lisp/term/pc-win.el
index ecbda7d9c1e18d75e3a2e020e9983c13cfbde324..2ddb4e404332340092b29bc3c38301f02ac95eb1 100644 (file)
--- a/lisp/term/pc-win.el
+++ b/lisp/term/pc-win.el
@@ -29,6 +29,10 @@
 
 (load "term/internal" nil t)
 
+(declare-function msdos-remember-default-colors "msdos.c")
+(declare-function w16-set-clipboard-data "w16select.c")
+(declare-function w16-get-clipboard-data "w16select.c")
+
 ;;; This is copied from etc/rgb.txt, except that some values were changed
 ;;; a bit to make them consistent with DOS console colors, and the RGB
 ;;; values were scaled up to 16 bits, as `tty-define-color' requires.

diff --git a/lisp/term/w32-win.el b/lisp/term/w32-win.el
index b98326dcd3e9391764afb95093fa2d499bb39059..754d412045498e29bd5182528432ac5e08c3b81d 100644 (file)
--- a/lisp/term/w32-win.el
+++ b/lisp/term/w32-win.el
@@ -88,6 +88,10 @@
 (defvar xlfd-regexp-registry-subnum)
 (defvar w32-color-map) ;; defined in w32fns.c
 
+(declare-function w32-send-sys-command "w32fns.c")
+(declare-function w32-select-font "w32fns.c")
+(declare-function set-message-beep "w32console.c")
+
 ;; Conditional on new-fontset so bootstrapping works on non-GUI compiles
 (if (fboundp 'new-fontset)
     (require 'fontset))

diff --git a/lisp/w32-fns.el b/lisp/w32-fns.el
index 24203810f95a9f16bfc0254372cdf29f3b2d995f..82343d4e14b64c27481bb928bcc558929460cf3a 100644 (file)
--- a/lisp/w32-fns.el
+++ b/lisp/w32-fns.el
@@ -74,6 +74,12 @@
         (set-keymap-parent local-function-key-map map)))
     (set-terminal-parameter frame 'x-setup-function-keys t)))
 
+(declare-function set-message-beep "w32console.c")
+(declare-function w32-get-clipboard-data "w32select.c")
+(declare-function w32-get-locale-info "w32proc.c")
+(declare-function w32-get-valid-locale-ids "w32proc.c")
+(declare-function w32-set-clipboard-data "w32select.c")
+
 ;; Ignore case on file-name completion
 (setq completion-ignore-case t)