Commit 99c71516 authored by Dan Nicolaescu's avatar 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.
parent b62a39c4
2007-11-21 Dan Nicolaescu <dann@ics.uci.edu>
* 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 <eliz@gnu.org> 2007-11-21 Eli Zaretskii <eliz@gnu.org>
* international/mule-cmds.el (set-locale-environment): Set * international/mule-cmds.el (set-locale-environment): Set
......
...@@ -29,9 +29,6 @@ ...@@ -29,9 +29,6 @@
;;; Code: ;;; Code:
(declare-function int86) ;; Defined in C.
(declare-function msdos-long-file-names) ;; Defined in C.
;; This overrides a trivial definition in files.el. ;; This overrides a trivial definition in files.el.
(defun convert-standard-filename (filename) (defun convert-standard-filename (filename)
"Convert a standard file's name to something suitable for the current OS. "Convert a standard file's name to something suitable for the current OS.
......
...@@ -370,8 +370,6 @@ filesystem mounted on drive Z:, FILESYSTEM could be \"Z:\"." ...@@ -370,8 +370,6 @@ filesystem mounted on drive Z:, FILESYSTEM could be \"Z:\"."
(defvar printer-name) (defvar printer-name)
(declare-function default-printer-name) ;; Defined in C.
(defun direct-print-region-function (start end (defun direct-print-region-function (start end
&optional lpr-prog &optional lpr-prog
delete-text buf display delete-text buf display
......
...@@ -213,9 +213,6 @@ have fast storage with limited space, such as a RAM disk." ...@@ -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.) ;; The system null device. (Should reference NULL_DEVICE from C.)
(defvar null-device "/dev/null" "The system null device.") (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-get-filename "dired" (&optional localp no-error-if-not-filep))
(declare-function dired-unmark "dired" (arg)) (declare-function dired-unmark "dired" (arg))
(declare-function dired-do-flagged-delete "dired" (&optional nomessage)) (declare-function dired-do-flagged-delete "dired" (&optional nomessage))
......
...@@ -1126,8 +1126,6 @@ bars (top, bottom, or nil)." ...@@ -1126,8 +1126,6 @@ bars (top, bottom, or nil)."
"Return the terminal that is now selected." "Return the terminal that is now selected."
(frame-terminal (selected-frame))) (frame-terminal (selected-frame)))
(declare-function msdos-mouse-p) ;; Defined in C only for on platform.
(defun display-mouse-p (&optional display) (defun display-mouse-p (&optional display)
"Return non-nil if DISPLAY has a mouse available. "Return non-nil if DISPLAY has a mouse available.
DISPLAY can be a display name, a frame, or nil (meaning the selected DISPLAY can be a display name, a frame, or nil (meaning the selected
......
...@@ -825,7 +825,6 @@ to use." ...@@ -825,7 +825,6 @@ to use."
;; --- Default MS-Windows browser --- ;; --- Default MS-Windows browser ---
(defvar dos-windows-version) (defvar dos-windows-version)
(declare-function w32-shell-execute) ;; Defined in C.
(defun browse-url-default-windows-browser (url &optional new-window) (defun browse-url-default-windows-browser (url &optional new-window)
(interactive (browse-url-interactive-arg "URL: ")) (interactive (browse-url-interactive-arg "URL: "))
......
...@@ -85,14 +85,6 @@ ...@@ -85,14 +85,6 @@
(defvar mac-ts-active-input-overlay) (defvar mac-ts-active-input-overlay)
(defvar x-invocation-args) (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) (defvar x-command-line-resources nil)
;; Handler for switches of the form "-switch value" or "-switch". ;; Handler for switches of the form "-switch value" or "-switch".
......
...@@ -29,10 +29,6 @@ ...@@ -29,10 +29,6 @@
(load "term/internal" nil t) (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 ;;; 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 ;;; 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. ;;; values were scaled up to 16 bits, as `tty-define-color' requires.
......
...@@ -88,10 +88,6 @@ ...@@ -88,10 +88,6 @@
(defvar xlfd-regexp-registry-subnum) (defvar xlfd-regexp-registry-subnum)
(defvar w32-color-map) ;; defined in w32fns.c (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 ;; Conditional on new-fontset so bootstrapping works on non-GUI compiles
(if (fboundp 'new-fontset) (if (fboundp 'new-fontset)
(require 'fontset)) (require 'fontset))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment