Commit 6d00e226 authored by Dan Nicolaescu's avatar Dan Nicolaescu
Browse files

* 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.
parent 77fdc5c3
2007-11-20 Dan Nicolaescu <dann@ics.uci.edu>
* 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 <monnier@iro.umontreal.ca>
* pcvs.el (cvs-revert-if-needed): Fix copy&paste typo.
......
......@@ -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',
......
......@@ -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)
......
......@@ -111,6 +111,7 @@
)
"A-list of (FORM . REASON)... that`unsafep' should decide are unsafe.")
(declare-function unsafep-function "unsafep" (fun))
;;;#########################################################################
(defun testcover-unsafep ()
......
......@@ -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.
......
......@@ -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
......
......@@ -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)
......
......@@ -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
......
......@@ -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'."
......
......@@ -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 <lekktu@gmail.com>
......
......@@ -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))
......
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