diff options
| author | Dan Nicolaescu <dann@ics.uci.edu> | 2007-11-20 00:57:10 +0000 |
|---|---|---|
| committer | Dan Nicolaescu <dann@ics.uci.edu> | 2007-11-20 00:57:10 +0000 |
| commit | 153ef845b8355e243c2adcf1ea52fb55636683d8 (patch) | |
| tree | 6b99ed44cdb2c7375215d85698ebb115c4e24400 /lisp/url | |
| parent | ec6918a80feeee705679f5ca8b365e30a53c6a3d (diff) | |
| download | emacs-153ef845b8355e243c2adcf1ea52fb55636683d8.tar.gz | |
* progmodes/idlw-help.el: Require browse-url unconditionally, it
is available by default.
(idlwave-help-browse-url-available): Change default to t.
* emulation/edt.el (defgroup, defcustom): Remove definition.
(eval-when-compile): Remove.
(c-mark-function):
* textmodes/reftex-dcr.el (bibtex-beginning-of-entry):
* textmodes/fill.el (comment-search-forward)
(comment-string-strip):
* progmodes/prolog.el (comint-mode, comint-send-string)
(comint-send-region, comint-send-eof):
* progmodes/dcl-mode.el (imenu-default-create-index-function):
* emulation/viper-util.el (viper-forward-Word):
* emulation/vi.el (c-mark-function):
* emulation/edt-vt100.el (vt100-wide-mode):
* emacs-lisp/timer.el (diary-entry-time): 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):
Declare as functions.
* url-privacy.el (url-device-type): Define unconditionally.
Diffstat (limited to 'lisp/url')
| -rw-r--r-- | lisp/url/ChangeLog | 9 | ||||
| -rw-r--r-- | lisp/url/url-file.el | 5 | ||||
| -rw-r--r-- | lisp/url/url-http.el | 2 | ||||
| -rw-r--r-- | lisp/url/url-mailto.el | 2 | ||||
| -rw-r--r-- | lisp/url/url-privacy.el | 7 |
5 files changed, 22 insertions, 3 deletions
diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog index 93552c15ea9..56df401cb53 100644 --- a/lisp/url/ChangeLog +++ b/lisp/url/ChangeLog @@ -1,3 +1,12 @@ +2007-11-20 Dan Nicolaescu <dann@ics.uci.edu> + + * 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-privacy.el (url-device-type): Define unconditionally. + 2007-10-31 Juanma Barranquero <lekktu@gmail.com> * url-vars.el (url-vars-unload-hook): Remove function and variable. diff --git a/lisp/url/url-file.el b/lisp/url/url-file.el index c361016856b..9faee051f46 100644 --- a/lisp/url/url-file.el +++ b/lisp/url/url-file.el @@ -86,6 +86,11 @@ to them." (error nil))) (apply func args)))) +(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))) diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el index c5931c7d877..c8447dab859 100644 --- a/lisp/url/url-http.el +++ b/lisp/url/url-http.el @@ -1269,6 +1269,8 @@ CBARGS as the arguments." nil nil nil) ;whether gid would change ; inode ; device. (kill-buffer buffer))))) +(declare-function url-dav-file-attributes (url &optional id-format)) + ;;;###autoload (defun url-http-file-attributes (url &optional id-format) (if (url-dav-supported-p url) diff --git a/lisp/url/url-mailto.el b/lisp/url/url-mailto.el index 4b15d07245b..5004c62415c 100644 --- a/lisp/url/url-mailto.el +++ b/lisp/url/url-mailto.el @@ -60,6 +60,8 @@ (save-excursion (insert "\n")))))) +(declare-function mail-send-and-exit "../mail/sendmail") + ;;;###autoload (defun url-mailto (url) "Handle the mailto: URL syntax." diff --git a/lisp/url/url-privacy.el b/lisp/url/url-privacy.el index 6c29474752b..886e545ae7d 100644 --- a/lisp/url/url-privacy.el +++ b/lisp/url/url-privacy.el @@ -27,9 +27,10 @@ (eval-when-compile (require 'cl)) (require 'url-vars) -(if (fboundp 'device-type) - (defalias 'url-device-type 'device-type) - (defun url-device-type (&optional device) (or window-system 'tty))) +(defun url-device-type (&optional device) + (if (fboundp 'device-type) + (url-device-type device) + (or window-system 'tty))) ;;;###autoload (defun url-setup-privacy-info () |