# HG changeset patch # User Dan Nicolaescu # Date 1195614361 0 # Node ID 22dc0bc9daf886f26b35b875f4980af5906e6d7c # Parent 2c09cdee14d77122063209ac4fe594751850a3d8 * frame.el (msdos-mouse-p): * generic-x.el (w32-shell-name): * files.el (msdos-long-file-names, w32-long-file-name) (msdos-long-file-names, dired-get-filename, dired-unmark) (dired-do-flagged-delete, dos-8+3-filename, vms-read-directory) (view-mode-disable): * 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): * w32-fns.el (set-message-beep, w32-get-clipboard-data) (w32-get-locale-info, w32-get-valid-locale-ids) (w32-set-clipboard-data): * help-fns.el (ad-get-advice-info): * font-lock.el (fast-lock-after-fontify-buffer) (fast-lock-after-unfontify-buffer, fast-lock-mode) (lazy-lock-after-fontify-buffer) (lazy-lock-after-unfontify-buffer, lazy-lock-mode): * net/browse-url.el (w32-shell-execute): * dos-fns.el (int86, msdos-long-file-names): * dos-w32.el (default-printer-name): Declare as functions. diff -r 2c09cdee14d7 -r 22dc0bc9daf8 lisp/ChangeLog --- a/lisp/ChangeLog Wed Nov 21 00:34:44 2007 +0000 +++ b/lisp/ChangeLog Wed Nov 21 03:06:01 2007 +0000 @@ -1,3 +1,31 @@ +2007-11-21 Dan Nicolaescu + + * frame.el (msdos-mouse-p): + * generic-x.el (w32-shell-name): + * files.el (msdos-long-file-names, w32-long-file-name) + (msdos-long-file-names, dired-get-filename, dired-unmark) + (dired-do-flagged-delete, dos-8+3-filename, vms-read-directory) + (view-mode-disable): + * 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): + * w32-fns.el (set-message-beep, w32-get-clipboard-data) + (w32-get-locale-info, w32-get-valid-locale-ids) + (w32-set-clipboard-data): + * help-fns.el (ad-get-advice-info): + * font-lock.el (fast-lock-after-fontify-buffer) + (fast-lock-after-unfontify-buffer, fast-lock-mode) + (lazy-lock-after-fontify-buffer) + (lazy-lock-after-unfontify-buffer, lazy-lock-mode): + * net/browse-url.el (w32-shell-execute): + * dos-fns.el (int86, msdos-long-file-names): + * dos-w32.el (default-printer-name): Declare as functions. + 2007-11-21 Juanma Barranquero * textmodes/paragraphs.el (forward-sentence): Doc fix. diff -r 2c09cdee14d7 -r 22dc0bc9daf8 lisp/dos-fns.el --- a/lisp/dos-fns.el Wed Nov 21 00:34:44 2007 +0000 +++ b/lisp/dos-fns.el Wed Nov 21 03:06:01 2007 +0000 @@ -29,6 +29,9 @@ ;;; 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 -r 2c09cdee14d7 -r 22dc0bc9daf8 lisp/dos-w32.el --- a/lisp/dos-w32.el Wed Nov 21 00:34:44 2007 +0000 +++ b/lisp/dos-w32.el Wed Nov 21 03:06:01 2007 +0000 @@ -370,6 +370,8 @@ (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 -r 2c09cdee14d7 -r 22dc0bc9daf8 lisp/emulation/viper-cmd.el --- a/lisp/emulation/viper-cmd.el Wed Nov 21 00:34:44 2007 +0000 +++ b/lisp/emulation/viper-cmd.el Wed Nov 21 03:06:01 2007 +0000 @@ -3097,8 +3097,8 @@ (setq this-command 'next-line) (if com (viper-execute-com 'viper-next-line val com)))) -(declare-function widget-type "../widget" (widget)) -(declare-function widget-button-press "../widget" (pos &optional event)) +(declare-function widget-type "../wid-edit" (widget)) +(declare-function widget-button-press "../wid-edit" (pos &optional event)) (declare-function viper-set-hooks "viper" ()) (defun viper-next-line-at-bol (arg) diff -r 2c09cdee14d7 -r 22dc0bc9daf8 lisp/files.el --- a/lisp/files.el Wed Nov 21 00:34:44 2007 +0000 +++ b/lisp/files.el Wed Nov 21 03:06:01 2007 +0000 @@ -213,6 +213,16 @@ ;; 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)) +(declare-function dos-8+3-filename "dos-fns" (filename)) +(declare-function vms-read-directory "vms-patch" (dirname switches buffer)) +(declare-function view-mode-disable "view" ()) + (defvar file-name-invalid-regexp (cond ((and (eq system-type 'ms-dos) (not (msdos-long-file-names))) (concat "^\\([^A-Z[-`a-z]\\|..+\\)?:\\|" ; colon except after drive diff -r 2c09cdee14d7 -r 22dc0bc9daf8 lisp/font-lock.el --- a/lisp/font-lock.el Wed Nov 21 00:34:44 2007 +0000 +++ b/lisp/font-lock.el Wed Nov 21 03:06:01 2007 +0000 @@ -886,6 +886,13 @@ (defvar lazy-lock-mode) (defvar jit-lock-mode) +(declare-function fast-lock-after-fontify-buffer "obsolete/fast-lock") +(declare-function fast-lock-after-unfontify-buffer "obsolete/fast-lock") +(declare-function fast-lock-mode "obsolete/fast-lock") +(declare-function lazy-lock-after-fontify-buffer "obsolete/lazy-lock") +(declare-function lazy-lock-after-unfontify-buffer "obsolete/lazy-lock") +(declare-function lazy-lock-mode "obsolete/lazy-lock") + (defun font-lock-turn-on-thing-lock () (let ((thing-mode (font-lock-value-in-major-mode font-lock-support-mode))) (cond ((eq thing-mode 'fast-lock-mode) diff -r 2c09cdee14d7 -r 22dc0bc9daf8 lisp/frame.el --- a/lisp/frame.el Wed Nov 21 00:34:44 2007 +0000 +++ b/lisp/frame.el Wed Nov 21 03:06:01 2007 +0000 @@ -1126,6 +1126,8 @@ "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 -r 2c09cdee14d7 -r 22dc0bc9daf8 lisp/generic-x.el --- a/lisp/generic-x.el Wed Nov 21 00:34:44 2007 +0000 +++ b/lisp/generic-x.el Wed Nov 21 03:06:01 2007 +0000 @@ -524,6 +524,8 @@ (defvar bat-generic-mode-keymap (make-sparse-keymap) "Keymap for `bat-generic-mode'.") +(declare-function w32-shell-name "w32-fns" ()) + (defun bat-generic-mode-compile () "Run the current BAT file in a compilation buffer." (interactive) diff -r 2c09cdee14d7 -r 22dc0bc9daf8 lisp/help-fns.el --- a/lisp/help-fns.el Wed Nov 21 00:34:44 2007 +0000 +++ b/lisp/help-fns.el Wed Nov 21 03:06:01 2007 +0000 @@ -248,6 +248,8 @@ src-file file-name))) +(declare-function ad-get-advice-info "emacs-lisp/advice" (function)) + ;;;###autoload (defun describe-function-1 (function) (let* ((advised (and (featurep 'advice) (ad-get-advice-info function))) diff -r 2c09cdee14d7 -r 22dc0bc9daf8 lisp/mail/emacsbug.el --- a/lisp/mail/emacsbug.el Wed Nov 21 00:34:44 2007 +0000 +++ b/lisp/mail/emacsbug.el Wed Nov 21 03:06:01 2007 +0000 @@ -229,8 +229,8 @@ (setq report-emacs-bug-orig-text (buffer-substring (point-min) (point)))) (goto-char user-point))) -(declare-function Info-menu "info" (menu-item &optional fork)) -(declare-function Info-goto-node "info" (nodename &optional fork)) +(declare-function Info-menu "../info" (menu-item &optional fork)) +(declare-function Info-goto-node "../info" (nodename &optional fork)) (defun report-emacs-bug-info () "Go to the Info node on reporting Emacs bugs." diff -r 2c09cdee14d7 -r 22dc0bc9daf8 lisp/net/browse-url.el --- a/lisp/net/browse-url.el Wed Nov 21 00:34:44 2007 +0000 +++ b/lisp/net/browse-url.el Wed Nov 21 03:06:01 2007 +0000 @@ -825,6 +825,7 @@ ;; --- 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 -r 2c09cdee14d7 -r 22dc0bc9daf8 lisp/progmodes/python.el --- a/lisp/progmodes/python.el Wed Nov 21 00:34:44 2007 +0000 +++ b/lisp/progmodes/python.el Wed Nov 21 03:06:01 2007 +0000 @@ -1656,7 +1656,7 @@ ;;;; Info-look functionality. -(declare-function info-lookup-maybe-add-help "info-look" (&rest arg)) +(declare-function info-lookup-maybe-add-help "../info-look" (&rest arg)) (defun python-after-info-look () "Set up info-look for Python. diff -r 2c09cdee14d7 -r 22dc0bc9daf8 lisp/term/mac-win.el --- a/lisp/term/mac-win.el Wed Nov 21 00:34:44 2007 +0000 +++ b/lisp/term/mac-win.el Wed Nov 21 03:06:01 2007 +0000 @@ -85,6 +85,14 @@ (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 -r 2c09cdee14d7 -r 22dc0bc9daf8 lisp/term/pc-win.el --- a/lisp/term/pc-win.el Wed Nov 21 00:34:44 2007 +0000 +++ b/lisp/term/pc-win.el Wed Nov 21 03:06:01 2007 +0000 @@ -29,6 +29,10 @@ (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 -r 2c09cdee14d7 -r 22dc0bc9daf8 lisp/term/w32-win.el --- a/lisp/term/w32-win.el Wed Nov 21 00:34:44 2007 +0000 +++ b/lisp/term/w32-win.el Wed Nov 21 03:06:01 2007 +0000 @@ -88,6 +88,10 @@ (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)) diff -r 2c09cdee14d7 -r 22dc0bc9daf8 lisp/url/url-file.el --- a/lisp/url/url-file.el Wed Nov 21 00:34:44 2007 +0000 +++ b/lisp/url/url-file.el Wed Nov 21 03:06:01 2007 +0000 @@ -90,7 +90,7 @@ (declare-function ange-ftp-copy-file-internal "../net/ange-ftp" (filename newname ok-if-already-exists keep-date &optional msg cont nowait)) -(declare-function url-generate-unique-filename "url-utile" (&optional fmt)) +(declare-function url-generate-unique-filename "url-util" (&optional fmt)) (defun url-file-build-filename (url) (if (not (vectorp url)) diff -r 2c09cdee14d7 -r 22dc0bc9daf8 lisp/w32-fns.el --- a/lisp/w32-fns.el Wed Nov 21 00:34:44 2007 +0000 +++ b/lisp/w32-fns.el Wed Nov 21 03:06:01 2007 +0000 @@ -38,6 +38,12 @@ (defvar explicit-shell-file-name) +(declare-function set-message-beep) ;; Defined in C. +(declare-function w32-get-clipboard-data) ;; Defined in C. +(declare-function w32-get-locale-info) ;; Defined in C. +(declare-function w32-get-valid-locale-ids) ;; Defined in C. +(declare-function w32-set-clipboard-data) ;; Defined in C. + ;; Map delete and backspace (define-key function-key-map [backspace] "\177") (define-key function-key-map [delete] "\C-d")