comparison lisp/url/url-file.el @ 86247:fc93e9674475

* 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.

86246:a01176901861

(declare-function ange-ftp-set-passwd "../net/ange-ftp" (host user passwd))
(declare-function ange-ftp-copy-file-internal "../net/ange-ftp"
		  (filename newname ok-if-already-exists
			    keep-date &optional msg cont nowait))

(defun url-file-build-filename (url)
  (if (not (vectorp url))
      (setq url (url-generic-parse-url url)))
  (let* ((user (url-user url))

86247:fc93e9674475

(declare-function ange-ftp-set-passwd "../net/ange-ftp" (host user passwd))
(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))
      (setq url (url-generic-parse-url url)))
  (let* ((user (url-user url))