From 6d00e226c320eab31d8212b048cb67c442cb4c8f Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Tue, 20 Nov 2007 07:56:02 +0000 Subject: [PATCH] * 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. --- lisp/ChangeLog | 16 ++++++++++++++++ lisp/emacs-lisp/gulp.el | 3 +++ lisp/emacs-lisp/tcover-ses.el | 11 +++++++++++ lisp/emacs-lisp/tcover-unsafep.el | 1 + lisp/emulation/viper-cmd.el | 3 +++ lisp/emulation/viper-keym.el | 3 +++ lisp/mail/emacsbug.el | 3 +++ lisp/progmodes/ps-mode.el | 3 +++ lisp/progmodes/python.el | 2 ++ lisp/url/ChangeLog | 4 ++-- lisp/url/url-file.el | 1 + 11 files changed, 48 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1b3c8eb1c32..2ee6983cb53 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -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 --git a/lisp/emacs-lisp/gulp.el b/lisp/emacs-lisp/gulp.el index 9e0795c8822..a75b52d99bd 100644 --- a/lisp/emacs-lisp/gulp.el +++ b/lisp/emacs-lisp/gulp.el @@ -78,6 +78,9 @@ Thanks.") :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 --git a/lisp/emacs-lisp/tcover-ses.el b/lisp/emacs-lisp/tcover-ses.el index 27ddeb25718..0a4bdce0412 100644 --- a/lisp/emacs-lisp/tcover-ses.el +++ b/lisp/emacs-lisp/tcover-ses.el @@ -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 --git a/lisp/emacs-lisp/tcover-unsafep.el b/lisp/emacs-lisp/tcover-unsafep.el index b999ce63b8c..42c3ebef4e7 100644 --- a/lisp/emacs-lisp/tcover-unsafep.el +++ b/lisp/emacs-lisp/tcover-unsafep.el @@ -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 --git a/lisp/emulation/viper-cmd.el b/lisp/emulation/viper-cmd.el index 5e13edb9495..c90cecf8adc 100644 --- a/lisp/emulation/viper-cmd.el +++ b/lisp/emulation/viper-cmd.el @@ -3097,6 +3097,9 @@ On reaching beginning of line, stop and signal error." (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 --git a/lisp/emulation/viper-keym.el b/lisp/emulation/viper-keym.el index 0e502720f5e..ade63b1071c 100644 --- a/lisp/emulation/viper-keym.el +++ b/lisp/emulation/viper-keym.el @@ -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 --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el index e725a8affb0..eb96ef07612 100644 --- a/lisp/mail/emacsbug.el +++ b/lisp/mail/emacsbug.el @@ -229,6 +229,9 @@ Type SPC to scroll through this section and its subsections.")))) (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 --git a/lisp/progmodes/ps-mode.el b/lisp/progmodes/ps-mode.el index c131575f57c..8b26db1a12e 100644 --- a/lisp/progmodes/ps-mode.el +++ b/lisp/progmodes/ps-mode.el @@ -480,6 +480,9 @@ If nil, the following are tried in turn, until success: (setq i (1+ i))))) + +(declare-function doc-view-minor-mode "../doc-view") + ;; PostScript mode. ;;;###autoload diff --git a/lisp/progmodes/python.el b/lisp/progmodes/python.el index f54b7c9f928..4039a4f4a43 100644 --- a/lisp/progmodes/python.el +++ b/lisp/progmodes/python.el @@ -1656,6 +1656,8 @@ instance. Assumes an inferior Python is running." ;;;; 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 --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog index 56df401cb53..e8ae7233c20 100644 --- a/lisp/url/ChangeLog +++ b/lisp/url/ChangeLog @@ -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 --git a/lisp/url/url-file.el b/lisp/url/url-file.el index 9faee051f46..c39dcc030ac 100644 --- a/lisp/url/url-file.el +++ b/lisp/url/url-file.el @@ -90,6 +90,7 @@ to them." (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)) -- 2.39.2