# HG changeset patch # User Dan Nicolaescu # Date 1195545362 0 # Node ID fc93e9674475ef646f2669388cec9bab0010e9d9 # Parent a01176901861d5525562636d9afe24876f460d45 * progmodes/python.el (info-lookup-maybe-add-help): * progmodes/ps-mode.el (doc-view-minor-mode): * mail/emacsbug.el (Info-menu, Info-goto-node): * emulation/viper-keym.el (viper-ex) (viper-normalize-minor-mode-map-alist, viper-set-mode-vars-for): * emulation/viper-cmd.el (widget-type, widget-button-press) (viper-set-hooks): * emacs-lisp/tcover-unsafep.el (unsafep-function): * emacs-lisp/tcover-ses.el (ses-set-curcell, ses-update-cells) (ses-load, ses-vector-delete, ses-create-header-string) (ses-read-cell, ses-read-symbol, ses-command-hook, ses-jump): * emacs-lisp/gulp.el (mail-subject, mail-send): Declare as functions. * url-mailto.el (mail-send-and-exit): * url-http.el (url-dav-file-attributes): * url-file.el (ange-ftp-set-passwd, ange-ftp-copy-file-internal): (url-generate-unique-filename): Declare as functions. diff -r a01176901861 -r fc93e9674475 lisp/ChangeLog --- a/lisp/ChangeLog Tue Nov 20 04:04:45 2007 +0000 +++ b/lisp/ChangeLog Tue Nov 20 07:56:02 2007 +0000 @@ -1,3 +1,19 @@ +2007-11-20 Dan Nicolaescu + + * progmodes/python.el (info-lookup-maybe-add-help): + * progmodes/ps-mode.el (doc-view-minor-mode): + * mail/emacsbug.el (Info-menu, Info-goto-node): + * emulation/viper-keym.el (viper-ex) + (viper-normalize-minor-mode-map-alist, viper-set-mode-vars-for): + * emulation/viper-cmd.el (widget-type, widget-button-press) + (viper-set-hooks): + * emacs-lisp/tcover-unsafep.el (unsafep-function): + * emacs-lisp/tcover-ses.el (ses-set-curcell, ses-update-cells) + (ses-load, ses-vector-delete, ses-create-header-string) + (ses-read-cell, ses-read-symbol, ses-command-hook, ses-jump): + * emacs-lisp/gulp.el (mail-subject, mail-send): Declare as + functions. + 2007-11-20 Stefan Monnier * pcvs.el (cvs-revert-if-needed): Fix copy&paste typo. diff -r a01176901861 -r fc93e9674475 lisp/emacs-lisp/gulp.el --- a/lisp/emacs-lisp/gulp.el Tue Nov 20 04:04:45 2007 +0000 +++ b/lisp/emacs-lisp/gulp.el Tue Nov 20 07:56:02 2007 +0000 @@ -78,6 +78,9 @@ :type 'string :group 'gulp) +(declare-function mail-subject "../mail/sendmail" ()) +(declare-function mail-send "../mail/sendmail" ()) + (defun gulp-send-requests (dir &optional time) "Send requests for updates to the authors of Lisp packages in directory DIR. For each maintainer, the message consists of `gulp-request-header', diff -r a01176901861 -r fc93e9674475 lisp/emacs-lisp/tcover-ses.el --- a/lisp/emacs-lisp/tcover-ses.el Tue Nov 20 04:04:45 2007 +0000 +++ b/lisp/emacs-lisp/tcover-ses.el Tue Nov 20 07:56:02 2007 +0000 @@ -26,6 +26,17 @@ (defvar ses-initial-global-parameters) (defvar ses-mode-map) +(declare-function ses-set-curcell "../ses") +(declare-function ses-update-cells "../ses") +(declare-function ses-load "../ses") +(declare-function ses-vector-delete "../ses") +(declare-function ses-create-header-string "../ses") +(declare-function ses-read-cell "../ses") +(declare-function ses-read-symbol "../ses") +(declare-function ses-command-hook "../ses") +(declare-function ses-jump "../ses") + + ;;;Here are some macros that exercise SES. Set `pause' to t if you want the ;;;macros to pause after each step. (let* ((pause nil) diff -r a01176901861 -r fc93e9674475 lisp/emacs-lisp/tcover-unsafep.el --- a/lisp/emacs-lisp/tcover-unsafep.el Tue Nov 20 04:04:45 2007 +0000 +++ b/lisp/emacs-lisp/tcover-unsafep.el Tue Nov 20 07:56:02 2007 +0000 @@ -111,6 +111,7 @@ ) "A-list of (FORM . REASON)... that`unsafep' should decide are unsafe.") +(declare-function unsafep-function "unsafep" (fun)) ;;;######################################################################### (defun testcover-unsafep () diff -r a01176901861 -r fc93e9674475 lisp/emulation/viper-cmd.el --- a/lisp/emulation/viper-cmd.el Tue Nov 20 04:04:45 2007 +0000 +++ b/lisp/emulation/viper-cmd.el Tue Nov 20 07:56:02 2007 +0000 @@ -3097,6 +3097,9 @@ (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 viper-set-hooks "viper" ()) (defun viper-next-line-at-bol (arg) "Next line at beginning of line. diff -r a01176901861 -r fc93e9674475 lisp/emulation/viper-keym.el --- a/lisp/emulation/viper-keym.el Tue Nov 20 04:04:45 2007 +0000 +++ b/lisp/emulation/viper-keym.el Tue Nov 20 07:56:02 2007 +0000 @@ -48,6 +48,9 @@ (require 'viper-util) +(declare-function viper-ex "viper-ex" (arg &optional string)) +(declare-function viper-normalize-minor-mode-map-alist "viper-cmd" ()) +(declare-function viper-set-mode-vars-for "viper-cmd" (state)) ;;; Variables diff -r a01176901861 -r fc93e9674475 lisp/mail/emacsbug.el --- a/lisp/mail/emacsbug.el Tue Nov 20 04:04:45 2007 +0000 +++ b/lisp/mail/emacsbug.el Tue Nov 20 07:56:02 2007 +0000 @@ -229,6 +229,9 @@ (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)) + (defun report-emacs-bug-info () "Go to the Info node on reporting Emacs bugs." (interactive) diff -r a01176901861 -r fc93e9674475 lisp/progmodes/ps-mode.el --- a/lisp/progmodes/ps-mode.el Tue Nov 20 04:04:45 2007 +0000 +++ b/lisp/progmodes/ps-mode.el Tue Nov 20 07:56:02 2007 +0000 @@ -480,6 +480,9 @@ (setq i (1+ i))))) + +(declare-function doc-view-minor-mode "../doc-view") + ;; PostScript mode. ;;;###autoload diff -r a01176901861 -r fc93e9674475 lisp/progmodes/python.el --- a/lisp/progmodes/python.el Tue Nov 20 04:04:45 2007 +0000 +++ b/lisp/progmodes/python.el Tue Nov 20 07:56:02 2007 +0000 @@ -1656,6 +1656,8 @@ ;;;; Info-look functionality. +(declare-function info-lookup-maybe-add-help "info-look" (&rest arg)) + (defun python-after-info-look () "Set up info-look for Python. Used with `eval-after-load'." diff -r a01176901861 -r fc93e9674475 lisp/url/ChangeLog --- a/lisp/url/ChangeLog Tue Nov 20 04:04:45 2007 +0000 +++ b/lisp/url/ChangeLog Tue Nov 20 07:56:02 2007 +0000 @@ -3,8 +3,8 @@ * url-mailto.el (mail-send-and-exit): * url-http.el (url-dav-file-attributes): * url-file.el (ange-ftp-set-passwd, ange-ftp-copy-file-internal): - Declare as functions. - + (url-generate-unique-filename): Declare as functions. + * url-privacy.el (url-device-type): Define unconditionally. 2007-10-31 Juanma Barranquero diff -r a01176901861 -r fc93e9674475 lisp/url/url-file.el --- a/lisp/url/url-file.el Tue Nov 20 04:04:45 2007 +0000 +++ b/lisp/url/url-file.el Tue Nov 20 07:56:02 2007 +0000 @@ -90,6 +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)) (defun url-file-build-filename (url) (if (not (vectorp url))