From: Dan Nicolaescu Date: Wed, 21 Nov 2007 08:37:31 +0000 (+0000) Subject: * frame.el (msdos-mouse-p): X-Git-Tag: emacs-pretest-23.0.90~9595 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=99c715160b5a9907fab928095d445ccc580d81d3;p=emacs.git * 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): * dos-fns.el (int86, msdos-long-file-names): * dos-w32.el (default-printer-name): Undo previous change. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 31437fb1a38..6a8e8e75186 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,20 @@ +2007-11-21 Dan Nicolaescu + + * 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): + * dos-fns.el (int86, msdos-long-file-names): + * dos-w32.el (default-printer-name): Undo previous change. + 2007-11-21 Eli Zaretskii * international/mule-cmds.el (set-locale-environment): Set diff --git a/lisp/dos-fns.el b/lisp/dos-fns.el index 62b71640017..c66cbc7933a 100644 --- a/lisp/dos-fns.el +++ b/lisp/dos-fns.el @@ -29,9 +29,6 @@ ;;; Code: -(declare-function int86) ;; Defined in C. -(declare-function msdos-long-file-names) ;; Defined in 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 4b307423fb5..28cab4ccbcb 100644 --- a/lisp/dos-w32.el +++ b/lisp/dos-w32.el @@ -370,8 +370,6 @@ filesystem mounted on drive Z:, FILESYSTEM could be \"Z:\"." (defvar printer-name) -(declare-function default-printer-name) ;; Defined in 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 7575948b9db..276366a796f 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -213,9 +213,6 @@ 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) ;; Defined in C. -(declare-function w32-long-file-name) ;; Defined in C. -(declare-function msdos-long-file-names) ;; Defined in 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 6e660b1b5e5..1c11829475b 100644 --- a/lisp/frame.el +++ b/lisp/frame.el @@ -1126,8 +1126,6 @@ bars (top, bottom, or nil)." "Return the terminal that is now selected." (frame-terminal (selected-frame))) -(declare-function msdos-mouse-p) ;; Defined in C only for on platform. - (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/net/browse-url.el b/lisp/net/browse-url.el index 977639eec55..523588ec7c2 100644 --- a/lisp/net/browse-url.el +++ b/lisp/net/browse-url.el @@ -825,7 +825,6 @@ to use." ;; --- Default MS-Windows browser --- (defvar dos-windows-version) -(declare-function w32-shell-execute) ;; Defined in C. (defun browse-url-default-windows-browser (url &optional new-window) (interactive (browse-url-interactive-arg "URL: ")) diff --git a/lisp/term/mac-win.el b/lisp/term/mac-win.el index 050bd04d59e..c84614d2246 100644 --- a/lisp/term/mac-win.el +++ b/lisp/term/mac-win.el @@ -85,14 +85,6 @@ (defvar mac-ts-active-input-overlay) (defvar x-invocation-args) -(declare-function mac-code-convert-string) ;; Defined in C. -(declare-function mac-coerce-ae-data) ;; Defined in C. -(declare-function mac-resume-apple-event) ;; Defined in C. -(declare-function mac-font-panel-mode) ;; Defined in C. -(declare-function mac-atsu-font-face-attributes) ;; Defined in C. -(declare-function mac-ae-set-reply-parameter) ;; Defined in C. -(declare-function mac-clear-font-name-table) ;; Defined in C. - (defvar x-command-line-resources nil) ;; Handler for switches of the form "-switch value" or "-switch". diff --git a/lisp/term/pc-win.el b/lisp/term/pc-win.el index d9ed7385514..ecbda7d9c1e 100644 --- a/lisp/term/pc-win.el +++ b/lisp/term/pc-win.el @@ -29,10 +29,6 @@ (load "term/internal" nil t) -(declare-function msdos-remember-default-colors) ;; Defined in C. -(declare-function w16-set-clipboard-data) ;; Defined in C. -(declare-function w16-get-clipboard-data) ;; Defined in 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 7fd84a898fc..b98326dcd3e 100644 --- a/lisp/term/w32-win.el +++ b/lisp/term/w32-win.el @@ -88,10 +88,6 @@ (defvar xlfd-regexp-registry-subnum) (defvar w32-color-map) ;; defined in w32fns.c -(declare-function w32-send-sys-command) ;; Defined in C. -(declare-function w32-select-font) ;; Defined in C. -(declare-function set-message-beep) ;; Defined in C. - ;; Conditional on new-fontset so bootstrapping works on non-GUI compiles (if (fboundp 'new-fontset) (require 'fontset))