Mercurial > emacs
comparison lisp/url/url-file.el @ 86265:22dc0bc9daf8
* frame.el (msdos-mouse-p):
* generic-x.el (w32-shell-name):
* files.el (msdos-long-file-names, w32-long-file-name)
(msdos-long-file-names, dired-get-filename, dired-unmark)
(dired-do-flagged-delete, dos-8+3-filename, vms-read-directory)
(view-mode-disable):
* term/mac-win.el (mac-code-convert-string, mac-coerce-ae-data)
(mac-resume-apple-event, mac-font-panel-mode)
(mac-atsu-font-face-attributes, mac-ae-set-reply-parameter)
(mac-clear-font-name-table):
* term/pc-win.el (msdos-remember-default-colors)
(w16-set-clipboard-data, w16-get-clipboard-data):
* term/w32-win.el (w32-send-sys-command, w32-select-font)
(set-message-beep):
* w32-fns.el (set-message-beep, w32-get-clipboard-data)
(w32-get-locale-info, w32-get-valid-locale-ids)
(w32-set-clipboard-data):
* help-fns.el (ad-get-advice-info):
* font-lock.el (fast-lock-after-fontify-buffer)
(fast-lock-after-unfontify-buffer, fast-lock-mode)
(lazy-lock-after-fontify-buffer)
(lazy-lock-after-unfontify-buffer, lazy-lock-mode):
* net/browse-url.el (w32-shell-execute):
* dos-fns.el (int86, msdos-long-file-names):
* dos-w32.el (default-printer-name): Declare as functions.
author | Dan Nicolaescu <dann@ics.uci.edu> |
---|---|
date | Wed, 21 Nov 2007 03:06:01 +0000 |
parents | fc93e9674475 |
children | 7193e8ecbb2e |
comparison
equal
deleted
inserted
replaced
86264:2c09cdee14d7 | 86265:22dc0bc9daf8 |
---|---|
88 | 88 |
89 (declare-function ange-ftp-set-passwd "../net/ange-ftp" (host user passwd)) | 89 (declare-function ange-ftp-set-passwd "../net/ange-ftp" (host user passwd)) |
90 (declare-function ange-ftp-copy-file-internal "../net/ange-ftp" | 90 (declare-function ange-ftp-copy-file-internal "../net/ange-ftp" |
91 (filename newname ok-if-already-exists | 91 (filename newname ok-if-already-exists |
92 keep-date &optional msg cont nowait)) | 92 keep-date &optional msg cont nowait)) |
93 (declare-function url-generate-unique-filename "url-utile" (&optional fmt)) | 93 (declare-function url-generate-unique-filename "url-util" (&optional fmt)) |
94 | 94 |
95 (defun url-file-build-filename (url) | 95 (defun url-file-build-filename (url) |
96 (if (not (vectorp url)) | 96 (if (not (vectorp url)) |
97 (setq url (url-generic-parse-url url))) | 97 (setq url (url-generic-parse-url url))) |
98 (let* ((user (url-user url)) | 98 (let* ((user (url-user url)) |