From 73e6adaa140dad6a119bb439fe1f954c70ada9ec Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Thu, 22 Nov 2007 01:05:55 +0000 Subject: [PATCH] * 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. --- lisp/ChangeLog | 22 ++++++++++++++++++++++ lisp/dos-fns.el | 3 +++ lisp/dos-w32.el | 2 ++ lisp/files.el | 2 ++ lisp/frame.el | 2 ++ lisp/international/titdic-cnv.el | 2 ++ lisp/net/browse-url.el | 1 + lisp/obsolete/fast-lock.el | 2 ++ lisp/term/mac-win.el | 7 +++++++ lisp/term/pc-win.el | 4 ++++ lisp/term/w32-win.el | 4 ++++ lisp/w32-fns.el | 6 ++++++ 12 files changed, 57 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 5352278055..09b83f3389 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,25 @@ +2007-11-22 Dan Nicolaescu + + * 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 * emacs-lisp/byte-run.el (declare-function): Return nil. diff --git a/lisp/dos-fns.el b/lisp/dos-fns.el index c66cbc7933..140f6b55fa 100644 --- 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 28cab4ccbc..878e5c5818 100644 --- 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 276366a796..274b6b7cd0 100644 --- 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 305f5ebff8..341ca79e97 100644 --- 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 e6c0b5b363..83c765dd88 100644 --- 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 ($(0?f5}(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 523588ec7c..3685c8a6af 100644 --- 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 e2fb338242..f34427c314 100644 --- 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 c84614d224..197d091e55 100644 --- 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 ecbda7d9c1..2ddb4e4043 100644 --- 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 b98326dcd3..754d412045 100644 --- 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 24203810f9..82343d4e14 100644 --- 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) -- 2.20.1